单线图绘制程序0.6
tanyuefengge
2008年05月16日 18:42:16
只看楼主

这是我自己开发的单线图焊口标记程序,其中原代码全部公开程序,为中石油做资料时使用的程序,比较简陋,我希望有电脑高手不断完善这个程序,能像LIUNX那样就好了。成不了也没有关系,供初学者参考吧!!支持自由软件事业,支持原代码开放!!该程序基于 AutoCAD2006开发而成,使用Autolisp语言编写代码,适用CAD2000 – CAD2008,程序能快速绘制工艺管线正等侧轴视图.

这是我自己开发的单线图焊口标记程序,其中原代码全部公开程序,为中石油做资料时使用的程序,比较简陋,我希望有电脑高手不断完善这个程序,能像LIUNX那样就好了。

成不了也没有关系,供初学者参考吧!!

支持自由软件事业,支持原代码开放!!


该程序基于 AutoCAD2006开发而成,使用Autolisp语言编写代码,适用CAD2000 – CAD2008,程序能快速绘制工艺管线正等侧轴视图.

程序主要有两个功能:快速插入块、快速标记焊口为主;其它有些自定义命令,如旋转文字、打断直线交点等。

程序由吉化集团北建第九分公司安装技术人员开发,由于工艺管线没有规定的制图标准,所以采用自定义图块。

本软件为自由软件代码公开,可以修改、发布,传播,但必须明确标注原作者葛万佳。

1. 程序简介

该程序基于 AutoCAD2006开发而成,使用Autolisp语言编写代码,适用CAD2000 – CAD2006,程序能快速绘制工艺管线正等侧轴视图.

程序主要有两个功能:快速插入块、快速标记焊口为主;其它有些自定义命令,如旋转文字、打断直线交点等。

程序由吉化集团北建第二分公司安装技术人员开发,由于工艺管线没有规定的制图标准,所以采用自定义图块。

本软件为自由软件,可以修改、发布,传播,但必须明确标注原作者。



2.程序文件简介

程序文件主要由块库—draw文件夹、程序库—program、帮助文件、单线图模板组成。

其中大部分管件在draw文件夹中,程序加载需要program文件中的ID.vlx,OL.mnu。

如果使用者懂得AUTLLISP语言可以增加功能,我的原代码是公开的,在code文件夹中。



3.程序使用方法

第一 双击setup.exe文件,一路下一步就可以了。

第二 加载程序菜单文件:

操作方法:输入menuload→对话框→菜单栏→菜单组→选择piping→插入→用上移和下移调整插入位置。

最后,使用单线图模板,模板中已经设置好一些功能和图层,该程序必须依赖此模板;如果不用,程序也能进行,只是会自动生成图层,如果对命令熟悉可以不加载菜单文件,视个人喜好而定。





4.命令使用

命令以快速插入图块命令为主,其中的大部分管件为阀类、大小头等;由于代码公开,所以有能力者可以自定义图块。

4.1 插入图块的命令:

球阀: Q1、Q2、Q3。

闸阀: Z1、Z2、Z3

截止阀: J1、J2、J3

电动调节阀:DD1、DD2

安全阀: A1、A2

大小头: D1、D2、D3、D4、D5、D6

疏水阀: S1 S2 S3

旋起阀: XQ1

阻火器: ZH1

方向表示: FX

单线图图框TK

探伤符号: TS

这些命令是以管件汉字拼音缩写。

命令执行需要输入比例,如使用默认,那么回车即可,命令中的阿拉伯数字和下图的方向是一致的。





4.2标记焊口命令

命令为:WLC 输入后提示选择对象:选取标记焊口管段,输入到管线两端的距离,最后输入标记点的半径,如图黄点为标记焊口。


4.3标记焊口序号命令

命令为:WT 命令执行提示输入字符高度、起始字符、然后可以点。

序号会自动递增1。


4.4手动标焊口命令

命令为: WL

这个命令和上个命令类似,只是能自动在管线标出焊口位置,并且序号自动递增;

