topic 回复： Seek a lisp for Layer turn off for Prefix "A002" in Visual LISP, AutoLISP and General Customization Forum

Seek a lisp for Layer turn off for Prefix "A002"

skchui6159 — Wed, 06 Nov 2024 03:03:29 GMT

if I want to turn off layer prefix of "A002". How to do?

Re: Seek a lisp for Layer turn off for Prefix "A002"

Sea-Haven — Wed, 06 Nov 2024 03:43:48 GMT

Do you mean la off A002* Enter Enter

回复： Seek a lisp for Layer turn off for Prefix "A002"

skchui6159 — Wed, 06 Nov 2024 05:18:59 GMT

I am reference the below lisp.

(defun C:LAYERS_OFF (/ layobj)
(vl-load-com) ;
(foreach layname '("A002_A" "A002_B" "A002_C" "A002_D") ;
(if
(setq layobj (tblobjname "layer" layname)) ;
(progn

(vla-put-LayerOn (vlax-ename->vla-object layobj) 0) ;
(princ (strcat "\nLayer " layname " has been turned Off."))
)
)
)

(princ) ;
)

回复： Seek a lisp for Layer turn off for Prefix "A002"

komondormrex — Wed, 06 Nov 2024 07:31:13 GMT

switch off either layer with the name in the list '("A002_A" "A002_B" "A002_C" "A002_D").

(defun C:LAYERS_OFF nil (vl-load-com) (vlax-map-collection (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) '(lambda (layer) (if (and (wcmatch (vla-get-name layer) "A002*") (minusp (vlax-get layer 'layeron)) ) (vlax-put layer 'layeron 0) ) ) ) (princ) )

updated

回复： Seek a lisp for Layer turn off for Prefix "A002"

skchui6159 — Wed, 06 Nov 2024 07:18:25 GMT

I want to switch off like below:

"A002___A"

"A002_13"

"A002"

"A00200"....etc

回复： Seek a lisp for Layer turn off for Prefix "A002"

komondormrex — Wed, 06 Nov 2024 07:31:33 GMT

#4 updated

回复： Seek a lisp for Layer turn off for Prefix "A002"

Kent1Cooper — Wed, 06 Nov 2024 13:09:39 GMT

I agree with @Sea-Haven in Message 2 -- and in AutoLisp terms, nothing more than this is needed:

(defun C:YourCommandName ()

(command "_.layer" "_off" "A002*" "")

(prin1)

)

Re: Seek a lisp for Layer turn off for Prefix "A002"

Sea-Haven — Wed, 06 Nov 2024 22:47:27 GMT

Thanks Kent, I just typed, -la off a002* enter, took what 4 seconds do we need code ? The command name as suggested by Kent "A002", say 1 second to type.