代码如下：Set SelMgr = Part.SelectionManagerboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)Part.ClearSelection2 TrueDim SkCircle As ObjectSet SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0.05636327433628, 0.03534646017699, 0)Part.ClearSelection2 TruePart.SketchManager.InsertSketch Trueboolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)Part.ShowNamedView2 "*上下二等角轴测", 8Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)Part.FeatureManager.FeatureExtrusion2 False, False, False, 0, 0, 0.03, 0.03, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, FalsePart.SelectionManager.EnableContourSelection = 0boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)Part.ClearSelection2 TrueSet SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0.009924593600474, 0.01769166685302, 0)Part.ClearSelection2 TruePart.SketchManager.InsertSketch Trueboolstatus = Part.Extension.SelectByID2("草图2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2("草图2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)Part.FeatureManager.FeatureCut False, False, False, 1, 1, 0.03, 0.03, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1Part.SelectionManager.EnableContourSelection = 0
|
