社区 › AutoLISP/Visual LISP 编程技术 › 标注图层名在线段右侧

alexmai 发表于 2023-4-23 13:34:48

画线表示不理解，跟论坛中“提取图层名字”，是相同用法

;;提取图层名字
(defun C:tcn (/ LST N PT)
(setvar "cecolor" "bylayer")
(setq LST (reverse (TABLE "LAYER")))
(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)
)

(defun TABLE (S / D R)
(while (setq D (tblnext S (null D)))
    (setq R (cons (cdr (assoc 2 D)) R))
)
)

aggdqty 发表于 2023-6-8 22:04:22

本帖最后由 aggdqty 于 2023-6-8 22:08 编辑

kucha007 发表于 2023-4-15 23:09
最近可能会用到，就做了点改动。
01-获取首尾端点坐标，判断那个才是右侧端点。
02-文字高度改为GetDist ...
麻烦问一下，出来后是全是问号，这里面哪个是控制字体的，谢谢

kucha007 发表于 2023-6-8 23:09:10

aggdqty 发表于 2023-6-8 22:04
麻烦问一下，出来后是全是问号，这里面哪个是控制字体的，谢谢

没有设置字体样式。你当前是啥就是啥

aggdqty 发表于 2023-6-9 08:55:12

kucha007 发表于 2023-6-8 23:09
没有设置字体样式。你当前是啥就是啥

好的，谢谢         

查看完整版本: 标注图层名在线段右侧