AutoLISP抓取X,Y座標練習(car與cadr)

;
(defun c:zz( / pt0)
(setq pt0 (getpoint "\n請點選標示點: "))
(print pt0)
(print (list (car pt0) (cadr pt0))) ;抓取X,Y座標
(princ)
)