这样选第四个错了吗？

dhy

我这样选三个的时候是可以用的
  (if (= ctr nil)()(prompt (strcat "\n冲头圆角半径(r)" (rtos ctr) " ,下模圆角半径(R) " (rtos xmr) " ,冲头离折弯线距离(L) " (rtos zwjl)))
  (setq pppp (getpoint "\n冲头圆角半径(r),下模圆角半径(R),冲头离折弯线距离(L)" ))
  (if (= pppp nil)()(setq ctr (car pppp) xmr (cadr pppp) zwjl (caddr pppp)))

但是加上一要选四个的时候，就显示“点无效”，是什么原因呢，请指点

  (if (= ctr nil)()(prompt (strcat "\n冲头圆角半径(r)" (rtos ctr) " ,下模圆角半径(R) " (rtos xmr) " ,冲头离折弯线距离(L) " (rtos zwjl) " ,下模离折弯线距离(XL)" (rtos xmjl))))
  (setq pppp (getpoint "\n冲头圆角半径(r),下模圆角半径(R),冲头离折弯线距离(L),下模离折弯线距离(XL) " ))
  (if (= pppp nil)()(setq ctr (car pppp) xmr (cadr pppp) zwjl (caddr pppp) xmjl (nth 3 pppp)))

Andyhon

依此处:
(setq pppp (getpoint "\n冲头圆角半径(r),下模圆角半径(R),冲头离折弯线距离(L)" ))
则 pppp 是点位值,So ....  (nth 3 pppp)!?

===> (princ pppp) 即知

dhy

不明白

winabcd

getpoint

暂停以等待用户输入点，并返回该点

(getpoint [pt] [msg]) 

用户既可以通过拾取点来指定点，又可以通过输入以当前单位格式表示的坐标来指定点。如果提供了 pt 参数，那么 AutoCAD 会从该点到当前十字光标位置画一条拖引线。该函数的返回值是当前 UCS 中的一个三维点。

用户不能输入一个 AutoLISP 表达式来响应 getpoint 的请求。

参数

pt

当前 UCS 中的二维或三维基点。

请注意 getpoint 函数还可以接受一个整数或实数作为 pt 参数，并使用直接距离输入法来指定点。这种方法以 LASTPOINT 系统变量的值作为起点，将 pt 作为距离，根据当前光标相对于 lastpoint 的位置确定方向。其结果是在当前光标位置的方向上和上一点之间的距离为指定值的点。

msg

用于提示用户的字符串。

返回值

当前 UCS 中的三维点。

示例

(setq p (getpoint)) 

(setq p (getpoint "选取点位置：")) 

(setq p (getpoint '(1.5 2.0) "选取第二个点："))