[LISP程序]：请教高人我的LISP问题

bainhome

有个lisp程序如下：
(defun c:www( / p0)
   (command "mirror" (ssget) "" (setq p0 (getpoint "\n 输入镜像线第一点:")) (getpoint "\n 输入镜像线第二点:" p0) "y")
)
目的是在CAD2006中镜像的时候直接删除原始的对象，现在的问题是在镜像的过程中看不到镜像的对象，而CAD原始的MI命令在镜像的时候是可以到原始的对象的！不知道问题是出在哪里了？
请高人指点一二，谢谢！

hao3ren

(defun c:mii()(command "_.MIRROR" (ssget) "" PAUSE PAUSE "Y"))

gysjy

2. 
   
3.   [FONT=courier new]
   
4. (defun c:w1( / p0)
   
5.   (setq ss (ssget)
   
6.         p0 (getpoint "\n 输入镜像线第一点:")
   
7.         p1 (getpoint "\n 输入镜像线第二点:" p0)
   
8.   )      
   
9.   (command "mirror" ss "" p0 p1 "y")
   
10.   (princ)
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:w1( / p0)<br />   (setq ss (ssget) <br />         p0 (getpoint "\n 输入镜像线第一点:")<br />         p1 (getpoint "\n 输入镜像线第二点:" p0)<br />   )       <br />   (command "mirror" ss "" p0 p1 "y")<br />   (princ)<br /> ) <br />   [/FONT]<br />

bainhome

谢谢2楼的！太感谢了！