国产在线观看91_国语自产偷拍精品视频偷_国产成人精品永久免费视频_日韩主播新片在线观看,欧美丰满熟妇xx猛交,久久精品国产自在天天线,成人综合色站

海天精工機床有限公司 海天精工博客

如何二次開發AutoCAD

0 引言VBA是一種自動化語言, 結合相應的圖形軟件, 它可以按照用戶的要求, 自動地生成一系列的動作指令。微軟開發的圖形設計軟件AutoCAD, 由于其具有豐富的方便、 快捷的繪圖工具, 使得該軟件在機械制造行業、 建筑行業中得到了廣泛的應用。本文以VBA為開發語言, 依托AutoCAD強大的繪圖功能,設計并開發了精工仿真軟件。該軟件根據用戶編寫的精工程序, 在自定義的毛坯中, 通過刀具的移動完成材料的切削, 進而實現零件的加工。所有這些過程, 均以三維圖形的方式進行動態顯示, 可以將精工程序加工的細節詳實、 直觀地展現在用戶面前。利用該軟件可以極大地減小零件試切的損失, 對于提高生產效率具有積極作用。1 仿真系統結構設計根據實際零件加工的操作順序, 精工加工仿真程序設置了零件定義、 程序調用、 刀具選擇等功能。系統的頂層功能結構如圖1所示。本仿真系統可通過兩個對話框定義毛坯的長L、 寬W、 高H、 工作坐標系X、 Y、 Z以及刀具的規格直徑Ф、 對刀長度L用戶可通過一個文件對話窗體選擇精工程序PRO。具體的窗體界面如圖2所示。2算法規劃與完成2.1 VBA引入銜接AutoCAD選用面向目標的程序規劃辦法,運用Visual Basic在AutoCAD2005上用VBA技能進行二次開發,可以較好地完成體系程序參數化繪圖。VBA是經過AutoCAD ActiveX Automation接口來樹立和AutoCAD目標間的聯絡。ActiveX是樹立在COM目標模型之上的一個標準通信協議, 它答應目標之間經過必定的接口相互通信。而AutoCAD ActiveX提供在AutoCAD外操控編程的機制, 經過運用AutoCAD目標, 完成對AutoCAD的操控。2.2 刀具切削實現在精工機床完成零件加工過程中, 主要涉及到兩種基本的加工路徑, 它們分別是直線運動、 圓弧運動。對于直線加工模型, 主要是定義加工的起點AA和終點B。移動刀具的對刀點在AA和BB之間, 我們利用均勻直線插補算法求得; 刀具和毛坯重合部分, 可以借助對毛坯執行布爾運算生成, 以示零件被切削部分。模型如圖3所示。圓弧加工模型, 由于曲線的復雜性和G02、 G03圓弧插補加工方式選擇的需要, 在確定加工特征信息時應包括: 起點SA、SB、 SC、 終點EA、 EB、 EC、 半徑R, 順時針G02、 逆時針G03。圓弧生成的變種可以由角度參與確定, 對于加工整圓分為: 順時針、 逆時針兩種。在整個加工模型的建立中, 圓弧加工涵蓋了加工的各種基本情況, 因此圓弧加工設計是系統實現的關鍵。圓弧加工模型如圖4所示。下面是基于VBA開發的部分圓弧加工程序:……If G02G03 Like "G02" Thenp1(0)=sa: p1(1)=sb: p1(2)=scp2(0)=ea: p2(1)=eb: p2(2)=ecElsep1(0)=ea: p1(1)=eb: p1(2)=ecp2(0)=sa: p2(1)=sb: p2(2)=scEnd Ifradius=Rd=Math.Sqr((p2(0)-p1(0))*(p2(0)-p1(0))+(p2(1)-p1(1))*(p2(1)-p1(1)))d1=Math.Sqr(radius*radius-(d/2)*(d/2))angle1=Math.Atn(d1/(d/2))angle3=3.141592-(angle1+angle1)If (p2(0)=p1(0)) ThenIf radius>0 ThenIf ((p2(1)-p1(1))>0) ThencenterPoint(0)=p1(0)+Math.Abs(radius)*Math.COS(3.1415926/ 2-angle1)ElsecenterPoint(0)=p1(0)-Math.Abs(radius)*Math.COS(3.1415926/2-angle1)End IfElseIf ((p2(1)-p1(1))>0) ThencenterPoint(0)=(p1(0)-Math.Abs(radius)*Math.COS(3.1415926/2-angle1))ElsecenterPoint(0)=(p1(0)+Math.Abs(radius)*Math.COS(3.1415926/ 2-angle1))End IfEnd IfcenterPoint(1)=p1(1)+(p2(1)-p1(1))/2If radius>0 ThenIf ((p2(1)-p1(1))>0) ThenstartAngleInDegree=angle1+3.1415926/2endAngleInDegree=angle1+3.1415926/2+angle3ElsestartAngleInDegree=-angle3/2endAngleInDegree=angle3/2End If……2.3 實體加工模型AutoCAD具有很強的圖形繪制能力, 利用該軟件的三維圖形繪制命令可以輕松繪制逼真的實體模型。本系統利用自定義的加工函數完成實體模型的加工, 用戶只要給定加工所必須的信息, 就可以實現零件的自動加工。自定義函數的原型如下:arcsolidtrace s(0), s(1), s(2), e1(0), e1(1), e1(2), radius, R,H, boxObj, cylinderobj, G02G03函數名稱為arcsolidtrace, 圓弧的起點的三維坐標值為s(0), s(1), s(2), 圓弧終點三維坐標值為e1(0), e1(1), e1(2), 圓弧半徑為radius, 刀具半徑為R,對刀長度為H,零件毛坯實體為boxObj, 刀具實體為cylinderobj, 加工方向為G02G03。程序依照精工圓弧加工規律和給定的參數值, 判斷加工路徑并完成零件毛坯的布爾運算。部分程序代碼如下:……d=Math.Sqr((p2(0)-p1(0))*(p2(0)-p1(0))+(p2(1)-p1(1))*(p2(1)-p1(1)))If d<>0 Thend1=Math.Sqr(radius*radius-(d/2)*(d/2))angle1=Math.Atn(d1/(d/2))angle3=3.141592-(angle1+angle1)If (p2(0)=p1(0)) ThenIf radius>0 ThenIf ((p2(1)-p1(1))>0) Thenm(0)=p1(0)+Math.Abs(radius)*Math.COS(3.1415926/2-angle1)Elsem(0)=p1(0)-Math.Abs(radius)*Math.COS(3.1415926/2-angle1)End IfElseIf ((p2(1)-p1(1))>0) Thenm(0)=(p1(0)-Math.Abs(radius)*Math.COS(3.1415926/2-angle1))Elsem(0)=(p1(0)+Math.Abs(radius)*Math.COS(3.1415926/2-angle1))End IfEnd Ifm(1)=p1(1)+(p2(1)-p1(1))/2If radius>0 ThenIf ((p2(1)-p1(1))>0) ThenstartAngleInDegree=angle1+3.1415926/2endAngleInDegree=angle1+3.1415926/2+angle3ElsestartAngleInDegree=-angle3/2endAngleInDegree=angle3/2End If……3 應用實例應用本系統, 用戶只需要選擇毛坯類型, 定義毛坯尺寸, 定義刀具規格, 輸入編寫好的精工程序, 即可驗證精工程序的正確性。例如, 用戶定義一個矩形毛坯, 和一個半徑為10個單位的外形銑刀, 加工一個五角星的案例, 其加工完成后的效果如圖6所示。4 結束語利用VBA對AutoCAD的二次開發, 實現了精工程序加工的三維仿真。仿真系統不但利用了VBA的數學計算功能, 更發揮了CAD的三維圖形功能, 使得精工仿真達到了逼真、 直觀的效果, 提高了精工加工程序驗證效率和準確率。本文由海天精工文章整理發表,文章來自網絡僅參考學習,本站不承擔任何法律責任。http://www.dyliao.com/
留言列表
發表留言
◎歡迎參與討論,請在這里發表您的看法、交流您的觀點。

主站蜘蛛池模板: 东港市| 内黄县| 淄博市| 南皮县| 苍山县| 泸州市| 西青区| 双牌县| 阳山县| 吉隆县| 达州市| 大同县| 仁布县| 金湖县| 阿拉善右旗| 伊宁市| 前郭尔| 汶川县| 安庆市| 香河县| 当阳市| 依安县| 乌什县| 开平市| 梅河口市| 宁武县| 丽江市| 福安市| 肇源县| 伊吾县| 盐池县| 星子县| 安阳县| 德昌县| 页游| 新乡县| 赤水市| 偏关县| 西丰县| 清原| 炎陵县|