动态块改成普通块

marting · 发表于 2018-2-6 08:37:57

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

×

动态块改成普通块

(defun c:tt (/ ent i o ss)
(if (setq ss (ssget "x" '((0 . "insert") (67 . 0))))
(repeat (setq i (sslength ss))
(setq o (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(if (vl-some
'(lambda (x) (and (= (vla-get-propertyname x) "Size") (setq name (vlax-get x 'value))))
(vlax-invoke o 'getdynamicblockproperties)
)
(vla-converttostaticblock o name)
)
)
)
(princ)
)

fl502 · 发表于 2018-2-6 11:33:05

为什么动态块要改成普通块？
另低版本里打开，保存。再在高版本里打开，动态块还存在吗？

marting · 发表于 2018-2-6 13:37:05

fl502 发表于 2018-2-6 11:33

有的时候需要这样做。
保存低版本，然后保存，再高版本打开，动态块应该就没了吧。

sicky111 · 发表于 2018-2-7 06:21:42

谢谢分享。

yoyoho · 发表于 2018-2-7 07:20:57

感谢分享程序！！！

追风lisp · 发表于 2018-2-7 10:23:22

谢谢分享！

scnjlwb · 发表于 2018-2-7 20:15:03

感谢分享程序！！！

scnjlwb · 发表于 2018-3-18 06:11:20

谢谢分享！

yansu · 发表于 2018-3-21 09:01:29

为何在cad2012，64位中运行没反应呢？

scnjlwb · 发表于 2018-3-22 17:33:41

谢谢分享！

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

[每日一码] 动态块改成普通块