[LISP程序]：看看这一段程序有何问题

wcf

这个程序执行不下去，大家看看有何问题？;;本程序用目标文字替换需改变的文字。可以是TEXT和属性块中的属性文字      ??)
(defun c:tt(/ 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)))
??     (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

最初由 wcf 发布
[B]这个程序执行不下去，大家看看有何问题？;;本程序用目标文字替换需改变的文字。可以是TEXT和属性块中的属性文字      ??)
(defun c:tt(/ a b ent ent2 elist etype oldval bltxt entdata btxt ostr pt oltxt )
?.. [/B]

好像被加入了一些其他字符，看不见的字符，像空格，但不是空格。
去掉这些东西后，一切正常。
这确实是个好用的东西。

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

<br />   [FONT=courier new]<br /> (defun c:tt (/ 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 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 />         (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 />

wcf

好用了，谢谢