Hello, I write this code but I don´t know how to get the sketch of a feature swfeat_op???
Thnak´s
Dim swApp As SldWorks.SldWorks
Dim swmodel As ModelDoc2
Dim swfeat As Feature
Dim swfeat_op As Feature
Dim swSubFeat As SldWorks.Feature
Dim swfeatMgr As FeatureManager
Dim ext As IExtrudeFeatureData2
Sub main()
Set swApp = Application.SldWorks
Set swmodel = swApp.ActiveDoc
Set swfeat = swmodel.FirstFeature
While Not swfeat Is Nothing
Debug.Print "Nombre del Feat: "; swfeat.Name
Debug.Print "Tipo de Feat: "; swfeat.GetTypeName2
'===================
'SI EL FEAT ES DEL TIPO CORTAR EXTRUIR OBETENER PARAMETROS DE LA OPERACION Y LUEGO DEL CROQUIS
If swfeat.GetTypeName2 = "ICE" Then
Set swfeat_op = swfeat
Set ext = swfeat_op.GetDefinition
Profundidad = ext.GetDepth(True) * 1000
Debug.Print "Profundidad:"; Profundidad
'get the sketch of this feature ¿?¿?¿¿?¿?¿?¿
'¿¿?¿?¿?¿?¿?¿?¿
End If
Set swfeat = swfeat.GetNextFeature
Wend
End Sub
