87282374 发表于 2008-5-24 18:25:00

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

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

黑傑克 发表于 2008-5-25 00:44:00

<p>正好以前寫過，試試合不合用！</p><p>(defun c:mmi()<br/>&nbsp; (setq en (ssget))<br/>&nbsp; (setq pt1 (getpoint "\n指定鏡射線的第一點:"))<br/>&nbsp; (setq pt2 (getpoint pt1 "\n指定鏡射線的第二點:"))<br/>&nbsp; (initget "Y N")<br/>&nbsp; (setq qq (getkword "\n是否刪除來源物件？[是(Y)/否(N)] &lt;Y&gt;"))<br/>&nbsp; (if (= qq nil) (setq qq "Y"))<br/>&nbsp; (command "mirror" en "" pt1 pt2 qq)<br/>&nbsp; (princ)<br/>)<br/>(prompt "\n&lt;&lt;&lt;&lt;&lt;&nbsp; 程式指令為: mmi &gt;&gt;&gt;&gt;&gt;")<br/></p>

phoenixdjq 发表于 2008-5-24 23:57:00

<p>用程序命令代替吧</p><p></p><p>(defun c:mi()<br/>(command "mirror" (ssget) "" pause pause "y")<br/>(princ)<br/>)</p>

87282374 发表于 2008-5-25 13:18:00

谢谢！
页: [1]
查看完整版本: [求助]有关镜像命令MIRROR的问题！