VBA UCS problem - draw line / 3dpolyline

[victos]

Hi,

 

I have a problem because I can not calculate correctly point P2 relative to local coordinate system.

The point is that the user indicates the P1 and P2 from P1 is located about 100 units in the axis X. How to draw a line from P1 to P2 but in a local coordinate system?

 

Please help

[SEANT]

ThisDrawing.Utility.TranslateCoordinates is the function for translating from one coordinate system to another. See the information on that method in the ActiveX and VBA Reference.

 

Additional information related to this function can be found at:

AutoLISP Reference Guide – Using AutoLISP to Communicate with AutoCAD – Conversions – Coordinate System Transformations

[fixo]

Oops, I posted my response in there

http://www.cadforums.net/post-51308.html#51308

[victos]

Thank you, but not quite what I meant.

 

How can I get secondPoint did not indicate the user, only that:

secondPoint (0) = firstPoint (0) + 100

secondPoint (1) = firstPoint (1)

secondPoint (2) = firstPoint (2)

 

It does not work