fengsea 发表于 2008-12-3 10:51:00

<p>不知道能否框选替换呢？</p>

ZZXXQQ 发表于 2008-12-3 20:32:00

先选何种块？

hustluo93 发表于 2009-1-8 16:59:00

<p>比较感兴趣</p>

jxphklibin 发表于 2009-1-16 08:55:00

程序很简洁

wuxuloveguo 发表于 2009-1-19 16:25:00

支持！好东东！确实“一般ljttjl不提供源码。”

hdlyt11 发表于 2009-2-8 12:41:00

<a href="http://xzd.2000y.net/mb/2/ReadNews.asp?NewsID=579605">http://xzd.2000y.net/mb/2/ReadNews.asp?NewsID=579605</a>这里有

longer1000 发表于 2009-3-1 00:58:00

真是好用啊，收下

shine.ks 发表于 2009-3-13 09:53:00

<p><font size="4">晕哦, 写完了才发现已经有人写了. </font></p><p><font size="4">不过还是分享给大家参考, 多提宝贵意见!!</font></p><p><font size="4">;;;;;图块替换程序<br/>;;;程序源自:　AshineZHANG<br/>(defun c:CHB ()<br/>&nbsp;&nbsp; (graphscr)<br/>&nbsp;&nbsp; (prompt "\n请选择要替换的图块: ")<br/>&nbsp;&nbsp; (setq<br/>&nbsp;&nbsp;&nbsp;&nbsp; e1 (ssget)<br/>&nbsp;&nbsp; (prompt "\n所有选择的图块将被靶块替换! ")<br/>&nbsp;&nbsp;&nbsp;&nbsp; e2 (entsel "\n选择靶块：")<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (if (and e1 e2)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e2 (assoc 2 (entget (car e2))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq i 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength e1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e4 (entget (ssname e1 i)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e5 (assoc 2 e4))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e4 (subst e2 e5 e4))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod e4)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq i (1+ i))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; );repeat<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n所有选择的图块都已变更到靶块: ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (cdr e2))<br/>&nbsp;&nbsp;&nbsp;&nbsp; );progn<br/>&nbsp;&nbsp; );if<br/>&nbsp;&nbsp; (princ)<br/>)</font></p>

fueya 发表于 2009-3-20 11:52:00

找了好久了！！！谢谢！！！

birdhot 发表于 2009-3-20 15:15:00

怎么看不到啊
页: 1 [2] 3 4 5
查看完整版本: [求助]求块替换块的Lisp