动态块改为普通快

admin

1. ;;动态块改为普通快 By Gu采用xl 2013.11.13
2. (defun c:DZB (/ cnt)
3.   (if (ssget (list '(0 . "INSERT") (cons 410 (getvar 'CTAB))))
4.     (progn
5.       (setq cnt 0)
6.       (vlax-for        obj
7.                     (vla-get-activeselectionset
8.                       (vla-get-activedocument (vlax-get-acad-object))
9.                     )
10.         (if (and
11.               (vlax-property-available-p obj 'isdynamicblock)
12.               (eq :vlax-true (vla-get-isdynamicblock obj))
13.             )
14.           (progn
15.             (setq cnt (1+ cnt))
16.             (vla-ConvertToAnonymousBlock obj)
17.           )
18.         )
19.       )
20.       (princ (strcat "\n***共修改 " (itoa cnt) " 个动态块***"))
21.     )
22.   )
23.   (princ)
24. )

复制代码