[原创]：一个块的代换的程序，可以把所选的块改为统一的。

maplesu

加载下面的lsp
命令行：输入ck
然后选者需要代换的对象
再选者参考对象。

[PHP]
(defun c:ck()
  (princ "\n选者需要修改的对象:<块>")
  (setq ss (ssget))
  (setq en_new (entsel "\n改为对象<块>: "))
  (setq n 0)
  (repeat (sslength ss)
    (setq en_old (ssname ss n))
    (setq en_old_data (entget en_old))
    (if (= (cdr (assoc 0 en_old_data)) "INSERT")
      (progn
        (setq na_old (assoc 2 en_old_data))
        (setq en_new_data (entget (car en_new)))
        (setq na_new (assoc 2 en_new_data))
        (setq en_old_data (subst na_new na_old en_old_data))
        (entmod en_old_data)
        )
      )
    (setq n (+ n 1))
      )
  )
[/PHP]

xmchy

不错，挺有用的，

blackspot

程序合理，只是商榷一下：setq似乎多了些，不需要调用的中间变量如能省略些最好
另，ET工具已有这个功能的命令:blockreplace

maplesu

哈哈，我还真的没有在意到ET中已经有了，我对ET用的不多。
感谢楼上的建议，的确可以省略一些中间变量。但是因为我学lisp时间不长，所以写的时候不敢有太大的跳跃，那样比较容易出错。关于这个在我慢慢熟悉以后可以改进的。

coolyxw

所说的blockreplace效果怎么像是像是删除啊，被替换的块在屏幕上消失了，rengen也没有，我要替换物体啊，只好试试楼上的程序了

blackspot

不会吧，检查一下替换与被替换两种块的定义插入点是否一致

maplesu

插入点应该是一样的，因为我的程序中只是改了块的名字，插入点没有动呀！！！

xhf

我也做了一个这种程序，我觉得你应该设置一下图层，否则插入的块和原来的块可能不在同一个图层上。

maplesu

个人认为没有必要修改图层，我是保留原块的图层，但是关于块的特性中可以知道块内的图元不一定是跟着块的图层变化的，看你的值是怎么设置的。只要内部的图元不在0层上，他就不会跟随块所在层变化，这个可以看cad帮助。
所以我当初没有设置图层，因为我的做法是把内部图元的层都不设置为0这样我的块无论在那个层中，块还是自己的颜色线形粗细都不变，这样也不会影像打印。
不过要是想加出这个功能也不难，只要把群码为8的拿出代换就好了

xie0106

ET只能单个块操作，本程序可以一批操作。哈哈。太谢谢了。

txzjtxzj

请教大虾，为什么偶用了替换后，被替换后的块怎么移动到其他的位置了？

xtjd

在第一行下加上如下語句：
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)

在倒數第二行和倒數第一行之間加上：
(setvar "osmode" os)
(setvar "cmdecho" 1)
(prin1)

xyp1964

同名块替换的情况可能更多或更方便实用：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;图块替换
(defun c:test115 ()
  (cmdla0)
  (princ "\n选择旧样块 : ")
  (setq        e1    (usel 0 "INSERT")
        name1 (dxf 2 (entget (car e1)))
  )
  (princ "\n选择新样块 : ")
  (setq        e2    (usel 0 "INSERT")
        name2 (dxf 2 (entget (car e2)))
  )
  (princ "\n窗口选择被替换的块实体范围 : ")
  (setq        ss (ssget (list (cons 0 "INSERT") (cons 2 name1)))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (sub_upd s1 2 name2)
  )
  (cmdla1)
)[/php]

baoquanjie00217

好象很麻烦.

xyp1964

最初由 txzjtxzj 发布
[B]请教大虾，为什么偶用了替换后，被替换后的块怎么移动到其他的位置了？ [/B]

块定义的基点位置不同，都为右下角点或左下角点就没问题了。