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

841594

我也来贴一个，这个的特点是：
1. 能记忆上次修改的文字内容。
2. 随点随改、比较直观。

2. [font=courier]
   
3. ;;;新文字
   
4. ;;;v1.0-1995.11.21
   
5. (defun c:xtxt( / en ent str)
   
6.   (or #xt (setq #xt ""))
   
7.   (if (/= #xt "")
   
8.    (princ (strcat "\n请输入新文字<" #xt ">: "))
   
9.    (princ "\n请输入新文字: ")
   
10.   )
    
11.   (setq str (getstring T))
    
12.   (if (/= str "") (setq #xt str))
    
13.   (if (/= "" #xt) (progn
    
14.     (while (setq en (car (entsel)))
    
15.       (if (= "TEXT" (CDR (ASSOC 0 (setq ent (ENTGET EN)))))
    
16.        (entmod (subst (cons 1 #xt) (assoc 1 ent) ent))
    
17.       ) ;IF
    
18.     ) ; while
    
19.   )) ;if
    
20. ) ;end
    
21. [/font]
    

[font=courier]<br /> ;;;新文字<br /> ;;;v1.0-1995.11.21<br /> (defun c:xtxt( / en ent str)<br />   (or #xt (setq #xt ""))<br />   (if (/= #xt "")<br />    (princ (strcat "\n请输入新文字<" #xt ">: "))<br />    (princ "\n请输入新文字: ")<br />   )<br />   (setq str (getstring T))<br />   (if (/= str "") (setq #xt str))<br />   (if (/= "" #xt) (progn<br />     (while (setq en (car (entsel)))<br />       (if (= "TEXT" (CDR (ASSOC 0 (setq ent (ENTGET EN)))))<br />        (entmod (subst (cons 1 #xt) (assoc 1 ent) ent))<br />       ) ;IF<br />     ) ; while<br />   )) ;if<br /> ) ;end<br /> [/font]<br />

柔柔

陌生人用了 "*TEXT"，也就包含了MTEXT，实际上文字还有一种别忘了，那就是ATTDEF。

coolzhb

最初由 柔柔 发布
[B]陌生人用了 "*TEXT"，也就包含了MTEXT，实际上文字还有一种别忘了，那就是ATTDEF。 [/B]

Attdef的替换我也没找到好的程序！

陌生人

最初由 柔柔 发布
[B]陌生人用了 "*TEXT"，也就包含了MTEXT，实际上文字还有一种别忘了，那就是ATTDEF。 [/B]

那是随手写的，把attdef加入就可，但是要改组码2，attdef倒是很少用的到，对单独attdef显示的是标志（2），而不是值（1），只有做成块后，值才有意义。因此容易产生歧意，不推荐单独使用。如果能对块内属性刷倒是有些实际意义，但是那要另外编写一个程序了。其实mtext也不能完全支持，因为多于256(?)个字符，就要放到330（大概是）组码里面去了。

ywx0576

最初由 陌生人 发布
[B]其实用ctrl+1属性修改已经很好
再给一个"纯"sp的
[code]
;txtma = 文本内容格式刷－－－－－－－－－－－－－－－－－－－－－－－－－－－－－陌生人.2004.2
(defun c:txtma ()
  (while (not (and (setq el (... [/B]

老兄这个程序对修改TEXT和MTEXT都有效，能不能再改一改，使其对尺寸标注也适用呢？

Lanfeng

陌生人的程序，使用的时候有时会无法使用，具体表现是读取源文字的时候有时会认不出，始终提示“选择样板”
我使用的是CAD2004，我不知道问题出在哪儿～～

各位大侠会诊