(XD::Block:AppendEntity)块添加实体（替换）

newer

1. ;|
   
2. 块添加实体
   
3. 参数：
   
4.    name  --- 块名 or INSERT对象名
   
5.    ss    --- 实体或选择集
   
6.    pnt   --- 插入点（WCS) （用 pnt  对齐 块 插入点添加实体）
   
7.    flag  --- 是否删除当前块内所有实体，用ss替换
   
8. 
   
9. 返回值：T
   
10. |;
    
11. (defun XD::Block:AppendEntity (name ss pnt flag / ename entl mat n origin)
    
12.   (if (= (type name) 'STR)
    
13.     (setq ename (xdrx_object_get "block" name))
    
14.     (setq ename (cadr (xdrx_getpropertyvalue name "BlockTableRecord")))
    
15.   )
    
16.   (setq origin (xdrx_getpropertyvalue ename "origin"))
    
17.   (setq mat (xdrx_matrix_setTranslation (xdrx_matrix_identity 3) (mapcar
    
18.                                                                    '-
    
19.                                                                    origin
    
20.                                                                    pnt
    
21.                                                                  )
    
22.             )
    
23.   )
    
24.   (xdrx_entity_transform ss mat)
    
25.   (setq entl (xdrx_block->entities name))
    
26.   (xdrx_block_appendentity name ss t)
    
27.   (if flag
    
28.     (foreach n entl
    
29.       (xdrx_entity_delete n)
    
30.     )
    
31.   )
    
32.   (xdrx_block_update name)
    
33. )
    
34. 
    

;|<br /> 块添加实体<br /> 参数：<br />    name  --- 块名 or INSERT对象名<br />    ss    --- 实体或选择集<br />    pnt   --- 插入点（WCS) （用 pnt  对齐 块 插入点添加实体）<br />    flag  --- 是否删除当前块内所有实体，用ss替换<br /> <br /> 返回值：T <br /> |;<br /> (defun XD::Block:AppendEntity (name ss pnt flag / ename entl mat n origin)<br />   (if (= (type name) 'STR)<br />     (setq ename (xdrx_object_get "block" name))<br />     (setq ename (cadr (xdrx_getpropertyvalue name "BlockTableRecord")))<br />   )<br />   (setq origin (xdrx_getpropertyvalue ename "origin"))<br />   (setq mat (xdrx_matrix_setTranslation (xdrx_matrix_identity 3) (mapcar<br />                                                                    '-<br />                                                                    origin<br />                                                                    pnt<br />                                                                  )<br />             )<br />   )<br />   (xdrx_entity_transform ss mat)<br />   (setq entl (xdrx_block->entities name))<br />   (xdrx_block_appendentity name ss t)<br />   (if flag<br />     (foreach n entl<br />       (xdrx_entity_delete n)<br />     )<br />   )<br />   (xdrx_block_update name)<br /> )<br /> <br />

19622928

对xdrx不熟

y18628954029

恩 不错                        

qxlonmsn

大佬  威武 !!!!!!!!!!!!

qxlonmsn

每天学习一点!!!!