PRECISION 15
SETPOINT "SET A POINT ON THE CURVE" 1
pointval e1 n1 z1 1
>pointselect
{
<pointxyz [e1,n1,z1]
}
getselect 1, j
entity j
POINTVAL X1 Y1 Z1 1
>POINTMARK
{
<pointxyz [X1,Y1,Z1]
}
>ZOOM
{
<size 1
<pointxyz [X1,Y1,Z1]
}
END