0 Members and 1 Guest are viewing this topic.
;;; display coordinates and elevation;;; output looks like this;;; Pick Point... N=1267857.385 E=590288.382 ELEV=0.00 590288.382,1267857.385(defun C:CDD (/ p1) (while (setq p1 (getpoint "\nPick Point... ")) (progn (prompt (strcat "N="(rtos (cadr p1)2 3)" " "E="(rtos (car p1)2 3)" " "ELEV="(rtos (caddr p1)2 2)" " (rtos (car p1)2 3)","(rtos (cadr p1)2 3) ) ); prin1 ); progn ) (princ) ); defun