亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        基于solidworks建模的VBA創(chuàng)建曲線曲面設(shè)計

        2014-11-05 14:40:13李星優(yōu)謝俊全勇
        科技創(chuàng)新導(dǎo)報 2014年11期
        關(guān)鍵詞:基準(zhǔn)面圖標(biāo)代碼

        李星優(yōu)++謝俊++全勇

        摘 要:介紹了SolidWorks軟件的優(yōu)點;敘述了以SolidWorks為開發(fā)平臺,應(yīng)用VBA程序進行曲線曲面建模的方法。通過幾個三維零件的建模,分析和討論了SolidWorks軟件的一些特點,并針對關(guān)于VBA創(chuàng)建曲線曲面問題提出了相應(yīng)的解決方法;旨在訓(xùn)練建模思路,提高應(yīng)用 SolidWorks軟件設(shè)計能力的目的。

        關(guān)鍵詞:SolidWorks建模 建模分析 曲線曲面 VBA程序

        中圖分類號:TP391.72 文獻標(biāo)識碼:A 文章編號:1674-098X(2014)04(b)-0035-02

        隨著信息技術(shù)在各個領(lǐng)域的迅速滲透,CAD/CAM/CAE技術(shù)已經(jīng)得到了廣泛的應(yīng)用,從根本上改變了傳統(tǒng)的設(shè)計,生產(chǎn),組織模式,對推動現(xiàn)有企業(yè)的技術(shù)改造,帶動整個產(chǎn)業(yè)結(jié)構(gòu)的變革,發(fā)展新興技術(shù),促進經(jīng)濟增長都具有十分重要的意義。

        在現(xiàn)代機械設(shè)計中,應(yīng)用了大量三維造型軟件,如UG、/E、Solidworks、Master、CAXA等。這些軟件在零件建模、裝配檢驗、工程分析、動畫演示、自動編程等方面,顯示出突出的優(yōu)點,越來越受到工業(yè)企業(yè)的重視和應(yīng)用。

        在機械零件加工中,企業(yè)廣泛采用數(shù)控機床,并電腦接口。工程師首先應(yīng)用造型軟件;零件建模,然后調(diào)用軟件中的加工模塊,設(shè)置加工工藝方法和加工參數(shù),最后將這些數(shù)據(jù)轉(zhuǎn)換成加工程序(G代碼)。即自動編程。最后將程序通過電腦接口傳輸給數(shù)控機床,進行自動加工。真正實現(xiàn)信息化、參數(shù)化、無圖化的加工制造[1]。

        現(xiàn)代機械加工離不開計算機和工程軟件,即計算機輔助制造——CAM。在此,推薦一款易學(xué)易懂、功能較強、應(yīng)用廣泛的三維軟件——SolidWorks,著重就軟件建模,關(guān)于使用VBA創(chuàng)建零件曲線曲面設(shè)計進行討論。

        1 Solideworks簡介

        SolidWorks是美國SolidWorks公司開發(fā)的出色的三維參數(shù)化特征造型CAD軟件,其技術(shù)內(nèi)核基于先的Parasolid圖形語言平臺。SolidWorks自從1995年11月問世以來,已成為微機平臺上的三維機械設(shè)計CAD軟件的主流產(chǎn)品,在企業(yè)中得到了廣泛的應(yīng)用。

        該文選用Slideworks本文選用SolidWorks作為系統(tǒng)開發(fā)平臺,主要是基于SolidWorks在以下幾方面的突出優(yōu)點[2]:

        a)強大的參數(shù)化特征造型功能。SolidWorks的參數(shù)化和特征造型技術(shù),能方便、快捷地創(chuàng)建幾乎任何復(fù)雜形狀的實體,可以滿足絕大部分的工程設(shè)計的需要;SolidWorks采用統(tǒng)一的內(nèi)部數(shù)據(jù)庫,全數(shù)據(jù)相關(guān),任何一個功能模塊中對零件的修改都會自動反映到其他模塊中;

        b)界面友好,操作簡便。SolidWorks采用典型的Windows軟件風(fēng)格,在所有的國外三維CAD軟件中提供了最優(yōu)秀的中文支持;

        c)擁有開放的體系結(jié)構(gòu)。SolidWorks擁有豐富的第三方支持軟件,提供了開放的數(shù)據(jù)結(jié)構(gòu)和方便的二次開發(fā)環(huán)境,為企業(yè)今后廣泛的工程應(yīng)用提供了良好的基礎(chǔ)平臺;

        d)優(yōu)異的性能價格比。SolidWorks 是一款中端CAD系統(tǒng),企業(yè)使用SolidWorks可以花較小的投入滿足設(shè)計的要求,因此SolidWorks特別適合于中小企業(yè)的產(chǎn)品設(shè)計。

        2 寫solidworks的VBA程序

        2.1 VBA程序的錄制

        由于solidworks具有錄制操作,自動生成代碼的功能,所以用“錄制宏”的方法錄制操作過程,再進行,即可生成VBA程序[3]。

        為了提高編程效率,單擊“工具”,“選項”,“系統(tǒng)選項”,“常規(guī)”,勾選系統(tǒng)選項中的“錄制后直接編輯宏”。

        現(xiàn)在來錄制一個最簡單的VBA程序:在上視基準(zhǔn)面上畫一個半徑為500mm的圓。操作步驟如下:

        單擊“新建”圖標(biāo),新建一零件文件,單擊菜單“視圖”,“工具欄”,“宏”,單擊“錄制/暫停宏”圖標(biāo)按鈕,開始錄制。

        在solidworks界面上單擊特征樹上的圖標(biāo),再單擊原點,移動鼠標(biāo),畫圓。單擊“退出草圖”圖標(biāo)按鈕,單擊“左右二等角軸測”圖標(biāo)單擊“停止宏”圖標(biāo),出現(xiàn)“執(zhí)行宏”對話框。

        選擇目錄,輸入文件名,單擊“保存”按鈕,結(jié)束宏的錄制。這是,VBA編輯器將自動打開,進入編輯狀態(tài)。在VBA界面中單擊“視圖Solidworks”圖標(biāo)按鈕,回到SlidWorks界面中,單擊”新建按鈕,新建一零件文件,試宏的播放環(huán)境和錄制的環(huán)境一樣,單擊“運行宏”圖標(biāo)按鈕,運行程序,畫出一個圓。

        再運行程序,顯示出錯,可見,通過宏的錄制所產(chǎn)生的代碼是經(jīng)常有問題的,必須對代碼進行編輯,才能正確運行。

        下面分析錄制代碼(每行代碼前的數(shù)字是為了說明問題而加上的)。

        01 `**********************************************************

        02 `D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\swx1108\Macor1.swb-macro recorded on 14/27/03 by Administratro

        03 `**********************************************************

        04 Dim swApp As Object

        05 Dim Part As Object

        06 Dim boolstatus As Boolean

        07 Dim longstatus As Long,longwarnings As Long

        08 Dim FeatureData As Objectendprint

        09 Dim Feature As Object

        10 Dim Component As Object

        11 Sub main()

        12 Set swApp=Application.SldWorks

        13 Set Part=swApp.ActiveDoc

        14 boolstatus=Part.Extension.SelectByID2(“上視基準(zhǔn)面”,“PLANE”,0,0,0,F(xiàn)alse,0,Nothing,0)

        15 Part.ClearSelection2 True

        16 Part.CreateCircle 0,0,0,0.1005179862306,-0.003901807228916,0

        17 Part.ClearSelection2 True

        18 Part.InsertSketch2 Ture

        19 Part.ShowNamedView2“*等軸測”,7

        20 End Sub

        程序的前3三行是注釋,說明是誰于何年何月錄制的宏,第4行到第10行是變量聲明,程序第14行是選擇是“選擇上視基準(zhǔn)面”,第16行是“畫圓”,由于程序沒有錄下“新建草圖”的操作,因此程序運行到16行時,因Solidworks默認基準(zhǔn)面是“前視基準(zhǔn)面”,所以就在“前視基準(zhǔn)面”上自動開始繪制草圖,從而使程序運行出錯。

        所以可以將代碼編輯一下,修改第16行代碼中的數(shù)字,刪除一些不需要的代碼,調(diào)整后,如下:

        01 Dim swApp As Object

        02 Dim Part As Object

        03 Dim boolstatus As Boolean

        04 Sub main()

        05 Set swApp=Application.SldWorks

        06 Set Part=swApp.ActiveDoc

        07 boolstatus=Part.Extension.SelectByID2(“上視基準(zhǔn)面”,“PLANE”,0,0,0,F(xiàn)alse,0,Nothing,0)

        08 Part.InsertSKetch2 True 這一行“新建草圖”的操作沒錄制下來!

        09 Part.CreateCircle 0,0,0,0.1,0,0

        10 Part.InsertSketch2 Ture

        11 Part.ShowNamedView2“*等軸測”,7

        12 End Sub

        保存后運行,運行成功。

        分析:第5,6兩行是賦值語句,變量swApp和Part被分別復(fù)制為Solidworks應(yīng)用程序和Solidworks的當(dāng)前文檔,第七行是選擇“上視基準(zhǔn)面”,第八行是“開始繪制草圖”,第11行是將視圖設(shè)為“等軸測”。

        2.2 通過XYZ點的曲線

        圓形螺旋彈簧的建模,關(guān)鍵在于路徑曲線。這種“通過XYZ點的曲線”,可用VBA創(chuàng)建。

        (1)單擊宏工具攔上的“新建”圖標(biāo),選擇文件路徑,輸入文件名,單擊保存,自動打開VBA編輯器。

        (2)單擊工程資源管理器窗口中的名稱Macrol,在屬性窗口中將項目名稱改為“圓形螺旋彈簧”:用同樣方法將模塊Macrol1名稱改為“圓形螺旋彈簧1”。在VBA編輯器中,選擇“插入”“用戶窗體”菜單項,向程序添加一個窗體,將Caption屬性設(shè)置為“圓形螺旋彈簧”,名稱改為frmMain。

        (3)添加一個圖像框,調(diào)整大小和窗體相匹配,其picture圖片文件在配套光盤中。添加4個標(biāo)簽分別調(diào)整其Caption屬性為“匝數(shù)”,“路徑圓半徑”,“螺旋線半徑”,“界面半徑”。添加4個文字框,分別調(diào)整其Text屬性為“30”,“600”,“100”,“15”。

        (4)添加兩個命令控件,分別調(diào)整其Caption屬性為“確定”和“取消”;名稱為“cmdDraw”和“cmdExit”。在工程資源管理器中雙擊模塊“圓形螺旋彈簧1”,刪除VBA自動生成代碼,輸入以下代碼:

        Sub main ()

        frmMain.Show

        End Sub

        (5)在窗體中雙擊“確定”命令按鈕,進入代碼窗口,在該按鈕的Click事件中添加下面代碼:

        Option Explicit

        Dim swApp As Sldworks.SldWorks

        Dim part As Sldworks.ModelDoc2

        Dimboolstatus As Boolean

        Const pi = 3.1415926535897

        Private Sub cmdDraw click()

        (6)在對話框中雙擊“取消”命令按鈕,進入代碼窗口,在該按鈕的Click事件中添加下面代碼:

        Private Sub cmdExit click()

        Unload Me

        End Sub

        (7)在VBA編輯器中按“F5”鍵,單擊“運行宏”圖標(biāo),運行VBA程序,可完成圓形螺旋彈簧的建模。

        3 結(jié)語

        程序中,字符串變量MacroName得到帶有路徑的宏文件名,通過InStrRev函數(shù)得到MacroNam最右邊的斜杠“\”的位置,由Left$函數(shù)得到宏文件的路徑,因此,只要將圖像框的圖片文件和宏文件放在同一文件夾中,就可以通過Image1.Picture=LoadPicture這樣的語句正確地加載圖片,而不會出現(xiàn)錯誤。

        程序中各公式曲線的數(shù)學(xué)公式如下:

        心型線參數(shù)方程:

        x=a*(cost)^3,

        y=a*(sint)^3 (t為參數(shù))

        心臟線的參數(shù)方程:

        x(t)=a(2cost-cos2t)

        y(t)=a(2sint-sin2t)

        阿基米德螺旋線

        r=aθ

        圓的漸開線的參數(shù)方程

        x=r(cos φ+φsin φ)

        y=r(sin φ-φcos φ)

        擺線的參數(shù)方程

        y=r*(1-cost)

        x=r*(t-sint)

        曳物線的參數(shù)方程:

        x=acosθ;

        y=aln[tan^2(θ+π4)]-asinθ

        參考文獻

        [1] 劉長征.精通SolidWorks2003[M].北京:清華大學(xué)出版社,2004.

        [2] 江洪.SolidWorks2003二次開發(fā)基礎(chǔ)與實例[M].北京:電子工業(yè)出版社,2004.

        [3] 江洪.SolidWorks2003高級曲線曲面實例解析[M].北京:機械工業(yè)出版社,2007.endprint

        猜你喜歡
        基準(zhǔn)面圖標(biāo)代碼
        面輪廓度逆向尺寸控制及測量
        Android手機上那些好看的第三方圖標(biāo)包
        創(chuàng)世代碼
        動漫星空(2018年11期)2018-10-26 02:24:02
        創(chuàng)世代碼
        動漫星空(2018年2期)2018-10-26 02:11:00
        創(chuàng)世代碼
        動漫星空(2018年9期)2018-10-26 01:16:48
        創(chuàng)世代碼
        動漫星空(2018年5期)2018-10-26 01:15:02
        中國風(fēng)圖標(biāo)設(shè)計
        電影評介(2016年24期)2017-01-04 05:41:44
        最小靜校正量基準(zhǔn)面校正技術(shù)在準(zhǔn)噶爾盆地LN6井區(qū)應(yīng)用
        有意思的廁所圖標(biāo)
        讀者(2015年13期)2015-05-14 11:41:05
        空間域CMP參考基準(zhǔn)面實現(xiàn)方法及其效果
        一本大道久久a久久综合精品| 亚洲午夜精品久久久久久一区| 久久尤物av天堂日日综合| 亚洲精品99久91在线| 人妻中文字幕在线中文字幕| 奇米影视第四色首页| 精品少妇一区二区三区视频| 最新国产精品久久精品| 国产午夜福利精品久久2021| a欧美一级爱看视频| 97人妻精品一区二区三区免费| 无码国产成人午夜电影在线观看| 欧美日韩色另类综合| 人妻久久999精品1024| 中文字幕中文字幕人妻黑丝| 久久精品亚洲熟女av蜜謦| 亚洲码国产精品高潮在线| 四虎欧美国产精品| 国内自拍偷拍一区二区| 中文字日产幕码三区国产| 天天躁日日躁狠狠躁欧美老妇| 国产精品亚洲欧美云霸高清| 少妇特殊按摩高潮不断| 亚洲av一区二区三区色多多| 亚洲春色在线视频| 国产在线丝袜精品一区免费| 亚洲中文字幕第二十三页| 变态另类手机版av天堂看网| www插插插无码视频网站| 亚洲AV一二三四区四色婷婷| 蜜桃视频成年人在线观看| 亚无码乱人伦一区二区| 老色鬼永久精品网站| 免费无码又爽又刺激又高潮的视频| 国产少妇高潮在线视频| 久久久中文久久久无码| 中文乱码人妻系列一区二区| 人妻少妇精品系列一区二区| av免费在线播放视频| 午夜性无码专区| 亚州AV无码乱码精品国产|