hpy 发表于 2013-6-21 10:46:06

不错，不过程序每次只能标注一次，如果能多次标注就更好了。

848818376 发表于 2013-6-21 13:39:44

是啊，没字体字高，没箭头

香田里浪人 发表于 2013-6-21 15:21:10

感谢 langjs 分享程序源码!

香田里浪人 发表于 2013-6-21 15:31:19

冒昧修改一下,增加图层名及字体
(progn
      (setq pt0 (getpoint "\n指定引线起始位置:"))
      (princ (strcat "\n指定引线基线位置:"))
      (command "layer" "M" "标注" "C" "3" "" "LT" "CONTINUOUS" "" "");设置一个标注图层
      (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 3) (cons 10 pt0)
       (cons 10 pt0) (cons 10 pt0)))
      (setq ent1 (entget (setq name1 (entlast))))
      (entmake (list '(0 . "TEXT") (cons 1 txt) (cons 10 pt0) (cons 40 (* 1.3 bi h)) '(41 . 0.8)'(7 . "BG_ST")))
      (setq ent2 (entget (setq name2 (entlast))) w (caadr (textbox ent2)))

q3_2006 发表于 2013-6-21 16:49:13

改文字长度基线没变化呀？？

langjs 发表于 2013-6-23 14:29:04

增加了箭头

lgttblue 发表于 2013-6-23 14:41:16

给力！！顶起

gtj116600 发表于 2013-6-23 15:02:08

大侠作品，超级给力

仲文玉 发表于 2013-6-23 15:13:01

不错的程序，支持郎

峰峰兒 发表于 2013-6-23 15:13:09

页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 动态引线标注源码(升级 V2.0，可设置参数)