我无法访问存储在列表中的信息STPT1以及ENDPT1它们是x(0),y(1)和z(2)坐标.
例如,在得到一点之后:(45.4529 21.6384 0.0)当我用Visual LISP检查时,(-(NTH 1 STPT1) 0.5)我得到一个REAL 21.1384,但是以下内容:
(SETQ STPTP2 '((NTH 0 STPT1) (- (NTH 1 STPT1) 0.5) 0))
创建列表:
((NTH 0 STPT1) (- (NTH 1 STPT1) 0.5) 0)
代替:
(45.4529 21.1384 0.0)
我的目标是同时创建两条相互间隔0.5个单位的平行线.
我怎样才能访问这些信息在列表中的不同位置STPT1和ENDPT1,然后分配给在列表STPT2和ENDPT2？
(VL-LOAD-COM)
(DEFUN C:CURBYOURENTHUSIASM ( / STPT1 ENDPT1 STPT2 ENDPT2)
(SETQ STPT1 (GETPOINT "\nSpecify start point: "))
(SETQ ENDPT1 (GETPOINT STPT1 "\nSpecify …