AutoLisp 取出 (X,Y,Z) 座標

;前言:在螢幕點一下後抓取X,Y,Z座標
(setq pt1 (getpoint "\n點一下:")) ==> 得到 座標 list: '(1.1 2.2 3.3)
(car pt1) ==> 1.1 ;取出X座標
(cadr pt1) ==> 2.2 ;Y
(caddr pt1) ==> 3.3 ;Z