[求助]：批量删除命令？

丹佛

并排的一列图，比如纵断面图，想删除每一张图中相同位置的东西，写了一个小lisp，可调试不成功，请高手看看。
(defun c:ee(/ n  p1 p2  l) ;
  
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "osmode" 0)
  (command "undo" "m")
  (setq n (getint"\n次数<1>:"))
  (if (= n nil)
     (setq n 1)
  )
  (print"输入两点时正选")
  (setq p1 (getpoint"\n请输入第一个点:"))
  (setq p2 (getpoint"\n请输入第二个点:"))
  (setq l 900)
　(repeat  n
    (setq p3 p1)
    (setq p4 p2)
  
    (vl-cmdf "_.erase" "c" p3 p4 "" )
   
    (setq p1 (polar p3 0 l))
    (setq p2 (polar p4 0 l))   
    )

  (prin1)

  (princ)
  )

snoopychen

程序应该是可以的，但就是选择的时候没有最大化，可能会出错，加了一个zoom e的段
补齐了一点undo项

[php]
(defun c:test(/ n p1 p2 l) ;
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "osmode" 0)
(command "undo" "be")
(setq n (getint"\n次数<1>:"))
(if (= n nil)
(setq n 1)
)
(print"输入两点时正选")
(setq p1 (getpoint"\n请输入第一个点:"))
(setq p2 (getpoint "\n请输入第二个点:") )
(setq l 900)
(command "zoom" "e")
　(repeat n
(setq p3 p1)
(setq p4 p2)

(vl-cmdf "_.erase" "c" p3 p4 "" )

(setq p1 (polar p3 0 l))
(setq p2 (polar p4 0 l))
)

(prin1)

(princ)
(command "zoom" "p")
(command "undo" "e")
)
[/php]

丹佛

二楼的，有没有不用(command "zoom" "e") 的办法，因为我的图是用PAPER空间创建的，是分图的图纸，所以我在删除东西的时候不想所有的图纸都显示，如果显示有可能会死机的。