注意在管线附近点,程序会自动捕捉离管线最近的点,同时生成焊口符号,如果太远程序会提示捕捉不到。


4.5 打断选取区域内直线交点命令

命令为:OL

这个命令主要处理管线中三通,使其也能标记焊口;注意该命令效率并不高,打断20000交点需要159s,乱打断是恢复不了。

选取直线,命令执行后返回消耗的时间,通过WLC来验证如图:


4.6打断命令

命令为: BI

主要形成立体感,先选两直线的交点,后选要断直线,必须点在直线上。

注意:先选交点时,只要把光标放在交点附近不要太远,程序会自动捕捉的;第二个点一定要在那个要打断直线上。

建议使用AutoCAD2005、AutoCAD2006,因为选取时会高亮显示。


4.7 BREAK的改进版

命令为:BV 先选取直线,然后直接选择直线上的两个点。

4.8 旋转文字命令

命令为:T3、T5、T9。

依次逆时针旋转30度、顺时针旋转30,旋转90度。


4.9 恢复命令

命令 BZ

人有失误,马有失蹄!! 程序也不是那么完善的。

如果命令使用不当,或不小心、失误,可以用该命令来恢复先前的捕捉设置。

另外,介绍一个小命令(不是我开发的)命令为 JOIN 可以把断开的直线连接上(两直线在一条直线上)。

4.10 连续标记焊口命令

命令为 GW

该命令应该慎用,因为还有不完善地方,实在是小弟本人水平有限,但是这个命令也是最强大的。

使用方法:第一选择管线的开始点和开始点所在的直线。

第二 选择分支点后你想标记正确方向那个直线(是直线不是点),有几个分支标记几个。

第三 选择管线最后一个直线。

注 意:如果管线没有分支,那么第二就不用选;在程序执行的过程中图形会缩放一下;在测试版中会显示一些执行过程中的数据,在正式版中就不会显示了。

如果有分支的话,分支必须用ol命令把分支的直线打断(切记)。




5. 关于模板的说明

模板自动设置一些图层,为了方便绘图和以后升级使用,主要是管线层、无损检验层、标注尺寸层、标注文字层,

同时,还有一些必要设置,这样可以使绘图事半功倍。

6. 存在的问题

6.1 程序不能屏蔽ESC键,所以在程序命令还有执行完时;如果按下ESC,那么导致程序中间变量不能恢复,结果是“对象捕捉”栏所有的设置全部重新设置。

6.2 养成良好的绘图习惯,因为该程序少部分命令不可以Ctrl + Z撤消。

6.3 还有标注部分程序,我可以在以后完成,如果有好的意见及时联系我。

6.4 本人将在明年为程序添加读写Excel文件的功能,为定位测量做准备。

7.使用反馈

如果使用本软件,发现有任何问题请与作者联系。


298f57cdfe8301dee1a7.rar
619 KB
立即下载
免费打赏
coolfish_me
2008年05月24日 23:03:32
2楼
非常感谢,学习学习
回复
js7500
2008年07月09日 08:05:03
3楼
谢谢楼主!是否能做成3D的,那更好也!
回复
yexin_2003
2008年07月26日 09:53:35
4楼
谢谢楼主!是否能做成3D的,那更好也!
回复
智慧鑫鑫
2008年07月26日 09:55:13
5楼
谢谢楼主!是否能做成3D的,那更好也!
回复
bbttgg
2008年08月02日 08:31:49
6楼
谢谢楼主无私奉献,下载下来学学,看看好不好用
回复
quguangpeng
2009年05月30日 18:40:51
7楼
xiexie a 看看
回复
vickyyangzhen
2010年01月07日 12:34:17
8楼
hao,zhi chi yi xia
回复
ysdxlrxy
2010年01月19日 21:10:29
9楼
支持,非常感谢
回复
yindaqing
2010年02月05日 09:03:25
10楼
唉呀,单线图绘制也成了设备专业的内容了,好累。
回复
yindaqing
2010年02月05日 09:15:38
11楼
老兄,怎么样才能用到cad2007\2008呀?
回复

相关推荐

APP内打开