画住宅
给排水通常好几个单元户型都一样,所以我们要做的工作就是:
1,做好一个户型
2,把做好的这个户型给copy到其他的单元,然后把出户管,立管等的编号改改(例如:PLa-1改为PLb-1,或者PLc-1,或者PLd-1等等)
这样我们就遇到了一个问题:如果是系统冷,热,污,雨,直饮水都有,立管拐弯又比较多的别墅
那么光立管编号就有几十个,一个一个去改的话,工作量就太大了
以前我用过鸿业市政,它里面有一个字符替换的功能,可以将选定范围内所以文本里面的"a字符"全部替换为"b字符",可惜那是个正版软件,我现在没有加密狗也就不能用了
本人从失去加密狗那天开始就一直在寻找类似功能的小程序,还专门买了本cad二次开放指南来研究,可惜未能参透其中奥秘,求哪位高人指教,不胜感激!!!
全部回复（3 ）
只看楼主 我来说两句-
fen
沙发
舍近求远
2005-04-12 18:23:12
赞同0
-
huxkv
板凳
(DEFUN c:str()
2005-04-10 01:38:10
赞同0
加载更多老版cad自带的“chtext”和新版cad自带的find都可以实现
回复 举报
(SETQ pt1 (GETPOINT"\nFirst corner:"))
(SETQ pt2 (GETCORNER pt1"\nOther corner:"))
(SETQ s1 (GETSTRING"\nInput old string:"))
(SETQ s2 (GETSTRING"\nInput new string:"))
(SETQ p1 (CONS 1 s1))
(SETQ p2 ’(0 . "text"))
(SETQ s (SSGET "w" pt1 pt2 (LIST p1 p2)))
(SETQ l (SSLENGTH s))
(SETQ y 0)
(WHILE (< y l)
(SETQ n (ENTGET (SSNAME s y)))
(SETQ n (SUBST (CONS 1 s2)
(ASSOC 1 n)
n
)
)
(ENTMOD n)
(SETQ y (1+ y))
)
(GC)
)
回复 举报