[求助]：请教Mirror命令的用法

albert2000

MIRROR命令我基本会用，但有个地方我想改一下，不知怎么改
以下是MIRROR命令过程：
MIRROR
选择对象: 找到 1 个
选择对象:
指定镜像线的第一点: 指定镜像线的第二点:
是否删除源对象？[是(Y)/否(N)] <N>: y
能不能不是"N"为默认项，而是Y是默认项，省得我每次都要按Y

                                                   
请高手指点，谢谢先了

xcajcj

albert2000：你好，我刚用AutoLISP重新定义了一下mirorr命令，你试一下，不知是不是与你的想法一致。

mirorr.lsp
;在记事本中输入以下语句并保存为mirorr.lsp
;然后在命令行运行appload命令加载mirorr.lsp后键入mirorr命令即可
;如需自动加载，在acad.mnl文件最后加上(load "mirorr")即可
(defun C:mirorr ( / SS P0 P1 KK)
(setvar "cmdecho" 0);关闭命令行显示
(command "undefine" "mirror");取消内部命令mirorr
(setq SS (ssget));选择需要镜象的对象
(if (/= SS nil)
(progn
(setq P0 (getpoint "\nFirst point of mirror line:"));指定直线端点1
(setq P1 (getpoint P0 "  Second point:"));指定直线端点2
(initget "Yes No");定义关键字Yes和No
(setq KK (getkword "\nDelete old objects? <Y>"))
(if (= KK nil) (setq KK "Yes"));默认值Yes
(command ".mirror" SS "" P0 P1 KK);运行内部命令mirorr
);end progn
);end if
(command "redefine" "mirror");恢复内部命令mirorr
(princ);静默退出
);end (defun

最后说明一下，该程序是在R14汉化版下做的，其它版本未曾用过。

albert2000

xcajcj 兄台，非常感谢您特意编写的lisp程序，14下可以运行。
其实我本意还不只想问mirror命令下默认项的该法，有好几个命令都有这样的问题
默认项是NO，希望怎么改一下，默认项能变成YES。每个都写个lisp稍微麻烦点
有没有通过修改参数的方式，把它改过来？
再次拜谢xcajcj 兄！

xcajcj

好象没有修改参数的方法。不知其它几个命令是什么？

zhuhuifeng

是不是每个命令都可以在LIST里面修改他的设置啊

xcajcj

最初由 zhuhuifeng 发布
[B]是不是每个命令都可以在LIST里面修改他的设置啊 [/B]

应该可以，但前提是你必须熟悉所修改命令的参数和使用方法。

tsec

学习点编程知识吧. 除了可以将yes改成no以外，还可以增加菜单选择。非常方便

xcajcj

最初由 tsec 发布
[B]学习点编程知识吧. 除了可以将yes改成no以外，还可以增加菜单选择。非常方便 [/B]

有事你说话。