获取块内所有实体（包括嵌套块内）

Lisphk · 发表于 2019-1-10 00:02:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[Actionscript3] 纯文本查看 复制代码

(defun th-subelst-blk (blkname / blk lst)
  (setq blk (vla-item (vla-get-blocks (vla-get-activedocument
                           (vlax-get-acad-object)
                  )
            ) blkname
       )
  )
  (vlax-for each blk (if (/= (vla-get-objectname each) "AcDbBlockReference")
             (setq lst (cons each lst))
             (setq lst (append
               (th-subelst-blk (vla-get-name each))
               lst
             )
             )
           )
  )
  lst
)

dyjwyqz5221 · 发表于 2022-6-13 08:38:57

(xdrx_getpropertyvalue e "allEntities");;;就能得到所有实体，包括嵌套块内的实体，也包括嵌套块。

qxlonmsn · 发表于 2022-6-21 14:03:03

赞一个! 666

genius_8237 · 发表于 2024-7-12 08:49:17

这个方法具有普适性，代码也干净

账号		自动登录	找回密码
密码			立即注册

[每日一码] 获取块内所有实体（包括嵌套块内）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。