一个问题

oidq

看了很多贴子，也研究了lisp的帮助。

我在使用(getpoint point1 "选择点或输入C沿用默认点")之后，如果选择C使用默认点，那么这个getpoint命令应该失效而继续进行程序的下面部分，但实际上不管怎么做AutoCAD永远记得让你选则一个点。

如：

……;程序的上半部

(initget 7 "c")

(setq kword (getpoint point1 "选择点或输入C沿用默认点")'

(if (= kword "c") (setq thepoint oldpoint) (setq thepoint kword)

……;程序的后面部分

迷茫中~

ZZXXQQ

可以不用键入字母c，空回车也行。
……
(setq p2 (getpoint point1 "选择点(回车用默认点) :"))
(setq pt2 (if p2 p2 oldpoint))
……

caoyin

(if (= kword "c") (setq thepoint oldpoint) (setq thepoint kword)

红色部分返回有两种情况：

1.用户拾取点；

2.用户enter。

建议将if语句改用cond，判断点可用vl-cons

英雄无敌

(defun c:test ()
  (setq point1 (getpoint "\npoint"))
  (initget 7 "c")

  (setq kword (getpoint point1 "\n选择点或输入C沿用默认点:"))

  (if
    (= kword "c")
     (setq thepoint "输入了C")
     (setq thepoint kword)

  )
  (princ"\n")
  (princ thepoint)
  (princ)
)

CAD并没有在要求输入两个点啊，第一个点point1是肯定要的