动态引线标注源码(升级 V2.0，可设置参数)

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

提示: 作者被禁止或删除内容自动屏蔽

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

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2013-6-23 15:13:09 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

[源码] 动态引线标注源码(升级 V2.0，可设置参数)