change particular layer lineweight to another linewight

[sivarajann]

change particular layer lineweight to another linewight.

eg. I have so many layers its lineweights are 0.00, 0.15, 0.30, 0.40, 0.50, etc. I need to change LW 0.00 and 0.15 layers(many layers) to 0.30 lineweight other lineweights to keep as it is.

please provide a simple script / Lisp. that help me to change bulk of drawings.

thank you

[_gile · Accepted solution]

Hi,

You can paste the following code to the command line and hit Enter, or use it in a script file.

((lambda (/ n l w)
   (while (setq n (cdr (assoc 2 (tblnext "LAYER" (not n)))))
     (setq w (cdr (assoc 370 (setq l (entget (tblobjname "LAYER" n))))))
     (if (or (= w 0) (= w 15))
       (entmod (subst '(370 . 30) (cons 370 w) l))))))

[sivarajann · Accepted solution]

hi Gile,

its working

thank you

---

@_gile wrote:

Hi,

You can paste the following code to the command line and hit Enter, or use it in a script file.

((lambda (/ n l w)
   (while (setq n (cdr (assoc 2 (tblnext "LAYER" (not n)))))
     (setq w (cdr (assoc 370 (setq l (entget (tblobjname "LAYER" n))))))
     (if (or (= w 0) (= w 15))
       (entmod (subst '(370 . 30) (cons 370 w) l))))))

---

---

---