运行下面程序后,经检查只能得到一个点的坐标是对的,另一点为0?功底太浅,请求大家指点……非常谢谢! (defun C:aaa() (setq zx (car (entsel"\n选择一直线:<退出>"))) (SETQ dxf (ENTGET zx)) (setq p1 (cdr (nth 10 dxf))) (setq p2 (cdr (nth 11 dxf))) (setq p1x(car p1)) (setq p1y(cadr p1)) (setq p1z(caddr p1)) (setq p2x(car p2)) (setq p2y(cadr p2)) (setq p2z(caddr p2)) (print p1x) (print p2x) (princ) ) |