【工具】角度复制

marting

1. (defun c:xdtb_cpyan (/ ss pt i num mat)
   
2.   (xdrx-begin)
   
3.   (xd::doc:getdouble "\n输入角度" "#xd-var-global-angle" 0.0)
   
4.   (xd::doc:getint "\n输入数量" "#xd-var-global-nums" 1)
   
5.   (xdrx-sysvar-push '("osmode" 545))
   
6.   (if (and (xdrx-setvar "picksethome" 0)
   
7.            (setq ss (xdrx-ssget "\n选择要复制的对象<退出>:"))
   
8.            (setq pt (getpoint "\n拾取基点<退出>:"))
   
9.       )
   
10.     (progn (setq num (abs #xd-var-global-nums))
    
11.            (setq i 0)
    
12.            (xdrx-setvar "picksethome" 1)
    
13.            (repeat num
    
14.              (setq mat (xdrx-matrix-setrotation
    
15.                          (* (setq i (1+ i)) (xdrx-math-degtor #xd-var-global-angle)) '(0 0 1)
    
16.                          (trans pt 1 0)
    
17.                        )
    
18.              )
    
19.              (xdrx-entity-transformedcopy ss mat)
    
20.            )
    
21.     )
    
22.   )
    
23.   (xdrx-end)
    
24.   (princ)
    
25. )
    
26. 
    

(defun c:xdtb_cpyan (/ ss pt i num mat)<br />   (xdrx-begin)<br />   (xd::doc:getdouble "\n输入角度" "#xd-var-global-angle" 0.0)<br />   (xd::doc:getint "\n输入数量" "#xd-var-global-nums" 1)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (if (and (xdrx-setvar "picksethome" 0)<br />            (setq ss (xdrx-ssget "\n选择要复制的对象<退出>:"))<br />            (setq pt (getpoint "\n拾取基点<退出>:"))<br />       )<br />     (progn (setq num (abs #xd-var-global-nums))<br />            (setq i 0)<br />            (xdrx-setvar "picksethome" 1)<br />            (repeat num<br />              (setq mat (xdrx-matrix-setrotation<br />                          (* (setq i (1+ i)) (xdrx-math-degtor #xd-var-global-angle)) '(0 0 1)<br />                          (trans pt 1 0)<br />                        )<br />              )<br />              (xdrx-entity-transformedcopy ss mat)<br />            )<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

wxb19880825

记录一下，以防备用，感谢楼主。