index
示例
此示例演示了如何使用SOLIDWORKS API创建临时几何体来填充所选特征(例如切割拉伸)中的孔洞。
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
Err.Raise vbError, "", "打开模型"
End If
Dim swSelMgr As SldWorks.SelectionMgr
Set swSelMgr = swModel.SelectionManager
Dim swFeat As SldWorks.Feature
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
If swFeat Is Nothing Then
Err.Raise vbError, "", "选择特征"
End If
Dim vFaces As Variant
Dim swTempBody As SldWorks.Body2
vFaces = swFeat.GetFaces
Dim swModeler As SldWorks.Modeler
Set swModeler = swApp.GetModeler
Set swTempBody = swModeler.CreateBodyFromFaces2(UBound(vFaces) + 1, vFaces, swCreateFacesBodyAction_e.swCreateFacesBodyActionCap, _
False, False)
If swTempBody Is Nothing Then
Err.Raise vbError, "", "创建几何体失败"
End If
swTempBody.Display3 swModel, RGB(255, 255, 0), swTempBodySelectOptions_e.swTempBodySelectOptionNone
Stop
End Sub
说明
此示例使用IModeler::CreateBodyFromFaces2
API来创建临时几何体,并使用该几何体填充所选特征中的孔洞。
宏停止执行并显示临时几何体。继续执行以删除临时几何体。