图层问题

wql · 发表于 2002-8-3 22:38:00

请教如何用autolisp获取cad图形文件中所有的图层名称？
谢谢！

陈伯雄 · 发表于 2002-8-5 09:15:00

(Defun C:SLayer ()
   (SetQ snl '()
         sll (TblNext "LAYER" T)
   )
   (While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)
                  sll (TblNext "LAYER" nil)
            )
   )
   (PrinC "\n现有层：")(PrinC snl)(PrinC)
)

龙龙仔 · 发表于 2002-8-5 09:16:00

;;;USAGE: (TABLE_LIST "LAYER")
(defun TABLE_LIST (NAME / TBL TBL_LIST)
(while (setq TBL (tblnext NAME (null TBL)))
(setq TBL_LIST (cons (cdr (assoc 2 TBL)) TBL_LIST))
)
)

图层问题

发表回复

精选推荐

浏览过的版块