运行完mirror命令后，程序就没反应了？

renaguo

我的autolisp程序在执行完mirror后就中止了，后续其他的命令不再执行，指点一下好吗？谢谢

xqyhome

把程序贴上来

renaguo

我的程序类似于下面的： (defun c:mirr()
(setq p1 '(0 0))
(setq p2 '(5000 10000))
(setq p3 '(10000 15000))
(command "pline" p1 p2 p3"")
(command "mirror" (ssget) "" p3 "") ;输入all再回车，且保留原图
(prin1)
(command "line" p1 p3 "")
(prin1)
) 程序就不执行连线p1,p3，请高人指点啊！

f5612140

看不出楼主要的结果,选择all的用意?提供正常过程供参考 (defun c:mirr()
(setq p1 '(0 0))
(setq p2 '(5000 10000))
(setq p3 '(10000 15000))
(command "pline" p1 p2 p3 "")
(setq ss (ssget "l"))
(command "mirror" ss "" p3 p1 "n") ;输入all再回车???,且保留原图 (prin1)
(command "line" p1 p3 "")
(prin1)
)

renaguo

上面的例子比较简单，我实际的图选的对象为所有，(ssget)后，系统提示我就选all，然后是绕中线镜像，根据楼上的给我的程序改成这个，运行很方便了


(command ''mirror" (ssget) "" p1 '(10000 0) ''n'')


但是，不知为何就是不能再运行后边的程序，后边的程序还比较复杂，不止是连接p1和p3。并且我单单运行后面的程序也没有错误。


请继续指点啊，谢谢！

xyp1964

2. (defun c:test ()
3.    (setq  p1 '(0 0)
4.   p2 '(5000 10000)
5.   p3 '(10000 15000)
6.    )
7.    (command "pline" p1 p2 p3 "")
8.    (command "mirror" (ssget "x") "" p3 '(10000 0) "n")
9.    (command "line" p1 p3 "")
10.    (princ)
11. )

(defun c:test ()    (setq  p1 '(0 0)   p2 '(5000 10000)   p3 '(10000 15000)    )    (command "pline" p1 p2 p3 "")    (command "mirror" (ssget "x") "" p3 '(10000 0) "n")    (command "line" p1 p3 "")    (princ) )