求助!
lisp吧
全部回复
仅看楼主
level 2
衒逺小志
楼主
这是把非打印图层关闭的插件,想问一下怎么才可以把他变成显示非打印图层的插件
2019年06月04日 15点06分
1
level 1
宁宁宁92
王丛杰?
2020年05月01日 01点05分
2
level 1
dnbc1
;如果非打印图层是打开,则第1次运行则将其关闭,第2次则将打开;
;反之亦然。
(defun c:fdy()
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq layers (vla-get-layers doc))
(vlax-for layer layers
(if (= (vlax-get-property layer "Plottable") :vlax-false)
(if (= (vlax-get-property layer "LayerOn") :vlax-false)
(vlax-put-property layer "LayerOn" :vlax-true)
(vlax-put-property layer "LayerOn" :vlax-false)
)
)
)
(princ)
)
2020年09月28日 09点09分
4
1