匿名块更改为普通块

muwind · 发表于 2020-8-2 23:28:00

复制代码;发现点问题，当有多个同名的匿名块（普通块转为匿名块后经常遇到）的时候，会改名出错，重新修改了下，详见附件附件有个5个函数
ab2b 全部匿名块更改为普通块
ab2bs 选择的匿名块更改为普通块
ab2b2 全部匿名块更改为普通块的另一个算法
b2ab 选择的普通块更改为匿名块
b2b 选择的任意块更改为输入的文件名

lcyzlppmuiw.gif

论坛现有的不太适合自己，所以根据论坛的改了一个适合自己的
(defun c:brab(/ blks ss m n e nam bnnew)
  (setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))));取得图形的Blocks集合
  (if (setq ss (ssget "_X" '((0 . "INSERT")(2 . "`**"))))
   (progn
   (repeat (setq n (sslength ss))
      (if (setq e (ssname ss (setq n (1- n))))
      (progn
                                       (setq  nam (vla-get-name (vlax-ename->vla-object e)));获取匿名块名字
                                       (setq  bnnew(substr  nam 2));获取匿名块星号后面的字符串
                                       (setq  m 0)
                                       (while (/= (tblsearch  "BLOCK" bnnew) nil)
                                                      (setq  m (1- m))
                                                      (setq  bnnew(strcat  bnnew  (rtos  m 2 2)))
                                       )
         (vla-put-name (vla-item blks nam) bnnew);Blocks中名为nam的Block重命名为bnnew
      )
      )
      )
      (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true)
                     )
  )
      (princ)
)

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

muwind · 发表于 2020-8-3 23:43:00

匿名块我感觉是星号+一个字母开头的都应该是了，从我的三维软件转出来的是 *A开头的，
我也根据自家情况写两个普通块转为匿名块的(排除部分块更名，如果很多块排除估计用表方便点)
(defun c:b2ab(/ blks ss  n e nam bnnew)
  (setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))));取得图形的Blocks集合
  (if (setq ss (ssget "_X"  '((0 . "INSERT")(2 . "~`**"))))
   (progn
   (repeat (setq n (sslength ss))
      (if (setq e (ssname ss (setq n (1- n))))
      (progn
         (setq  nam (vla-get-name (vlax-ename->vla-object e)));获取普通块名字
         (if (and (/= nam "BTL") (/= nam "mxl") )
            (vla-put-name (vla-item blks nam) "*A");Blocks中名为nam的Block重命名为匿名
         )
         )
      )
      )
   )
  )
      (princ)
)

maiko · 发表于 2020-8-3 22:29:00

给楼主顶个赞，感谢楼主分享@~~~
(defun c:bnm ( / blks a blk i obj ss doc )
  (setq blks (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object)))))
  (if (setq i -1 ss (ssget "_X" '((0 . "INSERT")(2 . "`*U*"))))
(while (setq obj (vlax-ename->vla-object(ssname ss (setq i (1+ i)))))
   (setq blk (vla-item blks (vla-get-name obj)))
   (vla-put-name blk (setq a (strcat "BNM-" (rtos (* (getvar "cdate") 1e8)))))
   (vla-auditinfo doc :vlax-true)
   (vla-put-name blk a)
)
  )
)