(getpoint) - returns (1.0 1.0 1.0) or (x y z) in LIST format. To save the
point use (setq point1 (getpoint)). To access the different values use
(setq x (car point1)) or (setq y (cadr point1)) or (setq z (caddr point1)).
Here you go:
(defun c:pointlist ()
(setq point1 (getpoint "\nSelect point: "))
(setq x (car point1))
(setq y (cadr point1))
(setq z (caddr point1))
(prompt (strcat "\n\nSelected point is \(" (rtos x) "," (rtos y) "," (rtos
z) "\)."))
(princ)
)
Later,
AW
suky wrote in message <3BB9F3F2.CCAD60A9@hotmail.com>...
>I need a lisp that reads x,y,z coordinates by picking a point.
>Thanx in advance.
>