API应用之图块内实体原位拷贝出来

newer

1. (defun c:tt()
   
2.    (if (setq ss (ssget '((0 . "INSERT"))))
   
3.       (progn
   
4.          (setq entl (xdrx_pickset->ents ss))
   
5.          (xdrx_setmark)
   
6.          (foreach n entl
   
7.             (xdrx_setenttodb n)
   
8.             (setq na (xdrx_getentdxf 2)
   
9.                   obj (xdrx_object_get "block" na)
   
10.                   mat (xdrx_matrix_block2wcs n)
    
11.             )
    
12.             (while (setq e (xdrx_object_next))
    
13.                (setq e (cadr e))
    
14.                (xdrx_entity_transformedcopy e mat)
    
15.             )
    
16.           )
    
17.           (setq ss (xdrx_getss))
    
18.           (sssetfirst nil ss)
    
19.       )
    
20.    )
    
21.    (princ)
    
22. )
    
23. 
    

(defun c:tt()<br />    (if (setq ss (ssget '((0 . "INSERT"))))<br />       (progn<br />          (setq entl (xdrx_pickset->ents ss))<br />          (xdrx_setmark)<br />          (foreach n entl<br />             (xdrx_setenttodb n)<br />             (setq na (xdrx_getentdxf 2)<br />                   obj (xdrx_object_get "block" na)<br />                   mat (xdrx_matrix_block2wcs n)<br />             )<br />             (while (setq e (xdrx_object_next))<br />                (setq e (cadr e))<br />                (xdrx_entity_transformedcopy e mat)<br />             )<br />           )<br />           (setq ss (xdrx_getss))<br />           (sssetfirst nil ss)<br />       )<br />    )<br />    (princ)<br /> )<br /> <br />

namezg

不算太理想，有局限

newer

namezg 发表于 2013-8-13 19:18
不算太理想，有局限

这只是个API函数的演示，看出什么局限了？可以说说，完善下。

namezg

ucs下的嵌套非等例块 原位复制不理想 还有最好有属性块文字是否保持属性值选项。

newer

namezg 发表于 2013-8-13 22:35
ucs下的嵌套非等例块 原位复制不理想 还有最好有属性块文字是否保持属性值选项。

程序没考虑UCS，只是用了一次块到WCS的变换矩阵，如果你想适合UCS，再作用个 WCS->UCS的变换矩阵即可。(setq m-w-u (xdrx_matrix_wcs2ucs))
(setq mat (xdrx_matrix_product mat m-w-u))
(xdrx_entity_transformedCopy e mat)

程序也没考虑嵌套块，如果想，在object_next里面，对块再递归即可。

属性文字也可以通过API的 xdrx_block_getAttribs 获得属性实体，然后再变换出来。