[求助]：请教设置命令中子命令的方法

zhb2516

我想设置快捷键来使用某个命令的子命令，比如UCS里的OBject子命令，如何设置一个快捷命令，使用这个命令就可以直接使用“对象坐标系统”的命令。怎么样做呢？大家最好告诉我方法，可以让我举一反三，其他的也就会设置了。

lijiao

最初由 zhb2516 发布
[B]我想设置快捷键来使用某个命令的子命令，比如UCS里的OBject子命令，如何设置一个快捷命令，使用这个命令就可以直接使用“对象坐标系统”的命令。怎么样做呢？大家最好告诉我方法，可以让我举一反三，其他的也就会设?.. [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun c:ucsobj ( / )
   
5.    (command "ucs" "object")
   
6.    (princ)
   
7. )
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> (defun c:ucsobj ( / )<br />    (command "ucs" "object")<br />    (princ)<br /> )<br />   [/FONT]<br />

zhb2516

再次感谢lijiao，lijiao已经不只一次帮我解决问题了，我是真心感谢！但我还想在此基础上进一步了解一下，如果我设置的快捷命令想连续执行两个命令怎么写啊。举个例子，假如现在CAD图处于世界坐标系统（UCS-WORLD），视图为当前的世界坐标系统视图（PLAN-WORLD）；如果我想设置一个快捷命令，命令使用后使坐标系统变为对象坐标系统（UCS-OBJECT），视图变为变换坐标后的当前坐标系统视图（PLAN-Current UCS）。这样这个命令就会要求系统执行(command "ucs" "object")和(command "plan" "Current UCS")两个命令，这样连续执行命令的语言怎么写呢？

XDSoft

最初由 zhb2516 发布
[B]再次感谢lijiao，lijiao已经不只一次帮我解决问题了，我是真心感谢！但我还想在此基础上进一步了解一下，如果我设置的快捷命令想连续执行两个命令怎么写啊。举个例子，假如现在CAD图处于世界坐标系统（UCS-WORLD），... [/B]

自己先根据你要执行的命令需要的参数进行交互获得, 然后在command里面把所有的参数写全.

zhb2516

可以以我这个例子为样板写一个出来让我看看怎么写的吗？

sanndy

编写一个图标工具使用键盘宏ucs^new^object;

lijiao

最初由 zhb2516 发布
[B]再次感谢lijiao，lijiao已经不只一次帮我解决问题了，我是真心感谢！但我还想在此基础上进一步了解一下，如果我设置的快捷命令想连续执行两个命令怎么写啊。举个例子，假如现在CAD图处于世界坐标系统（UCS-WORLD），... [/B]

连续执行多个命令：

2. 
   
3.   [FONT=courier new]
   
4. (command "命令1"    参数11   参数12   .....
   
5.                   "命令2"    参数21   参数22   .....
   
6.                   "命令3"    参数31   参数32   .....
   
7.                    ..............)
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> (command "命令1"    参数11   参数12   .....<br />                   "命令2"    参数21   参数22   .....<br />                   "命令3"    参数31   参数32   .....<br />                    ..............)<br />   [/FONT]<br />

多谢你这么信任我，今后多交流。
lijiao@censtar.com

zhb2516

参数是什么东西啊，我还不明白，我这样写还是不行
(defun c:ccs ( / )
   (command "ucs" "object"
            "plan" "Current UCS")
   (princ)
)
  该怎么写啊

lijiao

最初由 zhb2516 发布
[B]参数是什么东西啊，我还不明白，我这样写还是不行
(defun c:ccs ( / )
   (command "ucs" "object"
            "plan" "Current UCS")
   (princ)
)
  该怎么写啊 [/B]

应该这样：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:ccs ( / )
   
5. (command "ucs" "object"  [COLOR=red]pause[/COLOR]
   
6. "plan" "Current UCS")
   
7. (princ)
   
8. )
   
9. 
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:ccs ( / )<br /> (command "ucs" "object"  [COLOR=red]pause[/COLOR] <br /> "plan" "Current UCS")<br /> (princ)<br /> )<br /> <br />   [/FONT]<br />

因为这时UCS要求有两个参数。
不过，这样写命令不是很好，没有容错处理。

sapphirele888

设置快捷键来使用某个命令的子命令，比如UCS里的OBject子命令，如何设置一个快捷命令，使用这个命令就可以直接使用“对象坐标系统”的命令。
(DEFUN C:UE () (COMMAND "UCS" "E") (princ))

e2002

应该先用entsel选择object,并保存到一个变量中.再调用command,传递变量.这样才能容错.

2. 
   
3. (defun C:UCS_object_PlanView ( / esl)
   
4.   ;; here add save sysvars value and old error handle
   
5. (if (setq esl (entsel))
   
6.   (progn
   
7.     (command "_.ucs" "_n" "_ob" esl)
   
8.     (command "_.plan" "_c")
   
9.   );endprogn
   
10. );endif
    
11.   ;; here restore old sysvars value and old error handle
    
12. (princ)
    
13. );end defun C:C:UCS_object_PlanView
    

<br /> (defun C:UCS_object_PlanView ( / esl)<br />   ;; here add save sysvars value and old error handle<br /> (if (setq esl (entsel))<br />   (progn<br />     (command "_.ucs" "_n" "_ob" esl)<br />     (command "_.plan" "_c")<br />   );endprogn<br /> );endif<br />   ;; here restore old sysvars value and old error handle<br /> (princ)<br /> );end defun C:C:UCS_object_PlanView<br />

多看看论坛贴子和AutoCAD 联机的VisualLISP帮助文档

Icey小虫

可以用PGP改吗

tmwall

学习一下，学习了