【设备专业】管线标注

张和平 · 发表于 2013-7-28 01:33:11

本帖最后由张和平于 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 · 发表于 2013-8-21 08:02:46

本帖最后由 l18c19 于 2014-2-19 15:14 编辑

很有用的程序，值得下载研究学习！

12楼朽木大师的程序很好，本人不会编程，但有3点建议(目的是想用于平面管道图的管径、长度标注)：
1、希望线上、线下能编一个调整与线距离的对话框(不知现间距与线上、线下有何关联？，现离得太远)
2、希望标注的管长格式为“L=X.XXX m”(X为数据，以米为单位保留三位小数 )。
3、希望管长可以自己选择保留一位小数点、两位小数点、三位小数点(X.XXX ，包括小数点后面的0)。

感谢啦！

kevinq0916 · 发表于 2018-4-26 09:07:22

今早在单位的电脑上，加载了管线标注程序，非常顺利，没有卡顿死机，cad版本都是2014，区别是家中电脑是win10,单位电脑是win7,是不是系统影响了程序正常工作？非常感谢张和平大师和朽木大师，因为你们的无私奉献，使我等画图匠，能从繁琐的机械操作中，节省一点时间和精力。最近对lisp很感兴趣，只是苦于没有时间，希望将来有机会向两位讨教。

kevinq0916 · 发表于 2018-4-25 22:16:03

在管线标注窗口进行操作后，点击确定键，cad会立刻死机（测试版本cad2014,2016）

tianyi1230 · 发表于 2013-7-28 15:20:14

还是张工热心，这个程序是在绘制总平管网图常用的功能，我又抢个沙发，哈哈

张和平 · 发表于 2013-7-28 16:13:59

tianyi1230 发表于 2013-7-28 15:20
还是张工热心，这个程序是在绘制总平管网图常用的功能，我又抢个沙发，哈哈

啊哦，，，我不知道具体有什么用，不是这个专业的，上次一个网友来邀请我编的，上次答应人家了，所以就弄了个，，，

完整武器 · 发表于 2013-7-28 23:13:17

本帖最后由完整武器于 2013-7-28 23:17 编辑

文字样式貌似改了没起作用

njut_prince · 发表于 2013-7-29 09:30:07

本帖最后由 njut_prince 于 2013-7-29 09:38 编辑

我06版的CAD怎么标注显现不出来呀。。。。就是标注了什么也没有。。

张和平 · 发表于 2013-7-29 12:33:02

njut_prince 发表于 2013-7-29 09:30
我06版的CAD怎么标注显现不出来呀。。。。就是标注了什么也没有。。

字体，图层请选择正确，，，

张和平 · 发表于 2013-7-29 12:36:01

完整武器发表于 2013-7-28 23:13
文字样式貌似改了没起作用

看了下，确实是这样的，，待我改一下，，

张和平 · 发表于 2013-7-29 12:46:21

完整武器发表于 2013-7-28 23:13
文字样式貌似改了没起作用

请重新下载试试看

张和平 · 发表于 2013-7-29 12:46:51

njut_prince 发表于 2013-7-29 09:30
我06版的CAD怎么标注显现不出来呀。。。。就是标注了什么也没有。。

另外你看看是不是比例的问题，，因为默认字体是很小的，，，

njut_prince · 发表于 2013-7-29 17:54:39

张和平发表于 2013-7-29 12:46
另外你看看是不是比例的问题，，因为默认字体是很小的，，，

确实是字体问题，谢谢您

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

[源码] 【设备专业】管线标注

本帖子中包含更多资源

点评

评分

相关帖子