[求助]：能不能合并两个命令

xbaron

能不能合并两个命令，譬如我想旋转图形45度以后再移动到指定位置，能不能通过一个命令实现？

zml84

当然可以实现。
已知动作的自动化就是二次开发的目的之一。

xbaron

能不能帮忙 写下上面的程式？！旋转45度然后移动到指定位置！

希望各位看贴的朋友帮帮忙！

zml84

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test()
   
5. (princ "\n★★请选择要操作的对象。★★")
   
6. (setq s1(ssget)
   
7.           pt0 (getpoint "\n基点：")
   
8.           pt1 (getpoint  pt0  "\n要移动到的点：")
   
9. )
   
10. (command "_ROTATE"  s1  ""  pt0  45 )
    
11. (command "_MOVE" s1 ""  pt0    pt1)
    
12. (princ)
    
13. )
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test()<br /> (princ "\n★★请选择要操作的对象。★★")<br /> (setq s1(ssget)<br />           pt0 (getpoint "\n基点：")<br />           pt1 (getpoint  pt0  "\n要移动到的点：")<br /> )<br /> (command "_ROTATE"  s1  ""  pt0  45 )<br /> (command "_MOVE" s1 ""  pt0    pt1)<br /> (princ)<br /> )<br />   [/FONT]<br />

xyp1964

这样可能更完善：

2. [FONT=courier new](defun c:test (/ s1 pt0 pt1)
   
3.   (princ "\n★★请选择要操作的对象★★")
   
4.   (if (setq s1 (ssget))
   
5.     (if        (setq pt0 (getpoint "\n旋转基点: "))
   
6.       (if (setq pt1 (getpoint pt0 "\n移动基点: "))
   
7.         (progn
   
8.           (command "_ROTATE" s1 "" pt0 45)
   
9.           (command "_MOVE" s1 "" pt0 pt1)
   
10.         )
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )[/FONT]

[FONT=courier new](defun c:test (/ s1 pt0 pt1)<br />   (princ "\n★★请选择要操作的对象★★")<br />   (if (setq s1 (ssget))<br />     (if        (setq pt0 (getpoint "\n旋转基点: "))<br />       (if (setq pt1 (getpoint pt0 "\n移动基点: "))<br />         (progn<br />           (command "_ROTATE" s1 "" pt0 45)<br />           (command "_MOVE" s1 "" pt0 pt1)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]