xkmysky 发表于 2008-4-17 09:46:00

[求助]批量代换文字内容程序!!!!!!!

本帖最后由 作者 于 2008-4-17 9:50:23 编辑 <br /><br /> <p>各位大大帮帮忙,情况是这样的.设计院给的图所有标高都差了0.18m,请推荐一个程序或软件可以实现对一副图中的文字内容进行批量代换(所有标高减0.18).谢谢啦,救急</p>

ljttjl 发表于 2008-4-17 21:34:00

将您的图形发送至：ljttjl @tom. com,帮您解决，您说的问题完全可以用程序实现。也可参考<a href="http://www.othermap.com/dvbbs/index.asp" style="CURSOR: hand;"><font color="#000000">测绘信息网论坛</font></a> → <a href="http://www.othermap.com/dvbbs/index.asp?boardid=300"><font color="#000000">测绘软件专题</font></a> → <a href="http://www.othermap.com/dvbbs/index.asp?boardid=27&amp;page=1"><font color="#000000">AutoCAD二次开发</font></a> → 针对cass7.0展高程点批量修改程序(第二次修改)&nbsp; <a href="http://www.othermap.com/dvbbs/dispbbs.asp?boardID=27&amp;ID=20098&amp;page=1">http://www.othermap.com/dvbbs/dispbbs.asp?boardID=27&amp;ID=20098&amp;page=1</a>

xkmysky 发表于 2008-4-19 11:36:00

楼上的大大

本帖最后由 作者 于 2008-4-19 11:37:24 编辑 <br /><br /> <p>谢谢你的帮助,我用的是cad2005,您介绍的程序不能使用.</p><p>因为我不会vb语言,所以编写不了这个程序,因为图上的标高全是文字格式,并不是标注,而且还有还有其他的宽度文字信息,所以不能使用针对整个文件的批量替换.</p><p>我想实现对选中的文字进行替换,即提取所有选中文字的内容,将其转换为数字格式,然后进行减去0.18的数学运算,再将计算值返回代替原文字中的内容.</p><p>谢谢</p>

ZZXXQQ 发表于 2008-4-19 14:18:00



;文字内容替换 明经 ZZXXQQ 2008.4.19
(defun C:tt ()
(if (setq ss (ssget '((0 . "TEXT")))) (progn
(setq i -1)
(repeat (sslength ss)
   (setq i (1+ i) ent (entget(ssname ss i)))
   (setq ent (subst (cons 1 (rtos (- (atof (cdr(assoc 1 ent))) 0.18) 2 2)) (assoc 1 ent) ent))
   (entmod ent)
)
))
(princ)
)

xkmysky 发表于 2008-4-21 22:26:00

<p>我想看看</p>
页: [1]
查看完整版本: [求助]批量代换文字内容程序!!!!!!!