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

yxp

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

meflying

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

无痕

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

yxp

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

ml2002