【求助】如何用LISP批量关闭带某一前缀的图层

江南十笑

RT   如何用LISP批量关闭带某一前缀（如参照的前缀 AX-XXX）的图层，把所有带AX前缀的图层都关闭？

yshf

;试用以下程序
(defun c:test()
    (vl-load-com)
    (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))

    (If (setq str (getstring "\n请输入要关闭图层名的前缀:"))
        (vlax-for layer (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
            (if (and (wcmatch (vlax-get layer "Name") (strcat str "*"))
                     (= (vla-get-LayerOn layer) :vlax-true)
                )
                (vla-put-LayerOn layer :vlax-false)
            )
        )

    )
  
    (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
    (princ)
)

Andyhon

用 AX-* ...

guohq

(command "-layer" "off" "前缀*" "")

江南十笑

guohq 发表于 2019-6-4 00:32
(command "-layer" "off" "前缀*" "")

谢谢  ,能否进一步问一下  ，这个关  能否把含有某个关键词的图层打开呢？

江南十笑

yshf 发表于 2019-6-3 23:32
;试用以下程序
(defun c:test()
    (vl-load-com)

谢谢

Andyhon

...某个关键词...

搜寻 wcmatch 函数应用的相关例句

guohq

(command "-layer" "on" "前缀*" "")