一个奇怪的问题

zhengchuan

这是lengyunfeng帮我写的主用备用互相替换的程序：

• (defun c:zbth (/)
  
•   (setq os (getvar "osmode"))
  
•   (setvar "osmode" 0)
  
•   (setvar "cmdecho" 0)
  
•   (princ "\n请选择要替换的文字对象:")
  
•   (setq obj (ssget))
  
•   (setq        len (sslength obj)
  
•         m   0
  
•   )
  
•   (repeat len
  
•     (setq name (ssname obj m))
  
•     (setq objdata (entget name))
  
•     (setq class (cdr (assoc 0 objdata)))
  
•     (if        (or (= class "TEXT") (= class "MTEXT"))
  
•       (progn
  
•         (setq old (assoc 1 objdata))
  
•         (setq old_text (cdr old))
  
•         (setq num (strlen old_text))
  
•         (setq n        1
  
•               new_text ""
  
•         )
  
•         (while (<= n num)
  
•           (setq text (substr old_text n 2))
  
•           (if (and (or (= text "主") (= text "备"))
  
•                    (= (substr old_text (+ 2 n) 2) "用")
  
•               )
  
•             (progn
  
•               (if (= text "主")
  
•                 (setq text "备用")
  
•                 (setq text "主用")
  
•               )
  
•               (setq n (+ n 4))
  
•             )
  
•             (setq n (+ n 2))
  
•           )
  
•           (setq new_text (strcat new_text text))
  
•         )
  
•         (setq new (cons 1 new_text))
  
•         (setq objdata (subst new old objdata))
  
•         (entmod objdata)
  
•       )
  
•     )
  
•     (setq m (1+ m))
  
•   )
  
•   (setvar "osmode" os)
  
•   (prin1)
  
• )
  
  

奇怪的是如果在主用或备用的前面是一位数字或一个字母时，程序不起作用。百思不解啊。

lsjj

1. n=1,3,5...或1,5,9...看SUBSTR怎樣取字,建議用VL-STRING-SEARCH方式
2. 建議SSGET加篩選,程序會簡潔些

ZZXXQQ

;全角字符和半角字符的问题

2. (defun c:zbth (/)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (setvar "cmdecho" 0)
   
6.   (princ "\n请选择要替换的文字对象:")
   
7.   (setq obj (ssget '((0 . "*TEXT"))))
   
8.   (repeat (setq m (sslength obj))
   
9.     (setq name (ssname obj (setq m (1- m))))
   
10.     (setq objdata (entget name))
    
11.     (setq class (cdr (assoc 0 objdata)))
    
12.     (setq old (assoc 1 objdata))
    
13.      (setq old_text (cdr old))
    
14.      (setq num (strlen old_text))
    
15.      (setq n 1 new_text "")
    
16.      (while (<= n num)
    
17.       (if (> (ascii(setq text (substr old_text n 1))) 127) (progn
    
18.        (setq text (substr old_text n 2))
    
19.        (if (and (wcmatch text "主,备") (= (substr old_text (+ 2 n) 2) "用")) (progn
    
20.         (setq text (if (= text "主") "备用" "主用"))
    
21.         (setq n (+ n 4))
    
22.        )
    
23.         (setq n (+ n 2))
    
24.        )
    
25.       )
    
26.        (setq n (1+ n))
    
27.       )
    
28.       (setq new_text (strcat new_text text))
    
29.      )
    
30.      (entmod (subst (cons 1 new_text) old objdata))
    
31.   )
    
32.   (setvar "osmode" os)
    
33.   (prin1)
    
34. )
    

(defun c:zbth (/)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (princ "\n请选择要替换的文字对象:")<br />   (setq obj (ssget '((0 . "*TEXT"))))<br />   (repeat (setq m (sslength obj))<br />     (setq name (ssname obj (setq m (1- m))))<br />     (setq objdata (entget name))<br />     (setq class (cdr (assoc 0 objdata)))<br />     (setq old (assoc 1 objdata))<br />      (setq old_text (cdr old))<br />      (setq num (strlen old_text))<br />      (setq n 1 new_text "")<br />      (while (<= n num)<br />       (if (> (ascii(setq text (substr old_text n 1))) 127) (progn<br />        (setq text (substr old_text n 2))<br />        (if (and (wcmatch text "主,备") (= (substr old_text (+ 2 n) 2) "用")) (progn<br />         (setq text (if (= text "主") "备用" "主用"))<br />         (setq n (+ n 4))<br />        )<br />         (setq n (+ n 2))<br />        )<br />       )<br />        (setq n (1+ n))<br />       )<br />       (setq new_text (strcat new_text text))<br />      )<br />      (entmod (subst (cons 1 new_text) old objdata))<br />   )<br />   (setvar "osmode" os)<br />   (prin1)<br /> )<br />

zhengchuan

谢谢两位的解答。我慢慢再对比消化下。