getPt is there a 3d version

[J. Miller]

Once again I'm not sure if this is possible but, is there a way

to simulate getPt in 3D. I would like to return the x, y & z coordinates of a user defined click. Or is there a way to set a 3D locus in x, y & z, from a user defined click.

Thanks in Advance

Jeff Miller

[J. Miller]

maybe i answered it myself.

Does this look reasonable, or maybe there is an easier way?

PROCEDURE Test;

VAR

pt1, pt2 : VECTOR;

han1, han2 : HANDLE;

BEGIN

DSelectAll;

callTool(-316);

han1 := FSActLayer;

Get3DCntr(han1, pt1.x, pt1.y, pt1.z);

SetDSelect(han1);

DelObject(han1);

callTool(-316);

han2 := FSActLayer;

Get3DCntr(han2, pt2.x, pt2.y, pt2.z);

SetDSelect(han2);

DelObject(han2);

poly3d(pt1.x, pt1.y, pt1.z, pt2.x, pt2.y, pt2.z);

END;

RUN(test);