求个贱人工具箱里的复制旋转的单独插件，类似的也行

A离沐

就用一个功能，每次加载插件，出那个画面，费时间

liuhe

2. (defun c:qa ( / ss ss1 p1 p2 e i ang)
   
3.   (setq ss (ssget))
   
4.   (if (not ss)
   
5.     (vl-exit-with-value 0)
   
6.   )
   
7.   (setq p1 (getpoint "\n选择复制基点"))
   
8.   (if (not p1)
   
9.     (vl-exit-with-value 0)
   
10.   )
    
11.   (setq p2 (acet-ss-drag-move ss p1 "\n选择插入点" 1))
    
12.   (setq        i   0
    
13.         ss1 (ssadd)
    
14.   )
    
15.   (repeat (sslength ss)
    
16.     (setq e (ssname ss i)
    
17.           i (1+ i)
    
18.     )
    
19.     (vla-copy (vlax-ename->vla-object e))
    
20.     (setq e   (entlast)
    
21.           ss1 (ssadd e ss1)
    
22.     )
    
23.     (vla-move (vlax-ename->vla-object e)
    
24.               (vlax-3D-point p1)
    
25.               (vlax-3D-point p2)
    
26.     )
    
27.   )
    
28.   (setq ang (acet-ss-drag-rotate ss1 p2 "\n选输入旋转角度" 1))
    
29.   (setq i 0)
    
30.   (repeat (sslength ss1)
    
31.     (setq e (ssname ss1 i)
    
32.           i (1+ i)
    
33.     )
    
34.     (vla-rotate (vlax-ename->vla-object e) (vlax-3D-point p2) ang)
    
35.   )
    
36. 
    
37. 
    
38. 
    
39. )

(defun c:qa ( / ss ss1 p1 p2 e i ang)<br />   (setq ss (ssget))<br />   (if (not ss)<br />     (vl-exit-with-value 0)<br />   )<br />   (setq p1 (getpoint "\n选择复制基点"))<br />   (if (not p1)<br />     (vl-exit-with-value 0)<br />   )<br />   (setq p2 (acet-ss-drag-move ss p1 "\n选择插入点" 1))<br />   (setq        i   0<br />         ss1 (ssadd)<br />   )<br />   (repeat (sslength ss)<br />     (setq e (ssname ss i)<br />           i (1+ i)<br />     )<br />     (vla-copy (vlax-ename->vla-object e))<br />     (setq e   (entlast)<br />           ss1 (ssadd e ss1)<br />     )<br />     (vla-move (vlax-ename->vla-object e)<br />               (vlax-3D-point p1)<br />               (vlax-3D-point p2)<br />     )<br />   )<br />   (setq ang (acet-ss-drag-rotate ss1 p2 "\n选输入旋转角度" 1))<br />   (setq i 0)<br />   (repeat (sslength ss1)<br />     (setq e (ssname ss1 i)<br />           i (1+ i)<br />     )<br />     (vla-rotate (vlax-ename->vla-object e) (vlax-3D-point p2) ang)<br />   )<br /> <br /> <br /> <br /> )

必须装ET工具箱

e2002

ExpressTools （就是上面这个回帖中提到的的 ET工具箱）中提供了一个 mocoro 命令，你可以试试。

dcl1214

自己写一个

hcrespo

天正自带。。