LISP 圆孔标记_AUTOLISP编程实现正交开孔圆管展开图快速绘制

本文以AUTOLISP编程实现了正交圆孔中心位置确定、两母线投影定宽的展开和正交圆孔相贯线的展开。在该程序生成相贯线展开图时,将图样中圆孔细分为80份,并生成展开图中点的对应位置,应用了“SPLINE”命令进行绘制,该内容直接针对于现场加工,有着重要的实际应用价值。三种图形直接在AUTOCAD中生成,从而减少了软件对接过程的繁琐,提高了工作效率和作图质量。1.正交开孔圆管展开图涉及内容及分析正交开孔圆管如图1所示,其参数由管材内外径、加工孔径、孔密集度和相位等构成。在加工过程中,图形是按内径展开,展开图涉及正交圆孔中心位置的确定及绘制、两母线投影定宽的展开绘制、正交圆孔相贯线展开图绘制。图1(1)正交圆孔中心位置确定管材展开平面如图2所示,L1、L4、内孔径、孔密值、相位数为输入值,由用户输入;L2、L3、L5、L为计算值,其中图2L2=L1-2L4L3=L2/(1000/孔密集度值)L5=L/相位数L=(2)两母线投影定宽的展开计算两母线投影定宽的展开换算如图3所示,1、L1为输入值,由系统输入;L1、L2为计算值,其中L1=1L2=222-arctan(1/2)2-(L1/2)槡2L1[()]/2图3(3)正交圆孔相贯线展开计算圆柱面正交开孔相贯线展开换算如图4所示,1、2为输入值,由系统输入;L1为选取值,由程序选取;L2、L3为计算值,其中L2=(2/2)2-L槡21L3-2-arctan(2/2)2-L槡21L[()]1122.对应编制的AUTOLISP程序AUTOLISP语言是AUTOCAD内嵌式的编程语言,使用AUTOLISP进行绘图,大大提高了作图效率,保证了作图质量。考虑到绘图的方便性,指令均采用左手键。图4(1)正交圆孔中心位置的确定及绘制程序如下:(defunc:wt();(圆柱面中心位置确定及作图);(setqphi(getreal"请输入管材内径:")h(getreal"n请输入管材总长:")pt1(getpoint"n请点取左下点:")phip(*phipi));计算周长值(command"line"pt1(polarpt10phip)"");(本行及以下三行绘制展开外边框)(command"line"pt1(polarpt1(*pi0.5)h)"")(command"line"(polarpt10phip)(polar(polarpt10phip)(*pi0.5)h)"")(command"line"(polarpt1(*pi0.5)h)(polar(polarpt1(*pi0.5)h)0phip)"")(setqcout(getreal"n请输入孔密值:")h1(getreal"n请输入首孔与端面距:")pt2(getpoint"n请点取左下点:")i10)(setqbeilv(/1000cout);(计算相邻孔轴线距)allcout(+(/(-h(*2h1))beilv)1));(计算孔个数)(while(