[求助]有关镜像命令MIRROR的问题！

87282374

cad下镜像命令MIRROR后
提示：要删除源对象吗？[是(Y)/否(N)] <N>:
能否把初始的<N>改为<Y>?
如何改?

黑傑克

正好以前寫過，試試合不合用！

(defun c:mmi()
  (setq en (ssget))
  (setq pt1 (getpoint "\n指定鏡射線的第一點:"))
  (setq pt2 (getpoint pt1 "\n指定鏡射線的第二點:"))
  (initget "Y N")
  (setq qq (getkword "\n是否刪除來源物件？[是(Y)/否(N)] <Y>"))
  (if (= qq nil) (setq qq "Y"))
  (command "mirror" en "" pt1 pt2 qq)
  (princ)
)
(prompt "\n<<<<<  程式指令為: mmi >>>>>")

phoenixdjq

用程序命令代替吧

(defun c:mi()
(command "mirror" (ssget) "" pause pause "y")
(princ)
)

87282374

谢谢！