几个层的问题

zxy9108

我有些关于层的问题向各位高手请教：


1，如何用程序方法判断图形中时否存在某一层？


2，如何用ACTIVEX函数单开某层？增开某层？开闭某层？

meflying

(defun putlay(layname st / lays)
(if (tblsearch "layer" layname)
(progn
(setq lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
(vla-put-layeron (vla-item lays layname) st)
)
(alert "此层不存在!")
)
) (putlay "0" :vlax-true);打开"0"层 (putlay "1" :vlax-true);关闭"0"层... 不知道你的单开和增开是什么意思

zxy9108

单开的意思是只打开某层而关闭其它层；


增开的意思是某层原来是关的，现在把它打开