yxp 发表于 2005-9-29 22:35:00

[分享]能返回所有图层的表，从DDMODIFY中找出来的

&nbsp;(defun make_lay_lists (/ layname sortlist name templist layer_number)<BR>&nbsp;&nbsp;&nbsp; (setq sortlist nil)<BR>&nbsp;&nbsp;&nbsp; (setq templist (tblnext "LAYER" T))<BR>&nbsp;&nbsp;&nbsp; (setq layer_number 1)<BR>&nbsp;&nbsp;&nbsp; (while templist<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; No xref dependent layers, please.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (/= (logand 16 (cdr (assoc 70 templist))) 16)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq name (cdr (assoc 2 templist)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq sortlist (cons name sortlist))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ; Get the next layer.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq templist (tblnext "LAYER"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; Not dead message...<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (/ layer_number 50.0) (fix (/ layer_number 50.0)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "error" (strcat "Collecting..." (itoa layer_number)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq layer_number (1+ layer_number))<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp; (set_tile "error" "")<BR>&nbsp;&nbsp;&nbsp; (if (&gt;= (getvar "maxsort") (length sortlist))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&gt; layer_number 50)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "error" "Sorting...")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq sortlist (acad_strlsort sortlist))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq sortlist (reverse sortlist))<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp; (set_tile "error" "")<BR>&nbsp;&nbsp;&nbsp; (setq laynmlst sortlist)<BR>&nbsp; )

meflying 发表于 2005-9-30 12:47:00

又是哪儿抄来的吧,改得乱七八糟的

无痕 发表于 2005-10-1 10:03:00

兄弟佩服，这也能找出来。呵呵：P

yxp 发表于 2005-10-1 11:40:00

呵呵，我一字未改啊，不信你查R14的DDMODIFY命令。

ml2002 发表于 2017-12-9 01:30:01

页: [1]
查看完整版本: [分享]能返回所有图层的表，从DDMODIFY中找出来的