I am creating edit program.
* object (NurbsCurve) is already existing.
I want to do:
1) Get current location points.
2) Move object (NurbsCurve) point using mouse.
3) Get new location points.
Sample Code:
PROCEDURE EditTest;
VAR
{Location Point}
CurrentStartPtX, CurrentStartPtY, CurrentStartPtZ : REAL;
CurrentEndPtX, CurrentEndPtY, CurrentEndPtZ : REAL;
NewStartPtX, NewStartPtY, NewStartPtZ : REAL;
NewEndPtX, NewEndPtY, NewEndPtZ : REAL;
BEGIN
{Get Current Points}
NurbsGetPt3D(FSActLayer, 0, 0, CurrentStartPtX, CurrentStartPtY, CurrentStartPtZ);
NurbsGetPt3D(FSActLayer, 0, 1, CurrentEndPtX, CurrentEndPtY, CurrentEndPtZ);
{Alert Dialog}
AlrtDialog('Please Modify Object.');
*********************************************************************************
I need function that will allow the user to move the point using mouse.
Do you have any suggestions for what type of FUNCTION to use?
*********************************************************************************
{Get New Points}
NurbsGetPt3D(FSActLayer, 0, 0, NewStartPtX, NewStartPtY, NewStartPtZ);
NurbsGetPt3D(FSActLayer, 0, 1, NewEndPtX, NewEndPtY, NewEndPtZ);
END;
RUN(EditTest);
{End of Code.}
Can someone help me or is it impossible?
Thanks much in advance.