[求助]：CAD中的块也能像文字一样进行替换吗

drdx · 发表于 2006-4-13 15:28:41

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

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

×

在CAD中块可不可以像替换文字一样,进行替换呀!!真的很急呀!!!工作出错了,要完成不了了!!!各位帮帮忙行吗??

blackhold · 发表于 2006-4-13 15:50:16

想怎么替代？？？？？？？？？？？？？？？？？

drdx · 发表于 2006-4-13 16:10:21

块的名称不是不一样吗,我想根据名称替换呀,可以吗

blackhold · 发表于 2006-4-13 16:14:39

可以。。。。。。。我想经过你的努力学习。。。编个程序应该可以实现得了。。。。

ypt1234 · 发表于 2006-4-13 16:45:22

把对应的块(改过的)再插入一遍就可以了!

drdx · 发表于 2006-4-13 16:51:23

我就是想知道怎么统一改呀,太多了,700多幅图呢

爱数码 · 发表于 2006-4-13 19:20:01

把对应的改过的块再插入一遍就可以了，多了就知道怎么办了。

zzsong · 发表于 2006-4-13 23:39:19

为什么不试试“图块替换”命令——blockreplace?

lennie · 发表于 2006-4-14 00:01:28

blockreplace  有这个命令么

还是用这个吧^《》^

;****块替换
(defun C:KTH ()
  (setvar "osmode" 0)
  (princ "\n请选择作为源块的图块:")
  (setq a1 (ssget (list (cons 0 "insert"))))
  (setq stent (ssname a1 0))
  (setq stent (entget stent))
  (setq insname (assoc 2 stent))
  (setq insname (cdr insname))
  (princ insname)
  (princ "\n请选择将替换的图块:")
  (setq a (ssget (list (cons 0 "insert"))))
  (if (/= a nil)
(progn
   (setq n (sslength a))
   (setq index 0)
   (repeat n
(setq foent (ssname a index))
(setq ent1 (entget foent))
(setq index (+ index 1))
(setq inspt (assoc 10 ent1))
(setq inspt (list (nth 1 inspt) (nth 2 inspt)))
(setq insang1 (assoc 50 ent1))
(setq insang (cdr insang1))
(if (/= insang 0)
   (setq insang (/ (* insang 180) pi))
)
(command "erase" foent "")
(command "insert" insname inspt 1 1 insang "")
   )
)
  )
  (setvar "osmode" 191)
  (princ)
)

drdx · 发表于 2006-4-14 08:05:04

最初由 zzsong 发布
[B]为什么不试试“图块替换”命令——blockreplace? [/B]

我输入好像没有这个命令,有blockicon ,是这个吗

wxtian1 · 发表于 2006-4-15 13:47:32

你在块库是将两个块的名称互相换一下试试

monkey8805 · 发表于 2006-4-15 15:19:50

9,10楼的,
8楼说的估计是ET辅助工具,你装cad 的时候装了吗?
我也是刚发现cad有这个工具,用处吗?我也不太清楚

yindaming · 发表于 2006-4-15 16:47:05

其实不用这么麻烦，用cad2006的块动态编辑会很轻松的实现你的想法

guojianyong · 发表于 2006-4-15 17:32:45

重新绘制正确的块，打开菜单绘图→块→创建，块名用准备替换的块名，拾取点与原块一致，拾取新绘制的块，确定，提示块已定义，是否重新定义，确定即可。

drdx · 发表于 2006-4-21 14:10:38

blockreplace 有这个命令么

还是用这个吧^《》^

;****块替换
(defun C:KTH ()
(setvar "osmode" 0)
(princ "\n请选择作为源块的图块:")
(setq a1 (ssget (list (cons 0 "insert"))))
(setq stent (ssname a1 0))
(setq stent (entget stent))
(setq insname (assoc 2 stent))
(setq insname (cdr insname))
(princ insname)
(princ "\n请选择将替换的图块:")
(setq a (ssget (list (cons 0 "insert"))))
(if (/= a nil)
(progn
(setq n (sslength a))
(setq index 0)
(repeat n
(setq foent (ssname a index))
(setq ent1 (entget foent))
(setq index (+ index 1))
(setq inspt (assoc 10 ent1))
(setq inspt (list (nth 1 inspt) (nth 2 inspt)))
(setq insang1 (assoc 50 ent1))
(setq insang (cdr insang1))
(if (/= insang 0)
(setq insang (/ (* insang 180) pi))
)
(command "erase" foent "")
(command "insert" insname inspt 1 1 insang "")
)
)
)
(setvar "osmode" 191)
(princ)
)

我引用的这个小程序,不过这里有个错误,我给改正了
(command "insert" insname inspt 1 1 insang )
很好用
,谢谢

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

[求助]：CAD中的块也能像文字一样进行替换吗

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

相关帖子