巧用autolisp编程实现引大入港工程管道特征点标注

《巧用autolisp编程实现引大入港工程管道特征点标注》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、巧用AUTOLISP编程实现引大入港工程管道特征点标注摘要：本文阐述利用AUTOLISP语言技术完成引大入港管道输水工程特征点标注工作的编程主要开发过程。关键词：AUTOCAD；AUTOLISP；编程；管道特征点Abstract:ThispaperdescribesusingtheAUTOLISPlanguagetechnologycompletesthemaindevelopmentprocessofthecitedinpipelineengineeringfeatureannotationworkprogramming.Keywords:AUTOCAD;AUTOLISP;programmi

2、ng;pipelinefeaturepoint中图分类号：TV222.1文献标识码：A文章编号：2095-2104（2012）0前言AutoCAD是现代工程设计中广泛采用的设计方法和手段。多年来，它一直是国内使用最广泛、应用最成熟的计算机辅助绘图及设计软件，在水利设计等工程方面使用非常广泛。AutoLISP是由Autodesk公司开发的一种LISP程序语言，作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具。1工程概况5引大入港管道输水工程是从沧州大浪淀水库引水至临港化工园区向大港油田采油三厂、黄骅市、沧化集团沧井公司供水的管道输水工程。工程主要建筑包

3、括供水泵站和79.3km的输水线路，管材为主管道自供水泵站至大港油田分支采用预应力钢筒砼管道，直径1200mm，主管道自大港油田分支至黄骅市分支采用预应力混凝土管道，直径1200mm，黄骅市分支和沧化集团分支分别采用直径为600mm和800mm的玻璃钢管道输水，穿越工程及与管件阀件连接段采用钢管。工程总投资为15367.05万元。2开发缘由在管道工程设计过程中，纵断面图管道特征点的标注是必不可少的。由于管道上需要标注的特征点类型非常多：如桩号、地面高程变化、管道附件、拐点等，因此如果采用人工标注的方法则相当繁琐，是必会占用大量人力物力，从而造成设计成本增加和设计周期的延长；并且由于工作的繁琐性

4、，会造成许多人为错误。为了解决这一难题，本人设计采用AUTOLISP语言开发了管道特征点标注程序。3开发环境操作系统：WINDOWSXP；CAD系统：AUTOCAD2004；开发软件：AUTOLISP4开发过程54.1创建标准纵断图以横1:100、纵1:200的比例、断面长度每500m一段，创建标准的A2幅面AUTOCAD纵断面图，并人工绘制需要标注特征点的竖向桩号线。4.2工作环境初始化程序的编制4.2.1初始化坐标原点并建立工作坐标系(setqzbydczd(getpoint“请输入坐标原点参照点：”))(setqzbyd(getpoint“请输入坐标原点：”))(command“

5、ucs”“m”zbydczd)(command“ucs”“m”zbyd)4.2.2初始化标准图标注位置点及桩号起始点(setqstart_zh1(getint“请输入该图起始整桩号：”))(setqstart_zh2(getint“请输入该图起始分桩号：”))(setqstart_y(cadr(getpoint“请输入文字起始点:“)))4.2.3选择需要标注的管径尺寸(setqgj(getint“请输入管道直径：1,直径1200毫米；2,直径800毫米；3,直径600毫米：”))4.3管道特征点标注主程序的编制54.3.1在屏幕上可以直接拾取的特征点坐标。(setqgxbg(

6、getpoint“请输入管道中心标高点坐标：“))（原地面标高、设计地面标高特征点程序源代码同上类似：略）4.3.2依据拾取点Y坐标值在图纸指定位置计算输出特征点标注数值。例如：计算并输出管中心标高（源代码如下）(setqbg3(/(float(cadrgxbg))10))(setqa1(fix(*bg31000)))(setqa2(*(fix(*bg3100))10))(if(<(-a1a2)5)(setqbg3(/(floata2)1000))(setqbg3(/(+(/(floata2)10)1)100)))(command“text”(list(cardmbg)(-start_y3

7、0))“3”“90”(rtosbg322))（桩号点、原地面标高、设计地面标高特征点程序源代码同上类似：略）4.3.3选择不同的管材类型来确定管道壁厚。(setqgclx(getint“请输入管材类型:1:钢管;2:钢筒砼管;3:预应力混凝土管;4:玻璃钢管）”))4.3.4依据不同的管材类型计算并输出覆土深度到图纸指定位置。5覆土深度=原地面标高-（管中心标高+管材壁厚+管道内径/2）例如：