为什么我的“extend”不能用呢？

renaguo

程序如下，结果上两条线还是原样子，线2并没有延长至线1，能帮我解决一下吗？谢谢！ (defun c:try1()
(setq p1 '(0 0))
(setq p2 '(1000 0))
(setq line1 (command "line" p1 p2 "")) (prin1)
(setq p3 '(1000 500))
(setq p4 '(1000 300))
(setq line2 (command "line" p3 p4 "")) (prin1)
(command "extend" line1 "" line2 "")
(prin1)
)

renaguo

我自己发现问题了：setq定义line不成功，现在改用entlast 但还想问问setq到底对哪些定义有用呢？谢谢！ (defun c:try1()
(setq p1 '(0 0))
(setq p2 '(1000 0))
(command "line" p1 p2 "")
(setq l1 (entlast))
(setq p3 '(1000 500))
(setq p4 '(1000 300))
(command "line" p3 p4 "")
(setq l2 (entlast))
(command "extend" l1 "" l2 "")
(prin1)
)

ZZXXQQ

SETQ是赋值函数，只是将后面的函数返回值赋给变量。而COMMAND函数总是返回nil。楼主还是要多看看LISP的函数说明才行。

ll_j

将(command "extend" l1 "" l2 "")改为(command "extend" l1 "" (list l2 p4)        "")试试。

行天下

楼主好走走看看转一转