SolidWorks二次開發(fā)——宏的應用

2013-07-07  by:廣州Solidworks培訓中心  來源:仿真在線

SolidWorks二次開發(fā)——宏的應用

 

       工程軟件二次開發(fā)中,宏的功能非常強大。通過錄制宏,我們可以在SolidWorks的VBA編輯器中,對一次參數(shù)設變量,以便于進行值的傳遞。

       這是我看書后自己做的一個非常簡單的圓柱的宏。其中有兩個參數(shù),直徑(Diameter)和高度(Height)。如圖

SolidWorks二次開發(fā)——宏的應用solidworks simulation應用技術圖片圖片1

 


       不同控件對應不同的函數(shù),在VBA中輕松制作窗體。設計窗體時,對話框的大小可以調(diào)整,但是完成后,在SolidWorks中無法調(diào)整大小。

效果圖

SolidWorks二次開發(fā)——宏的應用solidworks simulation應用技術圖片圖片2

 

附:具體代碼

Dim swApp As Object

Dim Part As Object 

Dim boolstatus As Boolean 

Dim longstatus As Long, longwarnings As Long

Sub main()

Load Frm 

Frm.Show 

End Sub

Private Sub cmdCreate_Click() 

Set swApp = _ 

Application.SldWorks

Set Part = swApp.ActiveDoc 

boolstatus = Part.Extension.SelectByID2("前視基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0) 

Part.SketchManager.InsertSketch True 

Part.ClearSelection2 True 

Dim skSegment As Object 

Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0#, Val(Dia.Text), 0#) 

Part.ShowNamedView2 "*上下二等角軸測", 8 

Part.ClearSelection2 True 

boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0) 

Dim myFeature As Object 

Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, Val(Hei.Text), 0, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False) 

Part.SelectionManager.EnableContourSelection = False 

End Sub

Private Sub Image1_Click()

End Sub

 

Private Sub Dia_Change()

End Sub

Private Sub hei_Change()

End Sub

Private Sub cmdexit_Click() 

End 

End Sub


Private Sub UserForm_Click()

End Sub


 


開放分享:優(yōu)質(zhì)有限元技術文章,助你自學成才

相關標簽搜索:SolidWorks二次開發(fā)——宏的應用 無錫 紹興 無錫 SolidWorks培訓 機構簡化 Fluent、CFX流體分析 HFSS電磁分析 Ansys培訓 Abaqus培訓 Autoform培訓 有限元培訓 Solidworks培訓 

編輯
在線報名:
  • 客服在線請直接聯(lián)系我們的客服,您也可以通過下面的方式進行在線報名,我們會及時給您回復電話,謝謝!
驗證碼

全國服務熱線

1358-032-9919

廣州公司:
廣州市環(huán)市中路306號金鷹大廈3800
電話:13580329919
          135-8032-9919
培訓QQ咨詢:點擊咨詢 點擊咨詢
項目QQ咨詢:點擊咨詢
email:kf@1cae.com