Hi
I have a problem with angular dimension of two enties.
when the angle between two entities increases to 180 degree(e.g.210degree) above it gives opposite angle(360-210=150 degree).
Also i want to change the dimension text location in betweenselected entites.
Here it always places the dimension at x=0.105 and y=0.138.
can u provide me any solution on this matter.
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set SelMgr = swModel.SelectionManager
boolstatus = swModel.ActivateSheet("Sheet1")
boolstatus =swModel.Extension.SelectByID2("Line4@Sketch1@Part1-2@DrawingView1", "EXTSKETCHSEGMENT", 0.0, 0.0, 0, False, 0, Nothing, 0)
boolstatus =swModel.Extension.SelectByID2("Line1@Sketch1@Part1-2@DrawingView1", "EXTSKETCHSEGMENT", 0.0, 0.0, 0, True, 0, Nothing, 0)
Dim Annotation As Object
Set Annotation = swModel.AddDimension2(0.105998, 0.138696,-1.0487E-15)SolidworksApi macros
I have a problem with angular dimension of two enties.
when the angle between two entities increases to 180 degree(e.g.210degree) above it gives opposite angle(360-210=150 degree).
Also i want to change the dimension text location in betweenselected entites.
Here it always places the dimension at x=0.105 and y=0.138.
can u provide me any solution on this matter.
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set SelMgr = swModel.SelectionManager
boolstatus = swModel.ActivateSheet("Sheet1")
boolstatus =swModel.Extension.SelectByID2("Line4@Sketch1@Part1-2@DrawingView1", "EXTSKETCHSEGMENT", 0.0, 0.0, 0, False, 0, Nothing, 0)
boolstatus =swModel.Extension.SelectByID2("Line1@Sketch1@Part1-2@DrawingView1", "EXTSKETCHSEGMENT", 0.0, 0.0, 0, True, 0, Nothing, 0)
Dim Annotation As Object
Set Annotation = swModel.AddDimension2(0.105998, 0.138696,-1.0487E-15)SolidworksApi macros
