[求助]：怎么我问的问题没了呢？

cooldream

我想求助一下，我加载了一个.LSP以后
（1）我打MIRROR程序就不再出现选择Y/N选项，而是直接是Y，把我原来的给删了~
（2）我输出块的时候不在有保存路径的选择，而是直接存到了CAD目录下，请问如何解决？  



(defun c:r90 (/ gp) (setq gp(ssget)) (command "rotate" gp pause"" "@" "90"))
(defun c:zw () (command "zoom" "w"))
(defun c:zp () (command "zoom" "p"))
(defun c:zd () (command "zoom" "d"))
(defun c:ze () (command "zoom" "e"))
(defun c:za () (command "zoom" "a"))
(defun c:st () (command "stretch" "c"))
(defun c:cl (/ gp) (setq gp (ssget))
            (command "change" gp "" "p" "la" pause ""))
(defun c:chi () (setq gp (ssget ))(command "change" gp "" "" "" "" pause ""))
(defun c:ctxt () (setq gp (ssget)) (command "change" gp "" "" "" "" "" ""))
(defun c:mi () (setq gp (ssget)) (command "mirror" gp "" pause pause "y"))
(defun c:mr () (setq gp (ssget)) (command "mirror" gp "" pause pause "n"))
(defun c:w  () (command "wblock"))
(defun c:b  () (command "block" "endp" pause))
(defun c:pj () (setq gp (ssget)) (command "pedit" gp "j" gp "" ""))
(defun c:j  () (setq gp (ssget)) (command "pedit" gp "y" "j" gp "" ""))
(defun c:b2 () (command "break" pause "@"))
(defun c:ue () (command "ucs" "e" ))
(defun c:nt () (command "dim" "newtext"  ))
(defun c:up () (command "dim" "update" ))
(defun c:dda () (command "ddatte"))
(defun c:sc () (command "scale"))

(defun c:th () (setq gp (ssget))
            (command "change" gp "" "p" "th" pause ""))

(defun c:el () (setq gp (ssget))
            (command "change" gp "" "p" "e" pause ""))



(defun c:sty () (command "style" "shz" "simplex,shztxt" pause pause """"""))

(defun c:ls ()
  (setq ename (car(entsel "\n SET the curent layer by the element:")))
  (setq laynam(cdr(assoc 8 (entget ename))))
  (command "layer" "s" laynam ^c^c)
  );defun

(defun c:lo ()
  (setq ename (car(entsel "\n OFF layer by the element:")))
  (setq laynam(cdr(assoc 8 (entget ename))))
  (command "layer" "off" laynam ^c^c)
  );defun

(defun c:dl()
   (setq l (strcase (getstring "\n Enter layername to delete:")))
   (setq e (entnext))
   (while e
     (if (= l(cdr (assoc 8 (entget e))))
       (entdel e)
      )                                            
      (setq e (entnext e))
   )
   )

(defun c:ldl ()
  (setq ename (car(entsel "\n DELete a layer by the enlement:")))
  (setq laynam(cdr(assoc 8 (entget ename))))
  (setq e (entnext))
  (while e
    (if (= laynam (cdr (assoc 8 (entget e))))
       (entdel e)
       )
       (setq e (entnext e))
    )
  )

(defun c:ll ()
   (prompt "\n Select the objects to curent layer:")
   (setq gp (ssget))
   (setq clay (getvar "clayer"))
   (command "change" gp "" "p" "la" clay "")
   )

(defun c:ln () (command "layer" "on" "*" ""))
(defun c:lf () (command "layer" "off" "*" "n" ""))

(defun c:lm ()
    (prompt "\n select the layer to delete:")
    (setq al (entget (car(entsel))))
    (setq nam (cdr (assoc 8 al)))
    (command "layer" "lock" "*" "")
    (command "layer" "u" nam "")
    (command "erase" "all" "" )
    (command "layer" "u" "*" "")
  );def


(defun c:lk ()
  (setq ename (car(entsel "\n Select the layer to lock: ")))
  (setq laynam (cdr(assoc 8 (entget ename))))
  (command "layer" "lo" laynam "")
);def

(defun c:lu ()
  (setq ename (car(entsel "\n Select the layer to lock: ")))
  (setq laynam (cdr(assoc 8 (entget ename))))
  (command "layer" "u" laynam "")
);def

(defun c:row ()
  (setq oldlay (getvar "clayer"))
  (setq pt (getpoint "\n Please enter the point:"))
  (setq y (cadr pt))
  (setq pt1 (list (car (getvar "EXTMIN")) y))
  (setq pt2 (list (car (getvar "EXTMAX")) y))
  (command "layer" "m" "temp" "c" "8" "" "")
  (command "line" pt1 pt2 "")   
  (command "layer" "S" oldlay "")
  )


(defun c:col ()
  (setq oldlay (getvar "clayer"))
  (setq pt (getpoint "\n Please enter the point:"))
  (setq x (car pt))
  (setq pt1 (list x (cadr (getvar "EXTMIN"))))
  (setq pt2 (list x (cadr (getvar "EXTMAX"))))
  (command "layer" "m" "temp" "c" "8" "" "")
  (command "line" pt1 pt2 "")   
  (command "layer" "S" oldlay "")
  )

yi.gao

没完全理解你的意思。
这句程序的意思就是镜像所选对象并删除原对象。
(defun c:mi () (setq gp (ssget)) (command "mirror" gp "" pause pause "y"))
你可以把y改成n或者执行mr进行镜像操作。

cooldream

我按照你说的操作了，发现把那你说的那行删了，MI还是不经过我同意就删了原问题，MR就是没有我选择同意就是保留原文件~~