求自转公转LISP

xyp1964

2. 
   
3. (defun c:tt ()
   
4.   (princ "\n选择实体: ")
   
5.   (setq        ss  (ssget)
   
6.         pc1 (getpoint "\n公转中心点: ")
   
7.         ang (UREAL 7 "" "角度" ang)
   
8.         int (Uint 7 "" "阵列数量" int)
   
9.         i   0
   
10.   )
    
11.   (repeat int
    
12.     (setq s0 (entlast)
    
13.           i  (1+ i)
    
14.     )
    
15.     (xyp-copy ss)
    
16.     (setq ss1 (xyp-SSelEntnext s0))
    
17.     (xyp-rotate ss1 pc1 (* ang i))
    
18.     (xyp-rotate ss1 (xyp-9pt ss1 5) (* ang i 2))
    
19.   )
    
20.   (princ)
    
21. )
    

<br /> (defun c:tt ()<br />   (princ "\n选择实体: ")<br />   (setq        ss  (ssget)<br />         pc1 (getpoint "\n公转中心点: ")<br />         ang (UREAL 7 "" "角度" ang)<br />         int (Uint 7 "" "阵列数量" int)<br />         i   0<br />   )<br />   (repeat int<br />     (setq s0 (entlast)<br />           i  (1+ i)<br />     )<br />     (xyp-copy ss)<br />     (setq ss1 (xyp-SSelEntnext s0))<br />     (xyp-rotate ss1 pc1 (* ang i))<br />     (xyp-rotate ss1 (xyp-9pt ss1 5) (* ang i 2))<br />   )<br />   (princ)<br /> )<br />

xyp1964

ZZXXQQ

crazymiss 发表于 2013-9-6 08:28
试过了，不行。过程我贴上来了，您再给看看！~

6楼已改，再试试。

crazymiss

xyp1964 发表于 2013-9-8 09:19

大神  你这怎么做出来的···

crazymiss

ZZXXQQ 发表于 2013-9-8 09:45
6楼已改，再试试。

谢谢！！ 做出来了·· 虽然细节上还有问题 ，但基本上已经可以实现。万分感谢！