图块定义的遍历

st788796 · 发表于 2015-4-20 20:58:37

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

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

×

(defun EnumBlockDefObj (name / blk)
(if (and (tblsearch "block" name);_判断是否有块定义
(setq blk (vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
name
)
);_取出Block
(not (= (vla-get-isxref obj) :vlax-true));_非 Xref
(not (= (vla-get-islayout obj) :vlax-true));_非 Layout
)
(vlax-for obj blk
;;main code
)
)
)
(defun EnumAllBlockDef ()
(vlax-for obj (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
(if (and (not (= (vla-get-isxref obj) :vlax-true))
(not (= (vla-get-islayout obj) :vlax-true))
(not (wcmatch (strcase (vla-get-name obj)) "`**SPACE*"));_*MODEL_SPACE ***_SPACE ***_SPACE0 ...
)
;;main code
)
)
)

(defun EnumBlockDefObj (name / blk) 
  (if (and (tblsearch "block" name);_判断是否有块定义 
           (setq blk (vla-item (vla-get-blocks 
                                 (vla-get-activedocument (vlax-get-acad-object)) 
                               ) 
                               name 
                     ) 
           );_取出Block 
           (not (= (vla-get-isxref obj) :vlax-true));_非 Xref 
           (not (= (vla-get-islayout obj) :vlax-true));_非 Layout 
      ) 
    (vlax-for obj blk 
      ;;main code 
    ) 
  ) 
) 
(defun EnumAllBlockDef () 
  (vlax-for obj        (vla-get-blocks 
                  (vla-get-activedocument (vlax-get-acad-object)) 
                ) 
    (if        (and (not (= (vla-get-isxref obj) :vlax-true)) 
             (not (= (vla-get-islayout obj) :vlax-true)) 
             (not (wcmatch (strcase (vla-get-name obj)) "`**SPACE*"));_*MODEL_SPACE  ***_SPACE ***_SPACE0  ... 
        ) 
      ;;main code 
    ) 
  ) 
)

cool_studio · 发表于 2017-7-25 16:58:22

看看谢谢分享。。。。

bingshuier · 发表于 2017-7-27 09:17:38

感谢分享，看看！！！！

bingshuier · 发表于 2017-7-27 09:19:22

就是不知道一般在什么情况下使用~~~

kqqt6236 · 发表于 2018-12-22 16:14:16

学习了，感谢分享。

sicky111 · 发表于 2019-1-2 16:16:13

感谢分享。

yoyoho · 发表于 2019-1-2 18:27:02

学习了，感谢分享。

yxpxa · 发表于 2019-1-3 01:50:11

本帖最后由 yxpxa 于 2019-1-3 04:36 编辑

这个方法不错，又开发了个插件。

qyming2000 · 发表于 2019-1-3 08:18:30

谢谢分享。。。。

hnjzwql · 发表于 2021-1-21 10:10:29

感谢分享，看看

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

[教学] 图块定义的遍历

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

评分