ADJUST TO USE THE 'PN COMMAND

[allanbsteven]

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)
)