递归求得块内实体，得不到嵌套块的原因

brainstorm · 发表于 2019-9-5 10:40:37

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

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

×

(defun gx:block:vlaobjlst (e / lst blks acadObj doc)
  (setq acadObj (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acadObj))
  (setq blks (vla-get-blocks doc))
  (vlax-for each (vla-item blks
   (vla-get-name e)
)
(if (EQ (vla-get-objectname each) "AcDbBlockReference")
   (gx:block:vlaobjlst each)
   (setq lst (cons each lst))
)
  )
  lst
)

请专家帮忙看看

leon90482888 · 发表于 2021-2-5 23:03:33

(if (EQ (vla-get-objectname each) "AcDbBlockReference") (gx:block:vlaobjlst each) (setq lst (cons each lst)) )这句的意思就是，不是块才记录到st里面，所以最终返回的表lst，里面没有块，只有普通图元

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

[求助] 递归求得块内实体，得不到嵌套块的原因

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