0 Members and 1 Guest are viewing this topic.
(setq LayLst (list "*Dim*" "*Text" ))
Something like that:Code - Auto/Visual Lisp: [Select](defun c:laysoff ( / LayLst) (setq LayLst (list "0" "Defpoints" "Dim" "Text" "Embeds")) (vlax-for % (cd:ACX_Layers) (if (member (vla-get-name %) LayLst) (vla-put-layeron % :vlax-false) ) ) (princ))(defun c:layson ( / LayLst) (setq LayLst (list "0" "Defpoints" "Dim" "Text" "Embeds")) (vlax-for % (cd:ACX_Layers) (if (member (vla-get-name %) LayLst) (vla-put-layeron % :vlax-true) ) ) (princ))(defun cd:ACX_ADoc () (or *cd-ActiveDocument* (setq *cd-ActiveDocument* (vla-get-ActiveDocument (vlax-get-acad-object)) ) ) *cd-ActiveDocument*)(defun cd:ACX_Layers () (or *cd-Layers* (setq *cd-Layers* (vla-get-Layers (cd:ACX_ADoc))) ) *cd-Layers*)
Can you make it work with wildcards?Tried this but did not work