编程申请.

baozhiliang

dispbbs.asp?boardID=1&ID=27979&page=2 关于上面贴子中的图纸,小弟有问题请教,有没有关于清理这些图层过滤器的命令行方式?或者定制一个按钮来一次完全清除?我的LT2000和2002里面没有2004里的全部清除按钮.能不能写个LSP程序来完成这个工作?给大侠们一个挑战吧!

龙龙仔

(defun CAYERFILTERSDELETE ()
(vl-load-com)
(vl-catch-all-apply
'(lambda ()
(vla-remove
(vla-getextensiondictionary
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
"ACAD_LAYERFILTERS"
)
)
)
(princ "\nAll layer filters have been deleted.")
(princ)
)

citykunan

龙版主的程序总是那么好。