【设备专业】管线标注
本帖最后由 张和平 于 2013-7-29 12:46 编辑===V1.1===2013/07/29===
源码：
更新：修改了不能更改文字样式的bug
===========================
应网友邀请编写，原帖：http://bbs.mjtd.com/thread-106784-1-1.html
源码：
家里电脑不方便截动图，那么就用图片和操作显示来代替：
情况1（正常绘制）：
命令: PEACE-GXBZ
PEACE-GXBZ 管线标注
>>> 指定管道起始点或[设置(S)]<退出>: S PEACE-GXBZ 管线标注
>>> 指定管道起始点或[设置(S)]<退出>: (1018.39 265.43 0.0)
>>> 指定管道下一点<退出>: (1060.12 245.334 0.0)
>>> 指定管道下一点<退出>: (1098.12 271.384 0.0)
>>> 指定管道下一点<退出>: (1147.31 271.384 0.0)
>>> 指定管道下一点<退出>: (1165.16 311.592 0.0)
>>> 指定管道下一点<退出>: (1218.85 287.759 0.0)
>>> 指定管道下一点<退出>:
*** 管线标注完成!
命令:PEACE-GXBZ PEACE-GXBZ 管线标注
>>> 指定管道起始点或[设置(S)]<退出>: S PEACE-GXBZ 管线标注
>>> 指定管道起始点或[设置(S)]<退出>: (1018.39 265.43 0.0)
>>> 指定管道下一点<退出>: (1060.12 245.334 0.0)
>>> 指定管道下一点<退出>: (1098.12 271.384 0.0)
>>> 指定管道下一点<退出>: (1147.31 271.384 0.0)
>>> 指定管道下一点<退出>: (1165.16 311.592 0.0)
>>> 指定管道下一点<退出>: (1218.85 287.759 0.0)
>>> 指定管道下一点<退出>:
*** 管线标注完成!
情况2（非正常绘制）：
命令:PEACE-GXBZ PEACE-GXBZ 管线标注
>>> 指定管道起始点或[设置(S)]<退出>: (1066.47 210.38 0.0)
>>> 指定管道下一点<退出>:
*** 程序退出!
绘制效果：字体原因，有些字符不能正常显示
本帖最后由 l18c19 于 2014-2-19 15:14 编辑
很有用的程序，值得下载研究学习！
12楼朽木大师的程序很好，本人不会编程，但有3点建议(目的是想用于平面管道图的管径、长度标注)：
1、希望线上、线下能编一个调整与线距离的对话框(不知现间距与线上、线下有何关联？，现离得太远)
2、希望标注的管长格式为“L=X.XXX m”(X为数据，以米为单位保留三位小数 )。
3、希望管长可以自己选择保留一位小数点、两位小数点、三位小数点(X.XXX ，包括小数点后面的0)。
感谢啦！ 今早在单位的电脑上，加载了管线标注程序，非常顺利，没有卡顿死机，cad版本都是2014，区别是家中电脑是win10,单位电脑是win7,是不是系统影响了程序正常工作？非常感谢张和平大师和朽木大师，因为你们的无私奉献，使我等画图匠，能从繁琐的机械操作中，节省一点时间和精力。最近对lisp很感兴趣，只是苦于没有时间，希望将来有机会向两位讨教。 在管线标注窗口进行操作后，点击确定键，cad会立刻死机 （测试版本cad2014,2016） 还是张工热心，这个程序是在绘制总平管网图常用的功能，我又抢个沙发，哈哈 tianyi1230 发表于 2013-7-28 15:20 static/image/common/back.gif
还是张工热心，这个程序是在绘制总平管网图常用的功能，我又抢个沙发，哈哈
啊哦，，，我不知道具体有什么用，不是这个专业的，上次一个网友来邀请我编的，上次答应人家了，所以就弄了个，，， 本帖最后由 完整武器 于 2013-7-28 23:17 编辑
文字样式貌似改了没起作用 本帖最后由 njut_prince 于 2013-7-29 09:38 编辑
我06版的CAD怎么标注显现不出来呀。。。。就是标注了什么也没有。。 njut_prince 发表于 2013-7-29 09:30 static/image/common/back.gif
我06版的CAD怎么标注显现不出来呀。。。。就是标注了什么也没有。。
字体，图层请选择正确，，， 完整武器 发表于 2013-7-28 23:13 static/image/common/back.gif
文字样式貌似改了没起作用
看了下，确实是这样的，，待我改一下，， 完整武器 发表于 2013-7-28 23:13 static/image/common/back.gif
文字样式貌似改了没起作用
请重新下载试试看 njut_prince 发表于 2013-7-29 09:30 static/image/common/back.gif
我06版的CAD怎么标注显现不出来呀。。。。就是标注了什么也没有。。
另外你看看是不是比例的问题，，因为默认字体是很小的，，， 张和平 发表于 2013-7-29 12:46 static/image/common/back.gif
另外你看看是不是比例的问题，，因为默认字体是很小的，，，
确实是字体问题，谢谢您