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

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

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

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

x

[mw_shl_code=actionscript3,true]
(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
)[/mw_shl_code]

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

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

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

赞一个! 666

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

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

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