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

updoc · 发表于 2018-9-17 11:05

收藏了

yongyici · 发表于 2018-9-19 22:23

看看更简单的代码

maxli · 发表于 2018-9-20 15:13

Gu_xl 发表于 2013-11-13 11:49
[/post]

有不有程序可以把普通块改动态块呢？

原地踏步 · 发表于 2018-9-21 17:33

不错，学习了。谢谢Gu版。

137407536 · 发表于 2018-10-19 18:06

权限太底，看不到

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

;;动态块转为普通块
(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

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

137407536 · 发表于 2018-10-23 09:59

这，你当前发帖数只有 5

无尽的手残 · 发表于 2018-10-24 10:50

看看什么东西

无尽的手残 · 发表于 2018-10-24 10:50

这个程序好

无尽的手残 · 发表于 2018-10-24 10:50

好代码，学习一下喽

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

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