[求助]请教高手,有关镜像命令MIRROR的问题！

userzhl

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)
)
但是在"指定鏡射線的第二點"时，没有像默认的那样有预览的效果，这个问题能否解决呢？

caoyin

2. (defun c:mmi (/ tag)
3.   (setq en (ssget))
4.   (setq pt1 (getpoint "\n指定鏡射線的第一點:"))
5.   (command "mirror" en "" pt1)
6.   (setq tag T)
7.   (while tag
8.     (princ "\n指定鏡射線的第二點:")
9.     (command  "\")
10.     (if (not (equal pt1 (getvar 'lastpoint) 0.000001))
11.       (progn (setq tag nil) (command "Y"))
12.       (setq tag T)
13.     )
14.   )
15.   (princ)
16. )

(defun c:mmi (/ tag)   (setq en (ssget))   (setq pt1 (getpoint "\n指定鏡射線的第一點:"))   (command "mirror" en "" pt1)   (setq tag T)   (while tag     (princ "\n指定鏡射線的第二點:")     (command  "\")     (if (not (equal pt1 (getvar 'lastpoint) 0.000001))       (progn (setq tag nil) (command "Y"))       (setq tag T)     )   )   (princ) )

userzhl

caoyin,你的程序把:

(setq qq (getkword "\n是否刪除來源物件？[是(Y)/否(N)] <Y>"))

这个对话取消了?

能否不取消呢?

caoyin

有难度，用grread可以模仿，但osnap又比较麻烦！！？？

xtjd

直接用"mirror"不行吗

(command ".mirror" (ssget) pause)