Topic: Make a Lisp to fing all objects with center asigned to it

[craig.petersen]

I want a lisp to find all objects with center assigned to it and set color to by layer, layer to E-CEN, linetype to BYlayer and Lineweight to by layer
(setq LT_LIST (list "CENTER" "CENTER2" "CENTERX2"))
(foreach LT_NAME LT_LIST
    (command "._chprop" (ssget "X" '((6 . "CENTER"))) "" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "la" "E-CEN" "")
    (command "._chprop" (ssget "X" '((6 . "CENTER2"))) "" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "la" "E-CEN" "")
    (command "._chprop" (ssget "X" '((6 . "CENTERX2"))) "" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "la" "E-CEN" "")
)

I also want it to work in blocks

[BIGAL]

just google "change linetype in blocks" should take about 10 seconds to find the answer or just search here 1st.

[ronjonp]

Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ a c d f)
2.   ;; RJP » 2018-08-10
3.   (vlax-for l (vla-get-layers (setq d (vla-get-activedocument (vlax-get-acad-object))))
4.     (cond ((= -1 (vlax-get l 'lock)) (vlax-put l 'lock 0) (setq a (cons l a))))
5.   )
6.   (vla-add (vla-get-layers d) "E-CEN")
7.   (vlax-for b (vla-get-blocks d)
8.     (if (= 0 (vlax-get b 'isxref))
9.       (vlax-for o b
10.         (cond ((and (vlax-write-enabled-p o)
11.                     (setq c (vla-get-linetype o))
12.                     (setq f (wcmatch (strcase c) "CENTER*"))
13.                )
14.                (vla-put-linetype o "ByLayer")
15.                (vla-put-lineweight o -1)
16.                (vla-put-layer o "E-CEN")
17.               )
18.         )
19.       )
20.     )
21.   )
22.   (foreach l a (vlax-put l 'lock -1))
23.   (and f (vla-regen d acallviewports))
24.   (princ)
25. )
26. (vl-load-com)