社区 › AutoLISP/Visual LISP 编程技术 › 怎么批量把---动态块转普通块-------------急用，谢了。

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

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


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

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

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

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

权限太底，看不到

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

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

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

这，你当前发帖数只有 5

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

看看什么东西

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

这个程序好

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

好代码，学习一下喽

无尽的手残 发表于 2018-10-24 10:51:18

好代码，学习一下喽

z397876224 发表于 2018-10-24 11:21:16

感谢源码分享

查看完整版本: 怎么批量把---动态块转普通块-------------急用，谢了。