新手悬赏一画完pline线后自定标注线长的文件

显示全部楼层 · 发表于 2012-5-12 10:17:43

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

vlisp2012 · 发表于 2012-5-12 10:17:44

本帖最后由 vlisp2012 于 2012-5-12 12:59 编辑

(defun c:ccq( / pt ve wzgd xian xianchang zd);;;修改了一下，带编号和线宽。
  (VL-LOAD-COM)
  (setq wzgd (getvar "textsize"))
  (setvar "PLINEWID" 1.75)
  (setq no (getint "多段线起始编号："))
  (while (setq pt(getpoint "请输入多段线的起点:"))
(command "_.pline" pt)
(while (/= 0 (getvar "cmdactive"))
   (command pause)
)
(setq xian (entlast))
(setq xianchang (Vlax-Get (Vlax-Ename->Vla-Object xian) 'Length ))
   (setq ve (vlax-ename->vla-object xian))
   (setq zd (vlax-curve-getPointAtDist
   ve
   (* 0.5 xianchang)
))
   (command "text"
   "j"
   "m"
   zd
   wzgd
   0.0
   (strcat "BB-" (itoa no) "总长度为" (rtos xianchang 2 1))
)
(setq no (1+ no))
  )(princ)
)

显示全部楼层 · 发表于 2012-5-12 10:19:16

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

357785513 · 发表于 2012-5-12 10:49:34

哥,太自动了也不好,以后那就是电脑自己在画图,咱都得下岗回家种地呀,

print1985 · 发表于 2012-5-12 10:50:42

“标注在线的中点位置附近（别差太远就行），且与线的中点位置线的方向角度基本一致”
我觉得有一定难度，手动选择标注位置并对齐pl线稍简单一些，等高手

【KAIXIN】 · 发表于 2012-5-12 11:18:00

本帖最后由【KAIXIN】于 2012-5-12 11:19 编辑

这个币给别人挣：

给点思路：用选到最后一次生成的对象，计算写入线长

Andyhon · 发表于 2012-5-12 11:32:12

附上个手动处理完工的样例(*.Dwg)会明确些

显示全部楼层 · 发表于 2012-5-12 12:38:33

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

显示全部楼层 · 发表于 2012-5-12 12:47:56

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

print1985 · 发表于 2012-5-12 12:51:24

谢谢7楼程序可以运行你再试试
vlax-curve-getPointAtDist函数是关键求到了线的中点
还剩一步文字角度对齐到中点处的PL线
希望7楼继续

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

whoami3340a 该用户已被删除	发表于 2012-5-12 10:17:43 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽
whoami3340a 该用户已被删除	相关帖子 • AUTOCAD——快速闭合线段 • AUTOCAD——坐标引线标注 • AUTOCAD——设置文字间距与行距 • AUTOCAD——超级填充 • AUTOCAD——超级填充命令2 • AUTOCAD——五种标注快捷键 • AUTOCAD——总结CAD画圆角的三种方式 • AUTOCAD——两种延伸方式 • AUTOCAD——三种修剪方式 • 分享一个小程序，实用 • cui快捷键，F1正交切换，CAD自定义热键汇总贴 • 动态改标注文字高度，动态文字高度，，两个功能！两个功能！
	回复使用道具举报置顶卡变色卡显身卡

whoami3340a 该用户已被删除	楼主\| 发表于 2012-5-12 10:19:16 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
whoami3340a 该用户已被删除
	回复使用道具举报显身卡

whoami3340a 该用户已被删除	楼主\| 发表于 2012-5-12 12:38:33 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
whoami3340a 该用户已被删除
	回复使用道具举报显身卡

whoami3340a 该用户已被删除	楼主\| 发表于 2012-5-12 12:47:56 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
whoami3340a 该用户已被删除
	回复使用道具举报显身卡

新手悬赏一画完pline线后自定标注线长的文件

相关帖子

点评