【牢固】动态块转为普通块

牢固 · 发表于 2013-11-13 15:33:44

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

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

×

Array，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数为

Lisphk · 发表于 2013-11-13 16:02:48

{:soso_e142:}顶一个。

st788796 · 发表于 2013-11-13 17:51:20

G版这比较狠，直接改了 Blockdef，一般这样处理就可以了

(defun c:tt (/ ss sl i el )
(if (setq ss (ssget '((0 . "Insert"))))
(progn
(setq sl (sslength ss)
i sl
)
(repeat sl
(setq el (cons (ssname ss (setq i (1- i))) el))
)
(setq el (mapcar 'vlax-ename->vla-object el))
(mapcar '(lambda (x)
(if (= (vla-get-IsDynamicBlock x) :vlax-true)
(vla-ConvertToAnonymousBlock x)
)
)
el
)
)
)
(princ)
)

牢固 · 发表于 2013-11-13 18:59:06

st788796 发表于 2013-11-13 17:51
G版这比较狠，直接改了 Blockdef，一般这样处理就可以了

没注意到动态块还有 vla-ConvertToAnonymousBlock方法！搞复杂了！
经vla-ConvertToAnonymousBlock转化后，查看图块组码表，发现图块还挂着反应器！不知道图块保留这个反应器有什么作用！

st788796 · 发表于 2013-11-13 19:13:31

牢固发表于 2013-11-13 18:59
没注意到动态块还有 vla-ConvertToAnonymousBlock方法！搞复杂了！
经vla-ConvertToAnonymousBlock转化 ...

还有一个方法，不过要输入块名
object.ConvertToStaticBlock(newBlockName)

haibinpro · 发表于 2013-11-13 20:45:05

进来向g版和各位同学学习.

1993063 · 发表于 2013-11-14 08:08:48

顶一个。{:soso_e179:}

原地踏步 · 发表于 2013-11-19 13:08:42

想看，看不了

flyfox1048 · 发表于 2013-12-30 18:36:50

支持G大的杰作

hangjier · 发表于 2014-1-18 21:31:55

顶一个。顶一个。顶一个。

auva · 发表于 2014-2-19 22:17:32

正好需要这个功能，谢谢啦！

hnfsf · 发表于 2014-5-10 16:08:05

本帖最后由 hnfsf 于 2014-5-11 01:06 编辑

动态块的自定义特性，用PROPERTIES能列出来的那些内容。

hnfsf · 发表于 2014-5-10 18:17:25

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

海天风云 · 发表于 2014-9-24 10:27:52

刚刚好正需要这个，谢谢！

daierfull · 发表于 2014-9-24 22:06:14

动态块转成普通块不是降低了意义了，块改名就变成普通块了啊

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

[每日一码] 【牢固】动态块转为普通块

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

评分

相关帖子

点评

评分

点评

评分