|
板凳
楼主 |
发表于 2022-3-13 11:13:08
|
只看该作者
好吧,又是自问自答的一次:
,
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature
Dim swSubFeat As SldWorks.Feature
Dim k As Integer
Dim Flatten_() As Variant
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FirstFeature
Do While Not swFeat Is Nothing
If swFeat.GetTypeName = "FlatPattern" Then
Set swSubFeat = swFeat.GetFirstSubFeature
Do While Not swSubFeat Is Nothing
ReDim Preserve Flatten_(k)
Flatten_(k) = swSubFeat.Name
k = k + 1
Set swSubFeat = swSubFeat.GetNextSubFeature()
Loop
End If
Set swFeat = swFeat.GetNextFeature
Loop
For k = 2 To UBound(Flatten_) - 1
swModel.Extension.SelectByID2 Flatten_(k), "BODYFEATURE", 0, 0, 0, True, 0, Nothing, 0
Next
swModel.EditUnsuppress2
swModel.ClearSelection2 True
End Sub |
评分
-
查看全部评分
|