这是我想要得到的图形，可是执行宏录制生成的代码，得到的却是
改不对，求哪位大神帮助一下。下附代码。
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0.155197412647794, 0.164754055968331, 0.101229492696234, False, 0, Nothing, 0)
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.004898, -0.022933, 0#)
Part.ShowNamedView2 "*上下二等角轴测", 8
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.03, 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("", "EDGE", 6.95698716316429E-03, 2.26611815035085E-02, 2.97952075574699E-02, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", -7.02855642197164E-03, 3.06516830693226E-03, 2.99999999999159E-02, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.021067, 0.018971, 0#)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.03, 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("", "EDGE", -2.51516732343286E-02, 1.31670084239542E-02, 4.00000000000205E-02, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", -8.27640529505684E-03, 6.93283300689844E-03, 4.00000000000205E-02, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.00091, 0.021246, 0#)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.04, 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
Part.ShowNamedView2 "*右视", 4
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
Dim myRefPlane As Object
Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.018, 0, 0, 0, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.04, 0#, 0#, -0.08, 0#)
Set skSegment = Part.SketchManager.CreateLine(-0.004608, -0.06, 0#, -0.004608, -0.08, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.005929, -0.06, 0#, 0.005929, -0.08, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.005929, -0.08, 0#, -0.004608, -0.08, 0#)
boolstatus = Part.DeSelectByID("Line6", "SKETCHSEGMENT", 0, 0, 0)
boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", -4.75745283562601E-03, 2.07261093991065E-02, 6.65795359154663E-02, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 1.68231152030282E-04, 2.12644460681304E-02, 6.76741323571677E-02, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 6.07905193721783E-03, 2.03776862241511E-02, 6.77835920013378E-02, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgSYMMETRIC"
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(0#, -0.06, 0#, 0.00452, -0.059961, 0#)
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("圆弧1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SketchManager.SketchTrim(1, -2.52383464654787E-03, -0.063639055764932, 0)
Part.SetPickMode
boolstatus = Part.Extension.SelectByID2("圆弧1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SketchManager.SketchTrim(1, 1.96444743660257E-03, -6.39507420207063E-02, 0)
Part.ClearSelection2 True
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, True, 0, 0, 0.02, 0.04, 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
