[求助]：急!!!!如何批量替换块？

liuming0998 · 发表于 2005-6-28 12:06:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

急!!!!如何批量替换图块？

SGP007 · 发表于 2005-6-28 12:10:10

不明白你的意思，这些批量的块一样吗？如果一样，建议采用块参照

liuming0998 · 发表于 2005-6-28 12:19:15

是用一不同的块替换所有相同的块。例如用D1替换所有的Z1块。另外说明一下我用的是天正3.0

这里先谢谢啊。

gulei · 发表于 2005-6-28 20:26:05

我是将该块炸开修改再以同名同插入点重定义。我用的是CAD2002

silen618 · 发表于 2007-7-11 13:23:19

完全安装AutoCAD，有自带的BlockReplace宏，批量替换非常快捷。

shlinzh · 发表于 2007-7-11 15:48:03

将D1块炸开，复制；然后编辑Z1，删除图中所有元素，粘贴，注意插入点

HLB_Konan · 发表于 2007-7-11 17:28:00

如果是块的话你修改一个其它都会跟着改就等于批量修改了如果你修改属性块的话修改好一个用attsync 就可以把属性相同的块全部修改过来不知道楼主问的那种？

cxdcxd6849 · 发表于 2008-6-28 11:33:18

(defun C:RB (/ SE1 N A0 BN E0 E1)
(prompt "\n选择要替换的图块: ")
(setq SE1 (ssget '((0 . "INSERT")))
)
(if SE1
(progn
(setq BN (getstring "\n来源图块名称/: "))
(if (= BN "")
(progn
  (while (= A0 NIL)
  (prompt "\n选取来源图块: ")
  (setq A0 (ssget ":S" '((0 . "INSERT"))))
  )
  (setq BN (cdr (assoc 2 (entget (ssname A0 0)))))
)
)
(command "_.insert" BN (command))
(setq N 0)
(repeat (sslength SE1)
(setq E0 (ssname SE1 N)
  E1 (entget E0)
)
(setq E1 (subst (cons 2 BN) (assoc 2 E1) E1))
(entmod E1)
(entupd E0)
(setq N (1+ N))
)
)
)
(princ)
)

guangshunsong · 发表于 2008-6-29 20:55:14

高手啊
我看要是在2002以上版本里就可以直接双击1：1的块修改就可以了

luiwolf · 发表于 2008-7-7 22:43:23

高手,会VBA真好,现在努力学习中

大雪无痕 · 发表于 2008-7-8 09:17:18

重新做块，使用相同的块名即可

cityriver · 发表于 2008-7-18 23:37:18

支持11楼的回答！！！！1

mchj · 发表于 2008-7-19 02:14:44

十一楼正解

loon-lin · 发表于 2008-10-10 18:25:42

直接修改块

WongFoling · 发表于 2020-5-14 21:19:15

cxdcxd6849 发表于 2008-6-28 11:33
(defun C:RB (/ SE1 N A0 BN E0 E1)
(prompt "\n选择要替换的图块: ")
(setq SE1 (ssget '((0 . "INSERT" ...

牛逼，谢谢了

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

[求助]：急!!!!如何批量替换块？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子