[原创]：如何用lisp遍历insert内的每个图元

xiegp

如何用lisp遍历insert内的每个图元，不是block内的

caoyin

1. 
   
2. (vlax-for BLOCK *BLOCKS*
   
3.   (vlax-for OBJCT BLOCK
   
4.       .....
   
5.   )
   
6. )
   

复制代码

zxq0220

INSERT插入的就是BLOCK呀！

qjcpj

提问题怎么又变为原创了？

ll_j

最初由 xiegp 发布
[B]如何用lisp遍历insert内的每个图元，不是block内的 [/B]

块插入后，只是当做一个完整的实体存在，所以无法得到其中的实体在图形中的单独信息，有点像形（字体）的笔画一样。

虽然用(entget(car(nentsel)))可以得到块中某个实体的信息，但这个信息是针对块本身的，而不是针对图形的，这一点，可以通过不同地点的同样块来验证。

块中的实体信息，需要用tbl系列的lisp语句来读得，用entnext来遍历。

很久不搞Lisp了，不太记得清了，不过你不妨试试。

manyfen

直接插入的就是了

wangdaobin

这个值得研究！！！

Lisphk

1. (vlax-for blocks (vla-get-block (vla-get-activedocument (vlax-get-acad-object)))
   
2.   (vlax-for item blocks
   
3.     ...
   
4.   )
   
5. )

(vlax-for blocks (vla-get-block (vla-get-activedocument (vlax-get-acad-object)))<br />   (vlax-for item blocks<br />     ...<br />   )<br /> )

yjch

好好学习天天向上