块替换问题

熊哥哥

meflying 请问这个功能能实现吗？
（我须要一个能一次性替换我所框选的范围内的某个块。比如我要一次性的用块2替换我所框选的范围内的所有块1，而其它地方的块1保持不变 ）

meflying

这个程序就是这样的啊 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=31430

熊哥哥

不对你是程序我用过了望你那程序是替换框选的所有块

meflying

2. (defun C:blkrp ( / ss BlkName blkname2 ents i)
3.    (setvar "osmode" 0)
4.    (princ "\n请选择作为源块的图块:")
5.    (setq ss (ssget (list (cons 0 "INSERT"))))
6.    (setq BlkName (cdr (assoc 2 (entget (ssname ss 0)))))
7.    (setq blkname2 (getstring "输入要被替换的块名:"))
8.    (princ "\n请选择将替换的图块:")
9.    (setq ss (ssget (list (cons 0 "INSERT") (cons 2 blkname2)))
10.    (if ss
11.        (progn
12.            (setq i 0)
13.            (repeat (sslength ss)
14.   (setq ents (entget (ssname ss i)))
15.   (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))
16.   (entmod ents)
17.   (setq i (1+ i))
18.            )
19.        )
20.    )
21.    (princ)
22. )

(defun C:blkrp ( / ss BlkName blkname2 ents i)    (setvar "osmode" 0)    (princ "\n请选择作为源块的图块:")    (setq ss (ssget (list (cons 0 "INSERT"))))    (setq BlkName (cdr (assoc 2 (entget (ssname ss 0)))))    (setq blkname2 (getstring "输入要被替换的块名:"))    (princ "\n请选择将替换的图块:")    (setq ss (ssget (list (cons 0 "INSERT") (cons 2 blkname2)))    (if ss        (progn            (setq i 0)            (repeat (sslength ss)   (setq ents (entget (ssname ss i)))   (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))   (entmod ents)   (setq i (1+ i))            )        )    )    (princ) )

熊哥哥

好像不能用呀

HuaiYu

括号的顺序有点小问题，稍微调整一下就可以用了

熊哥哥

谢了

熊哥哥

那不对呀我看书改了改还是不知那错了呀

meflying

不好意思,这句丢了个括号(下面的已经加上了)

(setq ss (ssget (list (cons 0 "INSERT") (cons 2 blkname2))))

xyp1964

2. (load "xyp_lib")
3. ;|加载通用函数
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|;
13. ;;-----------------------------------------------------------------------------
14. ;;;新旧块替换
15. (defun c:test (/ e e-new name new ss i s1 pt1)
16.   (CMDLA0)
17.   (setq ss (ssget '((0 . "INSERT") (2 . "旧块名")));根据实际修改"旧块名"
18. i  -1
19.   )
20.   (if ss
21.     (while (setq s1 (ssname ss (setq i (1+ i))))
22.       (sub_upd s1 2 "新块名");根据实际修改"新块名"
23.     )
24.   )
25.   (CMDLA1)
26. )

(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") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|; ;;----------------------------------------------------------------------------- ;;;新旧块替换 (defun c:test (/ e e-new name new ss i s1 pt1)   (CMDLA0)   (setq ss (ssget '((0 . "INSERT") (2 . "旧块名")));根据实际修改"旧块名" i  -1   )   (if ss     (while (setq s1 (ssname ss (setq i (1+ i))))       (sub_upd s1 2 "新块名");根据实际修改"新块名"     )   )   (CMDLA1) )