LISP TO EXECUTE A COMAND LIST

[toxicsquall]

Please, I need help to make a LISP to execute this comands in this order. Can you help me?

 

ZOOM (EXTEND) > SELECT ALL OBJECTS > FLATTEN (REMOVE HIDDEN LINES = NO) > COLOR CONTROL = ALL BY LAYER > LINE TYPE CONTROL = ALL BY LAYER > LINE WEIGHT CONTROL =  ALL BY LAYER > PURGE (PURGE ALL ITEMS)

 

Can you help me?
 

[dlanorh]

59 minutes ago, toxicsquall said:

Please, I need help to make a LISP to execute this comands in this order. Can you help me?

 

ZOOM (EXTEND) > SELECT ALL OBJECTS > FLATTEN (REMOVE HIDDEN LINES = NO) > COLOR CONTROL = ALL BY LAYER > LINE TYPE CONTROL = ALL BY LAYER > LINE WEIGHT CONTROL =  ALL BY LAYER > PURGE (PURGE ALL ITEMS)

 

Can you help me?
 

 

Does the flatten, color, linetype and lineweight all bylayer apply to objects within blocks?

[dlanorh]

OK, try the attached. If you want entities within blocks included, it will need a few extra lines of code.

 

 

AllByLayer.lsp

[BIGAL]

Maybe something like this

; converts blocks to bylayer proerties 
(setq  doc (vla-get-activedocument (vlax-get-acad-object))) ; open database
(vlax-for block (vla-get-blocks doc) 
(if   (not (wcmatch (strcase (vla-get-name block) t) "*_space*")) 
(vlax-for ent block 
(vla-put-color ent 0) 
(vla-put-linetype ent "Bylayer") 
(vla-put-lineweight ent aclnwtbylayer) 
)
)
)

 

[toxicsquall]

It works really well!!!

Thanks!!!!