社区 › AutoLISP/Visual LISP 编程技术 › [求助]获取文件所有图层名，并把图层名写在对应的层上

alexmai 发表于 2019-3-8 17:36:04

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

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

yoyoho 发表于 2024-1-25 22:33:45

;;;排序和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 发表于 2024-1-26 08:52:35

不错的，学习一下

查看完整版本: [求助]获取文件所有图层名，并把图层名写在对应的层上