[已解决]块内实体遍历

hawnn

(setq a (car (entsel)))；我用这段代码选择块获取块名

(entnext a)；我想用这段代码来获取块内实体，但为什么总是返回nil?要么就获取图档内的其它实体，总之不是块内实体!!!

如果不是这样用，我要怎样获得块内实体的数据？

如果是一个球表块(由一个圆和文字组成的块)，我如何才能获得它圆的数据？

我用的是Autolisp，或者Vlisp也可以，麻烦各位了

caoyin

;;vla方法
;;注意，所得数据是块定义中圆的数据，而不是块对象中圆的数据
(defun c:TT (/ a)
  (setq a (car (entsel)))
  (setq a (vlax-ename->vla-object a))
  (setq a (vla-get-name a))
  (vlax-for x
    (vla-item (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object))) a)
    (if (= (vla-get-objectname x) "AcDbCircle")
      (princ (entget (vlax-vla-object->ename x)))
    )
  )
)

hawnn

谢谢caoyin版主

你也说了，这个获取的是"Block"中的数据,

可是我想要"INSERT"中的

没有办法获得吗?

非得从"Block"中获取数据后再用插入点算座标、用块缩放比例来算尺寸等等？

没其它办法了吗？

caoyin

我个人认为没有更好的办法——期待高手

你可以 EXPLODE 块然后再 UNDO 回去啊

hawnn

如果EXPLODE块再UNDO回去的话

太慢了，太多块的时候我担心电脑会挂掉

麻烦就麻烦吧，用比例，旋转角来算好了

谢谢caoyin版主

highflybir

你可以用矩阵变换，建议你参考下面帖子，里面谈到的方法可能对你有帮助。

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73535&replyID=&skin=1

caoyin

矩阵的缺点是对不等比例块是没用的，如果是想亮显块中的子图元，我有一个比较好的思路。