[求助]急！请教

dadaodui · 发表于 2004-8-9 02:40:00

我刚学autolisp编程，下面是我试编的一个，运行后老是说“参数太少“，可我觉得这段代码没错啊，请教各位大侠问题到底在什么地方？
(defun c:gangjin (/a b)
   (setq a (getpoint"请\n输入第一点:"))
   (setq b (getpoint"请\n输入第二点:"))
   (command "line" a b "")

)

CADghost · 发表于 2004-8-9 07:51:00

(defun c:gangjin (/ a b)
   (setq a (getpoint"请\n输入第一点:"))
   (setq b (getpoint"请\n输入第二点:"))
   (command "line" a b "")

)
看看第一行你设的变量，在a与\之间加一个空格就好了！

xyp1964 · 发表于 2004-8-9 08:46:00

最好增加拖拽显示：
(defun c:gangjin (/ a b)
   (setq a (getpoint"\n\t请输入第一点:"))
   (setq b (getpoint a "\n\t请输入第二点:"))
   (command "line" a b "")
)

dadaodui · 发表于 2004-8-9 10:37:00

谢谢各位大侠，还是不行，可我改成下边这样就行了，难道变量不能设？到底是怎么回事？(defun c:gangjin ()
   (setq a (getpoint"请\n输入第一点:"))
   (setq b (getpoint"请\n输入第二点:"))
   (command "line" a b "")

)