求助 大哥大姐，为啥录制的宏里，切除的指令不能执行

zhaoyinming

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.ShowNamedView2 "*正视于", 0
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.011434, 0.063477, 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", -1.21948925571473E-02, 4.01817488964866E-02, 9.99999999999091E-03, False, 0, Nothing, 0)
Part.ShowNamedView2 "*正视于", 0
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(0#, 0.044558, 0#, 0.000974, 0.049915, 0#)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 0, 4.45580715850986E-02, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point1@原点", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
Dim myDisplayDim As Object
Set myDisplayDim = Part.AddDimension2(0.094472851229608, 1.92354516678841E-02, 0.01)
Part.ClearSelection2 True
Dim myDimension As Object
Set myDimension = Part.Parameter("D1@草图2")
myDimension.SystemValue = 0.045
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("D1@草图2@零件1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 1, 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)
End Sub
代码就是这样的，最后一步切除不能执行，我真的不知道到底是为什么

lyboy

你可能对这么些语句代码均一知半解，请好好学习SW API中的FeatureCut3每个参数的作用。

b6558352

最后一句的修改只有一处
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, True, 1, 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)
就可以完全贯穿打孔