[转帖]LISP匿名块程序：

jxphklibin · 发表于 2007-1-15 20:36:00

本帖最后由作者于 2007-5-19 11:00:24 编辑

请教各位大虾：怎么选取同一图层中所有的匿名块，并求取匿名块的插入点坐标？最好给个例子，多谢！！

jxphklibin · 发表于 2009-1-12 08:43:00

好程序

支持

dianbotang · 发表于 2009-7-29 13:52:00

根据各位高手的成果总结了一下，以下程序支持先框选后操作的批量转换。

;批量转换匿名块为普通块
(defun c:reblk(/ blks ss n e nam namlst);----by 雨箭风刀 2006.2
(setq BLKs (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(if (setq ss (ssget '((0 . "INSERT")(2 . "`**"))))
      (progn
(repeat (setq n (sslength ss))
         (if (and (setq e (ssname ss (setq n (1- n))))
                 (wcmatch (setq nam (vla-get-name (vlax-ename->vla-object e))) "`**")
                 (not (member nam namlst)))
          (progn (setq namlst (cons nam namlst))
            (vla-put-name (vla-item blks nam) "U")
          )
         )
        )
       (vla-auditinfo (vla-get-activedocument (vlax-get-acad-object)) :vlax-true))
)(princ)
)

;批量转换普通块为匿名块
(defun c:anblk()
(setq ss (ssget '((0 . "INSERT")(2 . "~`**"))))
(repeat (setq n (sslength ss))
    (setq BLKREF (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
    (vla-put-name
      (vla-item (vla-get-blocks
           (vla-get-activedocument (vlax-get-acad-object))
         )
         (vla-get-name BLKREF)
      )
      "*U"
    )
)
)

bridgewind · 发表于 2009-10-4 02:01:00

谁能讲讲匿名块到底是个什么东东，使用它有什么好处？

ghgh0130 · 发表于 2009-12-2 10:20:00

怎么把正常的图块改名为匿名块？？？

long9841 · 发表于 2011-4-7 10:46:42

龙龙仔发表于 2003-8-18 16:35

so good

e688w · 发表于 2011-6-1 21:56:34

各位前辈的程序非常号！

669423907 · 发表于 2011-6-1 23:14:35

高手们的程序都非常的给力！

lqser · 发表于 2011-7-8 17:20:01

本帖最后由 lqser 于 2011-7-8 17:20 编辑

为什么大家做的无名快，可以被爆炸后编辑啊？？？我向往它还不能被爆炸编辑，不知楼上几位高手能否实现

zhouwei336 · 发表于 2011-9-6 08:27:16

lqser 发表于 2011-7-8 17:20
为什么大家做的无名快，可以被爆炸后编辑啊？？？我向往它还不能被爆炸编辑，不知楼上几位高手能否实现

同感~ 就是为了无法炸开才做匿名块的可以炸开和普通块有什么区别？求不能被爆炸编辑的匿名块~~~~

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

[转帖]LISP匿名块程序：

普通块与匿名块批量互换