XDRXAPI 阵列实现的代码

XDSoft

阵列就是X,Y两方向的实体的拷贝组合。

1. (defun c:tt()
   
2.    (if (and (setq xnum (getint "\nX方向数量<退出>:"))
   
3.             (setq xdis (getreal "\nX方向间距<退出>:"))
   
4.             (setq ynum (getint "\nY方向数量<退出>:"))
   
5.             (setq ydis (getreal "\nY方向间距<退出>:"))
   
6.             (setq ss (ssget))
   
7.       )
   
8.     (progn
   
9.       (setq mat0 (xdrx_matrix_identity 3)
   
10.             vx (getvar "ucsxdir")
    
11.             vy (getvar "ucsydir")
    
12.             vec_x (xdrx_vector_product vx xdis);;向量（方向）乘以距离
    
13.             vec_y (xdrx_vector_product vy ydis);;阵列的X方向Y方向同当前的UCS
    
14.       )
    
15.       (setq i 1)
    
16.       (xdrx_setmark);;设置标记为以后取得新生成实体选择集
    
17.       (repeat (1- xnum)
    
18.          (setq mat_x (xdrx_matrix_setTransLation mat0 (xdrx_vector_product vec_x i));;每次拷贝的平移变换矩阵
    
19.                i (1+ i)
    
20.          )
    
21.          (xdrx_entity_transformedcopy ss mat_x);;拷贝变换（留下原来的选择集）
    
22.       )
    
23.       (setq ss1 (xdrx_getss);;获取新生成的实体选择集
    
24.             ss (xdrx_pickset_union ss ss1);;加上原来的选择集，准备Y方向变换
    
25.       )
    
26.       (setq i 1)
    
27.       (repeat (1- ynum)
    
28.          (setq mat_y (xdrx_matrix_setTransLation mat0 (xdrx_vector_product vec_y i))
    
29.                i (1+ i)
    
30.          )
    
31.          (xdrx_entity_transformedcopy ss mat_y)
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )

(defun c:tt()<br />    (if (and (setq xnum (getint "\nX方向数量<退出>:"))<br />             (setq xdis (getreal "\nX方向间距<退出>:"))<br />             (setq ynum (getint "\nY方向数量<退出>:"))<br />             (setq ydis (getreal "\nY方向间距<退出>:"))<br />             (setq ss (ssget))<br />       )<br />     (progn<br />       (setq mat0 (xdrx_matrix_identity 3)<br />             vx (getvar "ucsxdir")<br />             vy (getvar "ucsydir")<br />             vec_x (xdrx_vector_product vx xdis);;向量（方向）乘以距离<br />             vec_y (xdrx_vector_product vy ydis);;阵列的X方向Y方向同当前的UCS<br />       )<br />       (setq i 1)<br />       (xdrx_setmark);;设置标记为以后取得新生成实体选择集<br />       (repeat (1- xnum)<br />          (setq mat_x (xdrx_matrix_setTransLation mat0 (xdrx_vector_product vec_x i));;每次拷贝的平移变换矩阵<br />                i (1+ i)<br />          )<br />          (xdrx_entity_transformedcopy ss mat_x);;拷贝变换（留下原来的选择集）<br />       )<br />       (setq ss1 (xdrx_getss);;获取新生成的实体选择集<br />             ss (xdrx_pickset_union ss ss1);;加上原来的选择集，准备Y方向变换<br />       )<br />       (setq i 1)<br />       (repeat (1- ynum)<br />          (setq mat_y (xdrx_matrix_setTransLation mat0 (xdrx_vector_product vec_y i))<br />                i (1+ i)<br />          )<br />          (xdrx_entity_transformedcopy ss mat_y)<br />       )<br />     )<br />   )<br />   (princ)<br /> )