【转帖】获取所有图层名的方法，vlisp小程序
 

获取所有图层名的方法，vlisp小程序
www.dimcax.com
获取所有图层名的方法，vlisp小程序
获取全部图层名的vlisp程序，自己编的，好好兴奋啊，
(defun c:getlayername ();获得所有图层名
(setq layername (cdr (assoc 2 (tblnext "layer" t))))
(setq layernamelist (list layername))
(while (setq layertable (tblnext "layer"))
(setq layername (cdr (assoc 2 layertable)))
(setq layernamelist (append layernamelist (list layername)))
)
)
输入命令名getlayername 回车即可
那位有更好的方法不妨分享一下啊！！！！

progress every day!!!

(defun getalllayer()
(setq all_layer '() ctb (tblnext "layer" t))
(while ctb
(setq all_layer (cons (cdr (assoc 2 ctb)) all_layer))
(setq ctb (tblnext "layer"))
)
(setq all_layer (reverse all_layer))
)
基本上和樓主的是一樣的.
欢迎大家跟我交流lisp相关问题

这怎么获得

小程序呢？放上来共享一下
中国模具网(www.china-mold.cn)
让信息技术交流成为我们发展,提高的好帮手!

楼主讲一下怎么使用？