Hi this command works great showing bearing and distance, can anyone help so I can use the " 'PN" command?
Would save time with many point written down so i don't have to click the point but type in point number, this lisp is handy as I like how it shows up in a dialog box.
Thanks in advance.
Cheers
Allan
(DEFUN C:DDD ()
(SETQ PT1 (GETPOINT "\nDIST BETWEEN 2 POINTS ... First Point..."))
(SETQ PT2 (GETpoint pt1 "\nNext Point..."))
(command "dist" pt1 pt2)
(setq dist1 (rtos (getvar "distance") 2 3))
(setq brg1 (angtos (angle pt1 pt2)))
(setq bdtxt (strcat "BEARING " brg1 " DISTANCE " dist1))
(alert bdtxt)
(princ)
)