如何把明细表中英文（翻译部分）一次性删除

kexiya123

CAD中明细有中英文翻译，做明细表时只用中文的，所以要删除英文。
能否一次性选择判断出英文且把英文全删除。3qyou!

Gu_xl

回复 kexiya123 的帖子

1. (defun c:tt(/ ss en el str n)
   
2.   (setq ss (ssget '((0 . "text"))))
   
3.   (if ss
   
4.     (progn
   
5.       (setq n (sslength ss))
   
6.       (repeat n
   
7.         (setq en (ssname ss (setq n (1- n))))
   
8.         (setq str (cdr (assoc 1 (setq el (entget en)))))
   
9.         (setq str (VL-STRING->LIST str)
   
10.               str (vl-remove-if '(lambda(x) (or (<= 65 x 90) (<= 97 x 122))) str) ;_ 移除西文
    
11.               )
    
12.         (setq str (VL-LIST->STRING str))
    
13.         (setq el (subst (cons 1 str) (assoc 1 el) el))
    
14.         (entmod el)
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    

(defun c:tt(/ ss en el str n)<br />   (setq ss (ssget '((0 . "text"))))<br />   (if ss<br />     (progn<br />       (setq n (sslength ss))<br />       (repeat n<br />         (setq en (ssname ss (setq n (1- n))))<br />         (setq str (cdr (assoc 1 (setq el (entget en)))))<br />         (setq str (VL-STRING->LIST str)<br />               str (vl-remove-if '(lambda(x) (or (<= 65 x 90) (<= 97 x 122))) str) ;_ 移除西文<br />               )<br />         (setq str (VL-LIST->STRING str))<br />         (setq el (subst (cons 1 str) (assoc 1 el) el))<br />         (entmod el)<br />         )<br />       )<br />     )<br />   )<br />

sy100

谢谢分享！学习中

kexiya123

回复 sy100 的帖子

如果明细表中如代号栏为：GB/T5783-2000,运用以上程序时可能就把这个删除掉了

Gu_xl

回复 kexiya123 的帖子

选择时过滤掉GB/T5783-2000
(setq ss (ssget '((0 . "text")(1 . "~*GB/T5783-2000*"))))

kexiya123

我已把实例发至你邮箱，谢谢

snddd2000

(setq ss (ssget '((0 . "text")(1 . "~*GB*"))))

kexiya123

我也想过用ASCII码来处理，但是还是会出现很多状况

kexiya123

如材料名称栏里有两行：
中文行  “O型圈112x3.5"
翻译行为"O ring 112x3.5"
运用上面程序就不可
还有如代号栏为所编图号：8K400.201
运用上面程序就非常不合适了
      

Gu_xl

回复 snddd2000 的帖子

标题栏数据无规律，选择时不选即可！
修改后程序：

1. (defun c:tt(/ ss en el str n flag)
   
2.   (setq ss (ssget '((0 . "text" )(-4 . "<or") (1 . "*[a-z]*") (1 . "*[A-Z]*")(-4 . "or>"))))
   
3.   (if ss
   
4.     (progn
   
5.       (setq n (sslength ss))
   
6.       (repeat n
   
7.         (setq en (ssname ss (setq n (1- n))) Flag nil)
   
8.         (setq str (cdr (assoc 1 (setq el (entget en)))))
   
9.         (setq str (VL-STRING->LIST str))
   
10.         (vl-some (function (lambda (x) (if (> x 159) (setq flag t)))) str)
    
11.         (if (not flag) (entdel en))
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    

(defun c:tt(/ ss en el str n flag)<br />   (setq ss (ssget '((0 . "text" )(-4 . "<or") (1 . "*[a-z]*") (1 . "*[A-Z]*")(-4 . "or>"))))<br />   (if ss<br />     (progn<br />       (setq n (sslength ss))<br />       (repeat n<br />         (setq en (ssname ss (setq n (1- n))) Flag nil)<br />         (setq str (cdr (assoc 1 (setq el (entget en)))))<br />         (setq str (VL-STRING->LIST str))<br />         (vl-some (function (lambda (x) (if (> x 159) (setq flag t)))) str)<br />         (if (not flag) (entdel en))<br />         )<br />       )<br />     )<br />   )<br />