[求助]获取文件所有图层名，并把图层名写在对应的层上

alexmai

flowerson 发表于 2008-6-7 16:53
程序很好。倒叙一下和显示的顺序一样！(defun TABLE (S / D R)  (while (setq D (tblnext S (null D)) ...

可否修改一下，这些文字都自动跟随自己所在的图层？

yoyoho

;;;排序和CAD显示的顺序一样！

(defun TABLE (S / D R)
  (while (setq D (tblnext S (null D)))
    (setq R (cons (cdr (assoc 2 D)) R))
  )
)
(defun C:TT (/ LST N PT)
  (setq LST (acad_strlsort (TABLE "LAYER")))        ;;;CAD显示的顺序
  (setq PT (getpoint "文字插入点: ")
        N 0
  )
  (foreach NAME LST
    (entmake (list '(0 . "TEXT") (cons 8 NAME) '(100 . "AcDbText") (cons 10
                                                                         (list
                                                                               (car PT)
                                                                               (-
                                                                                  (cadr PT) N
                                                                               )
                                                                         )
                                                                   ) '
                   (40 . 6) (cons 1 NAME)
             )
    )
    (setq N (+ N 10.0))
  )
  (princ)
)

ljpnb

不错的，学习一下