检查图层创建图层

花开梦落

怎样用Lisp检查图中有没有某图层然后把某图元挪到该图层，或在没有该图层的情况下创建此图层然后再........

citykunan

;判断有没有aaa这个层 (defun test ( / ss)
(setq ss (ssget))
(if (/= (tblsearch "layer" "aaa") nil)
(command "change" ss "" "p" "la" "aaa" "")
(progn
(command "-layer" "n" "aaa" "")
(command "change" ss "" "p" "la" "aaa" "")
)
)
)

maomao2004

简洁明了啊，如果搂住不熟悉符号表也可用选择集过滤 (defun test ( / ss)
(setq ss (ssget "x" '(8."aaa"))) (if (/= ss nil)
(command "change" ss "" "p" "la" "aaa" "")
(progn
(command "-layer" "n" "aaa" "")
(command "change" ss "" "p" "la" "aaa" "")
)
)
)

18112600842

新手学习，留个脚印。