(list x y z) x y 좌표로 변경

(defun 3dPoint->2dPoint	(3dpt)
	(list (float(car 3dpt)) (float(cadr 3dpt)))
)