怎么批量把---动态块转普通块-------------急用，谢了。

egoroom · 发表于 2013-11-12 17:18:00

怎么批量把---动态块转普通块-------------高手帮看看，感谢

Gu_xl · 发表于 2013-11-13 19:07:11

4楼代码整复杂了，更简单的代码：

游客，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数只有 0

ztosen · 发表于 2018-10-22 18:01:05

;;动态块转为普通块
(defun c:XXdyn       (/ actDoc)
(vl-load-com)
(setq actDoc (vla-get-ActiveDocument (vlax-get-acad-object))
) ;_ end_setq
(vla-startundomark actDoc)
(foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "x" '((0 . "INSERT")))))) ;_ end_vl-remove-if
      (if (equal (vla-get-IsDynamicBlock (vlax-ename->vla-object x)) :vlax-true) ;_ end_equal
         (vla-ConvertToAnonymousBlock (vlax-ename->vla-object x))) ;_ end_if
) ;_ end_foreach
(vla-endundomark actDoc)
(princ)
) ;_ end_defun

之前找到个类似的，不知道是否一样的版本。

emk · 发表于 2013-11-12 18:24:37

没下载附件
思路：炸开 ---> 重建 --> 循环

egoroom · 发表于 2013-11-12 19:34:37

emk 发表于 2013-11-12 18:24
没下载附件
思路：炸开 ---> 重建 --> 循环

场景动态块太多。。炸开不现实

Gu_xl · 发表于 2013-11-13 11:49:18

游客，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数只有 0

chendili · 发表于 2013-11-13 14:00:12

这个程序好，我要用到，我是一个一个炸了后再做的，累啊

andyhua · 发表于 2013-11-14 09:46:59

楼主好代码啊，顶上一个

davide888 · 发表于 2013-11-14 11:26:14

Gu_xl 发表于 2013-11-13 19:07
4楼代码整复杂了，更简单的代码：
[/post]

感谢源码分享

海盗曹 · 发表于 2013-11-14 13:28:01

好代码，学习一下喽

egoroom · 发表于 2013-11-14 23:22:57

Gu_xl 发表于 2013-11-13 19:07
4楼代码整复杂了，更简单的代码：
[/post]

感谢版主回复。。。。才忙完上论坛。。

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

[已解答] 怎么批量把---动态块转普通块-------------急用，谢了。

本帖子中包含更多资源

本帖被以下淘专辑推荐:

相关帖子