AUTOLISP 編程實(shí)現(xiàn)正交開孔圓管展開圖快速繪制

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

本文以AUTOLISP 編程實(shí)現(xiàn)了正交圓孔中心位置確定、兩母線投影定寬的展開和正交圓孔相貫線的展開。在該程序生成相貫線展開圖時，將圖樣中圓孔細(xì)分為80 份，并生成展開圖中點(diǎn)的對應(yīng)位置，應(yīng)用了“SPLINE”命令進(jìn)行繪制，該內(nèi)容直接針對于現(xiàn)場加工，有著重要的實(shí)際應(yīng)用價值。三種圖形直接在AUTOCAD 中生成，從而減少了軟件對接過程的繁瑣，提高了工作效率和作圖質(zhì)量。

1.正交開孔圓管展開圖涉及內(nèi)容及分析

正交開孔圓管如圖1 所示，其參數(shù)由管材內(nèi)外徑、加工孔徑、孔密集度和相位等構(gòu)成。在加工過程中，圖形是按內(nèi)徑展開，展開圖涉及正交圓孔中心位置的確定及繪制、兩母線投影定寬的展開繪制、正交圓孔相貫線展開圖繪制。

圖1

(1)正交圓孔中心位置確定 管材展開平面如圖2 所示，L1、L4、內(nèi)孔徑φ、孔密值、相位數(shù)為輸入值，由用戶輸入;L2、L3、L5、Lφ為計(jì)算值，其中

圖2

(2)兩母線投影定寬的展開計(jì)算 兩母線投影定寬的展開換算如圖3 所示，φ1、L1為輸入值，由系統(tǒng)輸入;Lφ1、L2為計(jì)算值，其中

圖3

(3)正交圓孔相貫線展開計(jì)算 圓柱面正交開孔相貫線展開換算如圖4 所示，φ1、φ2為輸入值，由系統(tǒng)輸入;L1為選取值，由程序選取;L2、L3為計(jì)算值，其中

2.對應(yīng)編制的AUTOLISP 程序

AUTOLISP 語言是AUTOCAD 內(nèi)嵌式的編程語言，使用AUTOLISP 進(jìn)行繪圖，大大提高了作圖效率，保證了作圖質(zhì)量?？紤]到繪圖的方便性，指令均采用左手鍵。

圖4

(1)正交圓孔中心位置的確定及繪制 程序如下:

(2)兩母線投影定寬的展開圖繪制 程序如下:

(3)正交圓孔相貫線展開圖繪制 程序如下:

3.使用實(shí)際效果

在實(shí)際工作中，使用三條指令均為左手操作命令，操作極為方便。將lsp 文件加載，在對應(yīng)命令之后輸入相應(yīng)參數(shù)，得到結(jié)果如下:

(1)正交圓孔中心位置命令WT 使用效果 輸入?yún)?shù):管材內(nèi)徑60mm，管材總長1 040mm，孔密集度16，首孔端距51.25mm，相位數(shù)4;其折合參數(shù):管材周長188.496mm (保留3 位小數(shù))，孔所處母線展開距為47.124mm，孔軸線間距為62.5mm，首末孔間距為937.5mm。命令執(zhí)行后，所得繪圖如圖5 所示。

圖5 截交圓柱面中心位置繪制效果(90°旋轉(zhuǎn))

(2)兩母線投影定寬EZT 使用效果 輸入?yún)?shù):管材內(nèi)徑60mm，母線投影間距為45mm;其折合參數(shù):管材展開后母線間距為50.88mm。命令執(zhí)行后，所得繪圖如圖6 所示。

圖6 兩母線投影定寬繪制效果

(3)圓柱面正交開孔相貫線展開EC 使用效果輸入?yún)?shù):管材內(nèi)徑60mm，開孔孔徑45mm;其折合參數(shù):展開圖中長軸為50.88mm。命令執(zhí)行后，所得繪圖如圖7 所示。

圖7 圓柱孔面正交開孔相貫線展開繪制效果