【转帖】[求助]请教高手,有关镜像命令mirror的问题！
 

[求助]请教高手,有关镜像命令mirror的问题！
www.dimcax.com
[求助]请教高手,有关镜像命令mirror的问题！
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)
)
但是在"指定鏡射線的第二點"时，没有像默认的那样有预览的效果，这个问题能否解决呢？
d
( c:mmi ( tag)
( en ())
( pt1 ( "\n指定鏡射線的第一點:"))
( "mirror" en "" pt1)
( tag t)
( tag
( "\n指定鏡射線的第二點:")
( "\\")
( ( ( pt1 ( 'lastpoint) 0.000001))
( ( tag nil) ( "y"))
( tag t)
)
)
()
)
d
caoyin,你的程序把:
(setq qq (getkword "\n是否刪除來源物件？[是(y)/否(n)] <y>"))
这个对话取消了?
能否不取消呢?
d
有难度，用grread可以模仿，但osnap又比较麻烦！！？？
d
直接用"mirror"不行吗
(command ".mirror" (ssget) pause)
d