[求助]：如何把不同内容的文字改成同样内容

albert2000

比方一张图上标有很多标高，3.700m、4.300m、2.650m等等，都是单行文字写的（非MT命令写的）。我现在要把这些标高值都改为4.300m，有没有类似格式刷这样命令或工具，直接去刷，刷一个就变成4.300m，刷一下就变，省得我一个个点开来改。格式刷只能刷字高，字体等属性，不能刷内容。大侠请指教！

cdhua001

选定你的所有需要修改的单行文字，按“Ctrl+1”调出属性，在内容里面填写4.300m即可。

albert2000

谢谢斑竹大人，您说的方法我用过。但我还想偷懒，您知道格式刷用起来更方便，刷到哪里是哪里。好像听谁说过ET还是晓东里有这样类似刷子的工具，麻烦您了。或者根本没有这样的工具让偶死了这条心也好

lsjjm

REFER TO:

2. [font=courier]
   
3. (defun c:test ()
   
4.   (vl-load-com)
   
5.   (setq ent (car (entsel "\nSelect Destination Text: ")))
   
6.   (setq dobj (vlax-ename->vla-object ent))
   
7.   (setq dtxt (vla-get-textstring dobj))
   
8.   (prompt "\nSelect Text: ")
   
9.   (setq ss (ssget "x" '((0 . "TEXT"))) n 0)
   
10.   (while (< n (sslength ss))
    
11.     (setq obj (vlax-ename->vla-object (ssname ss n)))
    
12.     (vla-put-textstring obj dtxt)
    
13.     (setq n (1+ n))
    
14.   )
    
15. )
    
16. [/font]
    

[font=courier]<br /> (defun c:test ()<br />   (vl-load-com)<br />   (setq ent (car (entsel "\nSelect Destination Text: ")))<br />   (setq dobj (vlax-ename->vla-object ent))<br />   (setq dtxt (vla-get-textstring dobj))<br />   (prompt "\nSelect Text: ")<br />   (setq ss (ssget "x" '((0 . "TEXT"))) n 0)<br />   (while (< n (sslength ss))<br />     (setq obj (vlax-ename->vla-object (ssname ss n)))<br />     (vla-put-textstring obj dtxt)<br />     (setq n (1+ n))<br />   )<br /> )<br /> [/font]<br />

yi.gao

用FIND命令查找替换比较快。

jxsqq

四楼的lsp把所有的文字都变成一样的,没有选择,不太好,我刚试过
find很好用,我一般也用这个,再有就是文字修改大师也可以

albert2000

谢谢6楼楼主，您说的find正是我现在改文字一直用的，这个方法和斑竹推荐的用属性改基本上是类似的，可您不觉得还是麻烦。你想，我可能不是整屏的标高都改，而是在这许多标高里间隔着改，find要不框选要替换文字所在纸面上的范围，要不全选整图，里面可能有很多我不想改的文字，所以只有缩小范围框选，这就麻烦了。如果有刷子，边刷边结合鼠标中键和滚动键，不退出命令就可以在图纸上边找我要改的标高。这是不是能更“懒”？

还有，find命令改完图纸一部分后，图纸移到另一部分，再弹出find命令对话框时，要查找的和要替换成的输入框里又是空的，还得重输（或者到下拉框找）。我也是用久了find命令，总觉得它还不够随意，才在这里提问。

yi.gao

再贴入一个关于查找替换的演示，与以前的演示相比增加了新内容。

popxi

是的话就来这吧！
http://www.xdcad.net/forum/showthread.php?s=&threadid=141847

宇宙0723

9楼楼主的这个方法好用大家可以试试

albert2000

9楼楼主介绍的这个命令不错，“CT”是什么命令的所写？请详示
谢谢！

再次感谢8楼楼主热心制作演示！
但有个问题：在find对话框中如何知道我正在替换的是哪个1？
举例，要把您图中的4个1改掉（而不是5个1），比如第一行中最后一个1不改，其他1都改，如何改，用find命令。

柔柔

有意思，为了楼主这个问题，大家动了这么多脑筋。
楼主反复强调“刷子”，格式刷是如何操作的呢？选择第一个对象作为样板，以后所选对象按第一个格式。那好，选择第一个文字对象，读取它的内容，以后选择一个就用这个内容替换一个，框选就全替换。这个程序很容易编出来。

albert2000

柔柔兄一语道破，就是这个意思。可惜偶不会编程，否则就不用这么费劲口舌了。
9楼楼主编的东东偶用了，还不错，可惜还不是格式刷那样。它是先点要被改掉的字，然后再点源文字，与格式刷正好反了一下，不过有大侠热心替偶编程，已经非常感谢了！

aeo

把4楼的改改就是9楼  
反过来了

2. 
   
3. (defun c:test ( / dobj dtxt ent n ss)
   
4. (vl-load-com)
   
5. (if(and
   
6.    (setq ent (car (entsel "\nSelect Destination Text: ")))
   
7.    (setq dobj (vlax-ename->vla-object ent)
   
8.          dtxt (vla-get-textstring dobj)
   
9.          n -1)
   
10.    (not(prompt "\nSelect Text: "))
    
11.    (setq ss (ssget '((0 . "TEXT"))))
    
12.   )
    
13.   (repeat(sslength ss)
    
14.     (vla-put-textstring (vlax-ename->vla-object (ssname ss (setq n (1+ n)))) dtxt)
    
15.   )
    
16. )(prin1)
    
17. )
    

<br /> (defun c:test ( / dobj dtxt ent n ss)<br /> (vl-load-com)<br /> (if(and<br />    (setq ent (car (entsel "\nSelect Destination Text: ")))<br />    (setq dobj (vlax-ename->vla-object ent)<br />          dtxt (vla-get-textstring dobj)<br />          n -1)<br />    (not(prompt "\nSelect Text: "))<br />    (setq ss (ssget '((0 . "TEXT"))))<br />   )<br />   (repeat(sslength ss)<br />     (vla-put-textstring (vlax-ename->vla-object (ssname ss (setq n (1+ n)))) dtxt)<br />   )<br /> )(prin1)<br /> )<br />

陌生人

其实用ctrl+1属性修改已经很好
再给一个"纯"sp的

2. 
   
3. ;txtma = 文本内容格式刷－－－－－－－－－－－－－－－－－－－－－－－－－－－－－陌生人.2004.2
   
4. (defun c:txtma ()
   
5.   (while (not (and (setq el (entsel "\ntext文本刷->选择样板:")) (ssget "p" filter))))
   
6.   (setq etxt (assoc 1 (entget (car el))))
   
7.   (while
   
8.     (and (princ "\ntext文本刷->选择目标:")
   
9.          (setq ss (ssget '((0 . "*TEXT")))))
   
10.     (repeat (setq n (sslength ss))
    
11.        (setq dxf (entget (ssname ss (setq n (1- n))))
    
12.               ne (subst etxt (assoc 1 dxf) dxf))
    
13.        (entmod ne)
    
14.     )
    
15.   )
    
16. )
    
17. 
    

<br /> ;txtma = 文本内容格式刷－－－－－－－－－－－－－－－－－－－－－－－－－－－－－陌生人.2004.2<br /> (defun c:txtma ()<br />   (while (not (and (setq el (entsel "\ntext文本刷->选择样板:")) (ssget "p" filter))))<br />   (setq etxt (assoc 1 (entget (car el))))<br />   (while<br />     (and (princ "\ntext文本刷->选择目标:")<br />          (setq ss (ssget '((0 . "*TEXT")))))<br />     (repeat (setq n (sslength ss))<br />        (setq dxf (entget (ssname ss (setq n (1- n))))<br />               ne (subst etxt (assoc 1 dxf) dxf))<br />        (entmod ne)<br />     )<br />   )<br /> )<br /> <br />