[求助]：求教各位达人帮我修改一下我自己写的lisp

0101010

;;;垂直镜像块
(vl-load-com)
(defun c:mm (/ mm1 e pt pt1 pt2 n)
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "cmdecho" 0)
   (prompt "\n请选择要镜像的块：")
   (setq mm1 (ssget '((0 . "INSERT"))))     
   (setq n 0)
   (repeat (sslength mm1)
     (setq e (ssname mm1 n))
     (progn
        (setq pt (cdr (assoc 10 (entget e))))
        (setq pt1 (vlax-3d-point (list (car pt) (cadr pt) (caddr pt))))
        (setq pt2 (vlax-3d-point (list (car pt) (+ 100 (cadr pt)) (caddr pt))))
        (vla-mirror (vlax-ename->vla-object e) pt1 pt2)
        (vla-delete (vlax-ename->vla-object e))
     );end progn
     (setq n (+ 1 n))
   );end repeat
  (setvar "osmode" HOLDOSMODE)
  (princ)
)   ;;;end defun


上述代码在Acad2004可以用，主要问题是用了U命令后不但上述命令被撤销，还要撤销上上个命令。举例来说，画一条线之后，再镜像一个块，用U命令返回，不但块返回到镜像前的样子，连线也不见了。

snoopychen

加上两句，请测试一下看行否

2. 
   
3. ;;;垂直镜像块
   
4. (vl-load-com)
   
5. (defun c:mm (/ mm1 e pt pt1 pt2 n)
   
6. (command "undo" "be")
   
7. (setq HOLDOSMODE (getvar "osmode"))
   
8. (setvar "cmdecho" 0)
   
9. (prompt "\n请选择要镜像的块：")
   
10. (setq mm1 (ssget '((0 . "INSERT"))))
    
11. (setq n 0)
    
12. (repeat (sslength mm1)
    
13. (setq e (ssname mm1 n))
    
14. (progn
    
15. (setq pt (cdr (assoc 10 (entget e))))
    
16. (setq pt1 (vlax-3d-point (list (car pt) (cadr pt) (caddr pt))))
    
17. (setq pt2 (vlax-3d-point (list (car pt) (+ 100 (cadr pt)) (caddr pt))))
    
18. (vla-mirror (vlax-ename->vla-object e) pt1 pt2)
    
19. (vla-delete (vlax-ename->vla-object e))
    
20. );end progn
    
21. (setq n (+ 1 n))
    
22. );end repeat
    
23. (setvar "osmode" HOLDOSMODE)
    
24. (command "undo" "e")
    
25. (princ)
    
26. 
    
27. ) ;;;end defun
    

<br /> ;;;垂直镜像块<br /> (vl-load-com)<br /> (defun c:mm (/ mm1 e pt pt1 pt2 n)<br /> (command "undo" "be")<br /> (setq HOLDOSMODE (getvar "osmode"))<br /> (setvar "cmdecho" 0)<br /> (prompt "\n请选择要镜像的块：")<br /> (setq mm1 (ssget '((0 . "INSERT"))))<br /> (setq n 0)<br /> (repeat (sslength mm1)<br /> (setq e (ssname mm1 n))<br /> (progn<br /> (setq pt (cdr (assoc 10 (entget e))))<br /> (setq pt1 (vlax-3d-point (list (car pt) (cadr pt) (caddr pt))))<br /> (setq pt2 (vlax-3d-point (list (car pt) (+ 100 (cadr pt)) (caddr pt))))<br /> (vla-mirror (vlax-ename->vla-object e) pt1 pt2)<br /> (vla-delete (vlax-ename->vla-object e))<br /> );end progn<br /> (setq n (+ 1 n))<br /> );end repeat<br /> (setvar "osmode" HOLDOSMODE)<br /> (command "undo" "e")<br /> (princ)<br /> <br /> ) ;;;end defun<br />

0101010

问题解决，谢谢，只是不知道为什么产生这个问题。

yinzhun22

学习学习