Hi,
i draw a Sketch Line and debug the Start and EndPoint Coordinates
... Dim oStartPoint Dim oEndPoint Dim oSketch As PlanarSketch Set oSketch = oCompDef.Sketches(1) Dim oSketchLine As SketchLine For Each oSketchLine In oSketch.SketchLines Dim dCoordinates(2) As Double Call oSketchLine.Geometry.StartPoint.GetPointData(dCoordinates) Debug.Print "StartPoint = " & dCoordinates(0) & ", " & dCoordinates(1) Call oSketchLine.Geometry.EndPoint.GetPointData(dCoordinates) Debug.Print "EndPoint = " & dCoordinates(0) & ", " & dCoordinates(1) Debug.Print "---" Next
The Results is
StartPoint = 1.11022302462516E-16, 4.49956402428943
EndPoint = 2.00100803964792, 4.49956402428943
when i look in the Drawing is the Result
so my Problem is when i draw a Line with the Coordinates there i get its the Line Diffrent to the Original Line!
ths for Hints Tips or Solutions
Mario
Solved! Go to Solution.
Solved by mario.lung. Go to Solution.
The picture is too small to be able to see what's going on. How are you drawing the second line; using the API or interactively? The coordinates returned when you query the start and end points are 2D coordinates in sketch space and in centimeters. Depending on how you're drawing the second line it might be in different units, in model space, or in the space of a different sketch.
Hey,
I have now the Result
when i dosent editclose or update the Document
the Result is wrong
after this the resoults are rigth!
thx for Help
Mario