how to Showing Polar tracking

(setq pt1(getpoint"\nInsert Point:"))
(setq pt2(getpoint pt1"\nLength :"))

user move the cursor than polar tacking showing

and increase +5 every moving

Tq

What about using the "grid" command

Try this ....

(if (setq pt1 (getpoint "\n Insert Point:"))
 (progn
   (if (not Len )(setq Len 5.))
    (setq pt2 (cond ((getdist (strcat "\n Length < "(rtos Len 2 2) "> :")))(T Len)))
   (setq Len pt2)
   )
 (princ)
 )

Tharwat

Try this ....

 

(if (setq pt1 (getpoint "\n Insert Point:"))
 (progn
   (if (not Len )(setq Len 5.))
    (setq pt2 (cond ((getdist (strcat "\n Length < "(rtos Len 2 2) "> :")))(T Len)))
   (setq Len pt2)
   )
 (princ)
 )

 

Tharwat

i mean, real-time when user move the cursor after 1st point picked

than the polar tracking show every move increase +5

i mean, real-time when user move the cursor after 1st point picked

than the polar tracking show every move increase +5

So turn on the grid mode with spacing 5x5