' ******************************************************************************
' C:\DOCUME~1\Hjay\LOCALS~1\Temp\swx1648\Macro1.swb - macro recorded on 04/26/08 by Hjay
' 程序中的角度为弧度表示
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID2("大轮轴面", "PLANE", 0.08876722511073, 0, 0.03170258039669, False, 0, Nothing, 0)
Part.InsertSketch2 True
Part.ClearSelection2 True
Part.CreateLine2(-0.007971089462931, 0.006642887579723, 0, 0.06215272207953, -0.04246739121096, 0).ConstructionGeometry = True

Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.03122269072578, 0, 0.02098164424003, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("点1@原点", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
Part.SketchAddConstraints "sgCOINCIDENT"
'add
Part.CreatePoint2 0.009767028630941, -0.006840208603488, 0
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("点1@原点", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point4", "SKETCHPOINT", 0.009767028630941, -0.006840208603488, 0, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.0122279, 0, -0.00805663)
Part.ClearSelection2 True
'boolstatus = Part.Extension.SelectByID2("D1@草图1@gear.SLDPRT", "DIMENSION", 0.008339968529221, 0, -0.01097893108259, False, 0, Nothing, 0)
Part.Parameter("D1@草图1").SystemValue = 0.0005487
'Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 4, 2, 1, 11, 11, "", "", 1, "", "", 0

boolstatus = Part.Extension.SelectByID2("机床平面", "PLANE", 0.002872927986895, 0.05500000000001, -1.841593659427E-05, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.00131591591882, 0, 9.095003464001E-04, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.00204724, 0, 0.00076009)
Part.ClearSelection2 True
'boolstatus = Part.Extension.SelectByID2("D1@草图1@gear.SLDPRT", "DIMENSION", 0.008339968529221, 0, -0.01097893108259, False, 0, Nothing, 0)
Part.Parameter("D2@草图1").SystemValue = 1.17338
'add

'Part.CreatePoint2 1.078138254941E-04, -2.568553440136E-04, 0
Part.CreatePoint2 0.0459408, -0.10944923, 0
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point7", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point4", "SKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.000694684, 0, 0.000138858)
Part.ClearSelection2 True
'boolstatus = Part.Extension.SelectByID2("D3@草图1@gear.SLDPRT", "DIMENSION", 0.008339968529221, 0, -0.01097893108259, False, 0, Nothing, 0)
Part.Parameter("D3@草图1").SystemValue = 0.00043
'add
Part.ClearSelection2 True
Part.CreateLine2(4.594079893141E-05, -1.094492256416E-04, 0, 0.003088253162199, -5.059375746381E-04, 0).ConstructionGeometry = True
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0.001446810935178, 0, 2.914689603727E-04, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 3.958545257989E-04, 0, 9.794661974408E-04, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.00145765, 0, 0.000854868)
Part.ClearSelection2 True
Part.Parameter("D4@草图1").SystemValue = 1.25722

Part.CreatePoint2 1.453178335229E-04, -0.000346204783568, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point10", "SKETCHPOINT", 1.453178335229E-04, -0.000346204783568, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point4", "SKETCHPOINT", 2.123649231143E-04, -5.059375746381E-04, 0, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.000542122, 0, 0.000215627)
Part.ClearSelection2 True
'Part.Parameter("D5@草图1").SystemValue = 0.00008

Part.ClearSelection2 True
Part.CreateLine2(1.814022953593E-04, -4.321723004062E-04, 0, 0.002979907140614, -1.777056377079E-04, 0).ConstructionGeometry = True
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 4.012718268782E-04, 0, 9.903007995994E-04, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0.001506401247051, 0, 3.023035625313E-04, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.00114344, 0, 0.000735688)
Part.ClearSelection2 True
'Part.Parameter("D6@草图1").SystemValue = 1.2738

Part.CreatePoint2 2.601442925871E-04, -6.197670053854E-04, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Point13", "SKETCHPOINT", 2.601442925871E-04, -6.197670053854E-04, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point4", "SKETCHPOINT", 2.123649231143E-04, -5.059375746381E-04, 0, True, 0, Nothing, 0)
Set Annotation = Part.AddDimension2(0.000428358, 0, 0.000453988)
Part.ClearSelection2 True
'Part.Parameter("D7@草图1").SystemValue = 0.0001