AUTOLISP 编程实现正交开孔圆管展开图快速绘制

山东北方民爆器材有限公司 (淄博 255208)王克波 马兆明

本文以AUTOLISP 编程实现了正交圆孔中心位置确定、两母线投影定宽的展开和正交圆孔相贯线的展开。在该程序生成相贯线展开图时，将图样中圆孔细分为80 份，并生成展开图中点的对应位置，应用了“SPLINE”命令进行绘制，该内容直接针对于现场加工，有着重要的实际应用价值。三种图形直接在AUTOCAD 中生成，从而减少了软件对接过程的繁琐，提高了工作效率和作图质量。

1.正交开孔圆管展开图涉及内容及分析

正交开孔圆管如图1 所示，其参数由管材内外径、加工孔径、孔密集度和相位等构成。在加工过程中，图形是按内径展开，展开图涉及正交圆孔中心位置的确定及绘制、两母线投影定宽的展开绘制、正交圆孔相贯线展开图绘制。

图1

(1)正交圆孔中心位置确定 管材展开平面如图2 所示，L1、L4、内孔径φ、孔密值、相位数为输入值，由用户输入;L2、L3、L5、Lφ为计算值，其中

图2

(2)两母线投影定宽的展开计算 两母线投影定宽的展开换算如图3 所示，φ1、L1为输入值，由系统输入;Lφ1、L2为计算值，其中

图3

(3)正交圆孔相贯线展开计算 圆柱面正交开孔相贯线展开换算如图4 所示，φ1、φ2为输入值，由系统输入;L1为选取值，由程序选取;L2、L3为计算值，其中

2.对应编制的AUTOLISP 程序

AUTOLISP 语言是AUTOCAD 内嵌式的编程语言，使用AUTOLISP 进行绘图，大大提高了作图效率，保证了作图质量。考虑到绘图的方便性，指令均采用左手键。

图4

(1)正交圆孔中心位置的确定及绘制 程序如下:

(2)两母线投影定宽的展开图绘制 程序如下:

(3)正交圆孔相贯线展开图绘制 程序如下:

3.使用实际效果

在实际工作中，使用三条指令均为左手操作命令，操作极为方便。将lsp 文件加载，在对应命令之后输入相应参数，得到结果如下:

(1)正交圆孔中心位置命令WT 使用效果 输入参数:管材内径60mm，管材总长1 040mm，孔密集度16，首孔端距51.25mm，相位数4;其折合参数:管材周长188.496mm (保留3 位小数)，孔所处母线展开距为47.124mm，孔轴线间距为62.5mm，首末孔间距为937.5mm。命令执行后，所得绘图如图5 所示。

图5 截交圆柱面中心位置绘制效果(90°旋转)

(2)两母线投影定宽EZT 使用效果 输入参数:管材内径60mm，母线投影间距为45mm;其折合参数:管材展开后母线间距为50.88mm。命令执行后，所得绘图如图6 所示。

图6 两母线投影定宽绘制效果

(3)圆柱面正交开孔相贯线展开EC 使用效果输入参数:管材内径60mm，开孔孔径45mm;其折合参数:展开图中长轴为50.88mm。命令执行后，所得绘图如图7 所示。

图7 圆柱孔面正交开孔相贯线展开绘制效果