[求助]：为什么我的这段程度每操作一次都必需加载一次，请各位高手指教程序如下：

chen_xxx

程序如下：
;zixiong.w(defun c:th(/ a b ent ent2 elist etype oldval bltxt entdata btxt ostr pt oltxt )
(princ "\n       *******  文字替换程序   *******       Writen by 正航")
(princ "\n 请选择复制源文字目标:")
(setq ent (nentsel))
(if (= ent nil)(setq oldval (getstring "\n  请输入文字:"))
  (progn
          (setq
                   ent2 ent
                   elist (entget (car ent))
                   etype (cdr (assoc 0 elist))
          )
        (setq  oldval (cdr (assoc 1 elist)))
        (princ "\n ")
        (princ "\n复制文字内容为:  ") (princ oldval)
    )
)
(setq q 9)
(while q
  (princ "\n ")
  (setq bltxt (nentsel "\n请选择需要替换的文字目标:"))
  (if (= bltxt nil)(setq q nil)
  (progn
     (setq entdata (entget (car bltxt)) btxt (cdr (assoc 1 entdata)) ostr btxt)
     (setq  elist (entget (car bltxt)))
     (setq  etype (cdr (assoc 0 elist)))
;;    (setq oltxt (car (assoc 1 elist)))
     (setq  oltxt (cdr (assoc 1 elist)))
     (if (= etype "ATTRIB")
        (progn
        (setq pt (cadr bltxt))
        (command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n")
        )
     (progn     
     (setq btxt oldval)
     (entmod (subst (cons 1 btxt)(assoc 1 entdata) entdata))
     (if (setq bltxt (car (reverse (cadddr bltxt)))) (entupd bltxt))
  ))))  
     (princ "\n原文字为:")(princ oltxt)(princ ".  已被替换为: ")(princ oldval)(princ " .")
)
(princ)

lijiao

最初由 chen_xxx 发布
[B]程序如下：
;zixiong.w(defun c:th(/ a b ent ent2 elist etype oldval bltxt entdata btxt ostr pt oltxt )
(princ "\n       *******  文字替换程序   *******       Writen by 正航")
(princ "\n 请选择复制?.. [/B]

2. 
   
3.   [FONT=courier new]
   
4.                                         ;zixiong.w
   
5. (defun c:th (/ a b ent ent2 elist etype        oldval bltxt entdata btxt ostr
   
6.              pt        oltxt)
   
7.   (princ "\n ******* 文字替换程序 ******* Writen by 正航")
   
8.   (princ "\n 请选择复制源文字目标:")
   
9.   (setq ent (nentsel))
   
10.   (if (= ent nil)
    
11.     (setq oldval (getstring "\n 请输入文字:"))
    
12.     (progn
    
13.       (setq
    
14.         ent2  ent
    
15.         elist (entget (car ent))
    
16.         etype (cdr (assoc 0 elist))
    
17.       )
    
18.       (setq oldval (cdr (assoc 1 elist)))
    
19.       (princ "\n ")
    
20.       (princ "\n复制文字内容为: ")
    
21.       (princ oldval)
    
22.     )
    
23.   )
    
24.   (setq q 9)
    
25.   (while q
    
26.     (princ "\n ")
    
27.     (setq bltxt (nentsel "\n请选择需要替换的文字目标:"))
    
28.     (if        (= bltxt nil)
    
29.       (setq q nil)
    
30.       (progn
    
31.         (setq entdata (entget (car bltxt))
    
32.               btxt    (cdr (assoc 1 entdata))
    
33.               ostr    btxt
    
34.         )
    
35.         (setq elist (entget (car bltxt)))
    
36.         (setq etype (cdr (assoc 0 elist)))
    
37.         ;; (setq oltxt (car (assoc 1 elist)))
    
38.         (setq oltxt (cdr (assoc 1 elist)))
    
39.         (if (= etype "ATTRIB")
    
40.           (progn
    
41.             (setq pt (cadr bltxt))
    
42.             (command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n")
    
43.           )
    
44.           (progn
    
45.             (setq btxt oldval)
    
46.             (entmod (subst (cons 1 btxt) (assoc 1 entdata) entdata))
    
47.             (if        (setq bltxt (car (reverse (cadddr bltxt))))
    
48.               (entupd bltxt)
    
49.             )
    
50.           )
    
51.         )
    
52.       )
    
53.     )
    
54.     (princ "\n原文字为:")
    
55.     (princ oltxt)
    
56.     (princ ". 已被替换为: ")
    
57.     (princ oldval)
    
58.     (princ " .")
    
59.   )
    
60.   (princ)
    
61. )
    
62.   [/FONT]
    

<br />   [FONT=courier new]<br />                                         ;zixiong.w<br /> (defun c:th (/ a b ent ent2 elist etype        oldval bltxt entdata btxt ostr<br />              pt        oltxt)<br />   (princ "\n ******* 文字替换程序 ******* Writen by 正航")<br />   (princ "\n 请选择复制源文字目标:")<br />   (setq ent (nentsel))<br />   (if (= ent nil)<br />     (setq oldval (getstring "\n 请输入文字:"))<br />     (progn<br />       (setq<br />         ent2  ent<br />         elist (entget (car ent))<br />         etype (cdr (assoc 0 elist))<br />       )<br />       (setq oldval (cdr (assoc 1 elist)))<br />       (princ "\n ")<br />       (princ "\n复制文字内容为: ")<br />       (princ oldval)<br />     )<br />   )<br />   (setq q 9)<br />   (while q<br />     (princ "\n ")<br />     (setq bltxt (nentsel "\n请选择需要替换的文字目标:"))<br />     (if        (= bltxt nil)<br />       (setq q nil)<br />       (progn<br />         (setq entdata (entget (car bltxt))<br />               btxt    (cdr (assoc 1 entdata))<br />               ostr    btxt<br />         )<br />         (setq elist (entget (car bltxt)))<br />         (setq etype (cdr (assoc 0 elist)))<br />         ;; (setq oltxt (car (assoc 1 elist)))<br />         (setq oltxt (cdr (assoc 1 elist)))<br />         (if (= etype "ATTRIB")<br />           (progn<br />             (setq pt (cadr bltxt))<br />             (command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n")<br />           )<br />           (progn<br />             (setq btxt oldval)<br />             (entmod (subst (cons 1 btxt) (assoc 1 entdata) entdata))<br />             (if        (setq bltxt (car (reverse (cadddr bltxt))))<br />               (entupd bltxt)<br />             )<br />           )<br />         )<br />       )<br />     )<br />     (princ "\n原文字为:")<br />     (princ oltxt)<br />     (princ ". 已被替换为: ")<br />     (princ oldval)<br />     (princ " .")<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

swaywood

二楼的也是在浦东？ lijiao