Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("工程图视图1")
boolstatus = Part.Extension.SelectByID2("RD6@工程图视图1", "DIMENSION", 0.141448902321088, 0.110373544198098, 0, False, 0, Nothing, 0)
boolstatus = Part.EditDimensionProperties2(0, 0, 0, "", "", False, 1, 0, True, 12, 12, "沉头孔<MOD-DIAM> <hw-cbdia> 深 <hw-cbdepth>", "", False, "<NUM_INST> x <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", True)
boolstatus = Part.EditDimensionProperties2(0, 0, 0, "", "", False, 1, 0, True, 12, 12, "沉头孔<MOD-DIAM> <hw-cbdia> 深 <hw-cbdepth>", "", False, "<NUM_INST> x <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", True)
Part.ClearSelection2 True
End Sub
|