[求助][推荐] 镜像，减少一个步骤LSP

feelg

请帮个忙，修一下这个LSP
镜像过程后一步，是否删除原来对象。（Y/N）
想直接（Y）删除，不想在输入（Y）了。

没办法。。太菜了。大家帮一下。

3. (defun c:vf()
4. (command "MIRROR" )
5. (选择对象 )
6. (command "Y" )
7. )

(defun c:vf() (command "MIRROR" ) (选择对象 ) (command "Y" ) )

jh1005

(defun c:test (/ ss pt1 pt2)
 (setvar "cmdecho" 0)
 (setq ss (ssget))
 (if ss (setq pt1 (getpoint "\n指定镜像线的第一点:")))
 (if pt1 (setq pt2 (getpoint pt1 "指定镜像线的第二点:")))
 (if (and ss pt1 pt2) (command "MIRROR" ss "" "non" pt1 "non" pt2 "Y"))
 (princ)
)

feelg

非常感谢。俺还得多多学习。