[LISP]请教镜像命令

taige

例如程序为(defun c:mi()
 (setq pc1 (getpoint "\n pc1"))
 (initget 7)
 (setq pc2 (getpoint "\n pc2"))
 (initget 7)
 (setq p3 (getpoint "\n p3"))
 (initget 7)
 (setq p4 (getpoint "\n p4"))
 (initget 7)
 (command "line" pc1 pc2" ")
 (command "line" p3 p4" ")
 (setq ss (entlast))
 (command "mirror" ss " " pc1 pc2 " ")
)结果没镜像出来

 pc1
 pc2
 p3
 p4line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
需要点或选项关键字。
; 错误: 函数被取消

phoenixdjq

把(initget 7)都往上移动一行到你要选择的点之前

或者你更改一下你的mirror命令(command "mirror" ss  pc1 pc2 " ")

因为我现在在网吧，没有cad，你先试一下吧

xbbcad

把程序中的 "  "  改为 ""  即可。

taige

xbbcad发表于2006-9-24 10:21:00 把程序中的 \" \" 改为 \"\" 即可。

果然这样，两者区别是什么？

xbbcad

还用说吗？LISP中不能用空格作为命令的空响应～