如何替换图形中的块？

yinheng

那位高手能不能告诉我如何将一个块全部替换为另一个块？

ZZXXQQ

插入同名块（文件）——确认替换——[ESC]

SWAYWOOD

不太明白2楼说的

yinheng

2楼朋友说的太操作较简单，那样能重新定义块仅对新插入的块有效，可我想替换图形中已经有的块。

龙龙仔

yinheng发表于2004-12-7 15:00:002楼朋友说的太操作较简单，那样能重新定义块仅对新插入的块有效，可我想替换图形中已经有的块。

2楼朋友说的就能重新定义块,你们有试吗?

无痕

哈哈

alin

;;by alin
(defun C:RPB (/ en obj obj1 ss cnt idx blknom)
(setq en (car (entsel "\nSelect a source block: ")))
(if en
(progn
(setq obj (vlax-ename->vla-object en))
(VLA-HIGHLIGHT OBJ :VLAX-TRUE)
(if (and (= (vla-get-objectname obj) "AcDbBlockReference")
(not (vlax-property-available-p obj 'path)))
(progn
(setq blknom (vla-get-name obj))
(princ "\nSelect the target blocks: ")
(setq cnt 0)
(while (setq ss (ssget))
(VLA-HIGHLIGHT OBJ :VLAX-FALSE)
(setq idx 0)
(repeat (sslength ss)
(setq obj1 (vlax-ename->vla-object (ssname ss idx)))
(if (and (= (vla-get-objectname obj1) "AcDbBlockReference")
(not (vlax-property-available-p obj1 'path)))
(progn
(vla-put-name obj1 blknom)
(setq cnt (1+ cnt))
) ;progn
) ;endif
(setq idx (1+ idx))
) ;repeat
) ;while
(if (> cnt 0)
(princ
(strcat "\n" (itoa cnt) " blocks have been replaced!"))
(princ "\nNone block found!")
) ;endif
) ;progn
(princ "\nThat's NOT a block!")
) ;endif
(vlax-release-object obj)
(if obj1
(vlax-release-object obj1))
) ;progn
(princ "\nFunction has been cancelled!")
) ;endif
(princ)
)