[下载]：又有新东东了（随意替换块）

popxi · 发表于 2004-1-20 00:55:06

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

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

×

可以一次替换单个或多个块。

用法：

1，输入cb，回车。
2，选择需要替换的块，回车。
3，在选择替换成的快，回车即可。

祝大家春节快乐，万事如意。*-*4 *-*2
春节免费下载，快点哦！！

wkai · 发表于 2004-2-11 17:45:44

试试这个，选择块，组码输入2，输入要替换的块名，回车ok。
还可以有很多其他的用途
(defun c:mods (/ e n ee ne en s m)
  (setq s  (ssget)
m  -1
mm (1- (sslength s))
  )
  (while (< m mm)
(setq e (ssname s (setq m (1+ m))))
(setq ee (entget e))
(if (not en)
   (progn
(print ee)
(setq n (getint "\n组码:"))
   )
)
(if (setq ne (cdr (assoc n ee)))
   (progn
(if (not en)
   (progn
      (print ne)
      (cond
      ((= (type ne) 'STR) (setq en (getstring "\n新字符串：")))
      ((= (type ne) 'REAL) (setq en (getreal "\n新数值：")))
      ((= (type ne) 'INT) (setq en (getINT "\n新数值：")))
      ((= (type ne) 'LIST) (setq en (getpoint "\n新坐标点：")))
      )
   )
)
(if en
   (entmod (subst (cons n en) (cons n ne) ee))
)
   )
)
  )
)

popxi · 发表于 2004-1-20 01:13:19

sunny_258 · 发表于 2004-1-20 23:53:55

2004里能用否？

popxi · 发表于 2004-2-4 15:23:06

最初由 sunny_258 发布
[B]2004里能用否？ [/B]

我没有2004但是R14-R2002都可以用

bridgewind · 发表于 2004-2-11 17:34:13

用find命令不能替换吗？

beijingtuzi · 发表于 2004-2-11 23:15:21

这样替换的插入点会不会产生变化呢？

popxi · 发表于 2004-2-12 01:01:55

最初由 beijingtuzi 发布
[B]这样替换的插入点会不会产生变化呢？ [/B]

替换后的块和原块的比例、方向、插入点都一致。替换时请留意。

最初由bridgewind发布
[B]用find命令不能替换吗？[/B]

find命令是用来替换文字的。

舍我其谁 · 发表于 2004-2-12 19:04:23

这个命令再cad自带的ET上就有呀！如果是2004or2002，你安装ET就可以了
2000完全安装也有！
命令是blockreplace!

popxi · 发表于 2004-2-12 23:59:46

最初由舍我其谁发布
[B]这个命令再cad自带的ET上就有呀！如果是2004or2002，你安装ET就可以了
2000完全安装也有！
命令是blockreplace! [/B]

blockreplace是一次替换所有的相同快，我上传的文件是有选择的不同快。未选择的不会被替换。

LZH1977 · 发表于 2004-2-16 12:37:47

谢谢拉

jbqiu · 发表于 2004-2-18 16:45:47

偶的2002怎么用部了啊，一直加载个没完没了呢？？？

avi.young · 发表于 2004-2-18 21:15:22

谢谢.下了.

格格巫 · 发表于 2004-2-19 13:06:04

试试

whj1102 · 发表于 2004-2-20 15:19:25

EXPRESS里也有类似程序，到底哪个好呢？

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

[下载]：又有新东东了（随意替换块）

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

相关帖子