[已解决]：镜像lsp求助

haibinpro

运行后提示：
错误: 参数太少

要怎样解决呢？

2. 
   
3. (defun c:MIRRORYES(mirrorpt1 mirrorpt2 / gp)
   
4.         (prompt "\n 选择要镜像的对象")
   
5.         (setvar "cmdecho" 0)
   
6.         (setq gp (ssget))
   
7.         (setq mirrorpt1 (getpoint "\n 镜像基准点1"))
   
8.         (if
   
9.                 (= mirrorpt1 NIL)
   
10.                 (command "mirror" gp "" mirrorpt1 mirrorpt2 "y")
    
11.                 (setq mirrorpt2 (getpoint "\n 镜像基准点2"))
    
12.         )        
    
13.         (command "mirror" gp "" mirrorpt1 mirrorpt2 "y")
    
14.         (prin1)
    
15. )
    

<br /> (defun c:MIRRORYES(mirrorpt1 mirrorpt2 / gp)<br />         (prompt "\n 选择要镜像的对象")<br />         (setvar "cmdecho" 0)<br />         (setq gp (ssget))<br />         (setq mirrorpt1 (getpoint "\n 镜像基准点1")) <br />         (if <br />                 (= mirrorpt1 NIL)<br />                 (command "mirror" gp "" mirrorpt1 mirrorpt2 "y")<br />                 (setq mirrorpt2 (getpoint "\n 镜像基准点2")) <br />         )         <br />         (command "mirror" gp "" mirrorpt1 mirrorpt2 "y")<br />         (prin1)<br /> )<br />

原程序如下：

2. 
   
3. (defun c:MIRRORYES(/ gp)
   
4.   (prompt "\n 选择要镜像的对象")
   
5.   (setvar "cmdecho" 0)
   
6.   (setq
   
7.     gp (ssget)
   
8.      )
   
9.   (command "mirror" gp "" pause pause "y")
   
10.   (prin1)
    
11. )
    

<br /> (defun c:MIRRORYES(/ gp)<br />   (prompt "\n 选择要镜像的对象")<br />   (setvar "cmdecho" 0)<br />   (setq <br />     gp (ssget)<br />      )<br />   (command "mirror" gp "" pause pause "y")<br />   (prin1)<br /> )<br />

qjcpj

有几处错误：
1. c:MIRRORYES(mirrorpt1 mirrorpt2 / gp)定义有误。
mirrorpt1 和mirrorpt2 定义为变元，程序中调用有问题。
2. 当(= mirrorpt1 NIL)时，if判断语句中之(command "mirror" gp "" mirrorpt1 mirrorpt2 "y")因mirrorpt1和mirrorpt2为nil出错；当(/= mirrorpt1 NIL)时，如果mirrorpt2为nil，if结束 后的(command "mirror" gp "" mirrorpt1 mirrorpt2 "y")这句因mirrorpt2为nil同样会出错。

KLDC

楼主的正解。
在cmmand 里调用mirror，里面的每一个参数都不能为空。
楼主mirrorpt1 mirrorpt2这两个参数应为“点”，但却没有定义或只定义了一个，当然会报参数错。

qjcpj

2. 
   
3. ;;;请参考
   
4. (defun c:test (/ ss pt1 pt2)
   
5.         (prompt "\n 选择要镜像的对象")
   
6.         (setvar "cmdecho" 0)
   
7.         (setq ss (ssget))
   
8.         (if ss
   
9.                 (progn
   
10.                         (setq pt1 (getpoint "\n 镜像基准点1"))
    
11.                         (if pt1
    
12.                                 (progn
    
13.                                         (setq pt2 (getpoint pt1 "镜像基准点2："))
    
14.                                         (if pt2
    
15.                                                 (progn
    
16.                                                         (command "mirror" ss "" pt1 pt2 "y")
    
17.                                                 )
    
18.                                         )
    
19.                                 )
    
20.                         )
    
21.                 )
    
22.         )
    
23.         (princ)
    
24. )

<br /> ;;;请参考<br /> (defun c:test (/ ss pt1 pt2)<br />         (prompt "\n 选择要镜像的对象")<br />         (setvar "cmdecho" 0)<br />         (setq ss (ssget))<br />         (if ss<br />                 (progn<br />                         (setq pt1 (getpoint "\n 镜像基准点1"))<br />                         (if pt1<br />                                 (progn<br />                                         (setq pt2 (getpoint pt1 "镜像基准点2："))<br />                                         (if pt2<br />                                                 (progn<br />                                                         (command "mirror" ss "" pt1 pt2 "y")<br />                                                 )<br />                                         )<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

haibinpro

最初由 qjcpj 发布
[B]有几处错误：
1. c:MIRRORYES(mirrorpt1 mirrorpt2 / gp)定义有误。
mirrorpt1 和mirrorpt2 定义为变元，程序中调用有问题。
2. 当(= mirrorpt1 NIL)时，if判断语句中之(command "mirror" gp "" mirrorpt1 mirror... [/B]

回复1：要怎样定义呢，
我想将mirrorpt1 mirrorpt2设置为全局变量，以便以后引用。

回复2：
程序的目的是，完成第一次镜像操作后，以后镜像时，选择实体后可以直接右键确认，采用上次的镜像点镜像，免去选择的操作。只要按规定操作，应该不会有什么问题，有问题也只是提示操作有误而已。不影响绘图。

定义*error*函数应该可以解决此类错误问题，不过我没尝试过。

4楼的做法，交互性会好些。

修改完成，谢谢qjcpj。

2. 
   
3. (defun c:MIRRORYES(/ ss pt1 pt2)
   
4.         (prompt "\n 选择要镜像的对象")
   
5.         (setvar "cmdecho" 0)
   
6.         (setq ss (ssget))
   
7.         (if ss
   
8.                 (progn
   
9.                         (setq pt1 (getpoint "\n 镜像基准点1"))
   
10.                         (if pt1
    
11.                                 (progn
    
12.                                         (setq mirrorpt1 pt1)
    
13.                                         (setq pt2 (getpoint pt1 "镜像基准点2："))
    
14.                                         (if pt2
    
15.                                                 (progn
    
16.                                                         (setq mirrorpt2 pt2)
    
17.                                                         (command "mirror" ss "" pt1 pt2 "y")
    
18.                                                 )
    
19.                                         )
    
20.                                 )
    
21.                                 (command "mirror" ss "" mirrorpt1 mirrorpt2 "y")
    
22.                         )
    
23.                 )
    
24.         )
    
25.         (princ)
    
26. )
    

<br /> (defun c:MIRRORYES(/ ss pt1 pt2)<br />         (prompt "\n 选择要镜像的对象")<br />         (setvar "cmdecho" 0)<br />         (setq ss (ssget))<br />         (if ss<br />                 (progn<br />                         (setq pt1 (getpoint "\n 镜像基准点1"))<br />                         (if pt1<br />                                 (progn<br />                                         (setq mirrorpt1 pt1)<br />                                         (setq pt2 (getpoint pt1 "镜像基准点2："))<br />                                         (if pt2<br />                                                 (progn<br />                                                         (setq mirrorpt2 pt2)<br />                                                         (command "mirror" ss "" pt1 pt2 "y")<br />                                                 )<br />                                         )<br />                                 )<br />                                 (command "mirror" ss "" mirrorpt1 mirrorpt2 "y")<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )<br />

qjcpj

直接在程序中将pt1和pt2用mirrorpt1和mirrorpt2替代，注意将mirrorpt1和mirrorpt2设为局部变量。