Не работает метод featureCut

[Berrishael 0]

Всем привет, я новичок в солиде (2016). Записал по своим действиям простенький макрос,  который просто создает бобышку и делает в ней вырез. НО сам вырез не появляется, не могу понять, в чем проблема.

Фрагмент кода - Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)

 

Весь макрос

Спойлер

' ******************************************************************************
' C:\Users\User\AppData\Local\Temp\swx3572\Macro1.swb - macro recorded on 05/11/20 by User
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Ñâåðõó", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(-0.018746, 0.005836, 0#, 0.0191, -0.016093, 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, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
boolstatus = Part.Extension.SelectByID2("", "FACE", -4.39612491039156E-02, 9.99999999993406E-03, 4.56321402623416E-03, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(-0.033539, 0.00217, 0#, -0.020288, -0.007694, 0#)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub

 

[brigval 702]

13 часов назад, Berrishael сказал:

Всем привет, я новичок в солиде (2016). Записал по своим действиям простенький макрос,  который просто создает бобышку и делает в ней вырез. НО сам вырез не появляется, не могу понять, в чем проблема.

Фрагмент кода - Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)

 

Весь макрос

  Скрыть контент

' ******************************************************************************
' C:\Users\User\AppData\Local\Temp\swx3572\Macro1.swb - macro recorded on 05/11/20 by User
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Ñâåðõó", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(-0.018746, 0.005836, 0#, 0.0191, -0.016093, 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, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
boolstatus = Part.Extension.SelectByID2("", "FACE", -4.39612491039156E-02, 9.99999999993406E-03, 4.56321402623416E-03, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(-0.033539, 0.00217, 0#, -0.020288, -0.007694, 0#)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub

 

Для выделения второй окружности используете имя первой. Возможно, в этом причина.

[Berrishael 0]

5 часов назад, brigval сказал:

Для выделения второй окружности используете имя первой. Возможно, в этом причина.

Код был сгенерирован записью макроса, он же должен верно работать... К тому же в видео проблем с этим не было, названия такие же. Может есть какой пункт в настройках, не знаю даже. Окружность рисует на плоскости, а вырез по ней не делает