标注图层名在线段右侧

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))
)
)

;;提取图层名字 
(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
没有设置字体样式。你当前是啥就是啥

好的，谢谢

账号		自动登录	找回密码
密码			注册

[源码] 标注图层名在线段右侧

本帖子中包含更多资源