如何用lsp程序判断是否存在一个图层？
www.dimcax.com
如何用lsp程序判断是否存在一个图层？
如何用lsp程序判断是否存在一个图层？如果不存在则建立该图层，如果存在则将该图层内得所有对象清空，最后将该图层设为当前图层？
(defun c:judgelayer ()
(setq s (getstring "\n 输入要查找的图层名："))
(setq layername (cdr (assoc 2 (tblnext "layer" 0))))
(setq layernamelist (list layername))
(while (setq layertable (tblnext "layer"))
(setq layername (cdr (assoc 2 layertable)))
(setq layernamelist (append layernamelist (list layername)))
)
(setq i 0
n (length layernamelist)
)
(while (< i n)
(if (= s (nth i layernamelist))
(setq i 1000)
)
(setq i (1+ i))
)
(if (= i 1001)
(print (strcat "\n 存在图层" s))
(print (strcat "\n 找不到图层" s))
)
(princ)
)
在我机子上运行成功，大家试试，有建议尽管提
progress every day!!!
(if (null (tblsearch "layer" "要判断的图层名"))
(command "layer" "m" "要判断的图层名" "")
(progn
(command "layer" "t" "要判断的图层名" "u" "要判断的图层名" "on" "要判断的图层名" "s" "要判断的图层名" "")
(if (setq ss (ssget "all" '(( 8 . "要判断的图层名"))) )
(command "erase" ss "")
)
)
)
把程序复制到任意程序里,将"要判断的图层名"换成要的图层名就行了.
欢迎大家跟我交流lisp相关问题