关于CAD中统计中文字个数的代码

行空雕

好友翻译CAD图纸，按字数收费，想统计中文字个数，故写了这些代码，分享给大家~

---

01 LISP统计函数

2. <div class="blockcode"><blockquote>(defun c:tt()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq ss (ssget "X" (list (cons 0 "text"))))  ;选择图面所有文字
   
5.   (setq n (sslength ss))
   
6.   (setq i 0 zf 0)
   
7.   (repeat n
   
8.     (setq txt (entget (ssname ss i)))
   
9.     (setq i (+ i 1))
   
10.     (setq sr1 (cdr (assoc 1 txt)))
    
11.     (setq m 0)
    
12.     (repeat (strlen sr1)
    
13.       (setq asc (vl-string-elt sr1 m))
    
14.       (if (> asc 129 )
    
15.   (if (/= asc 161)  ;以下是为了屏蔽 ，。”“
    
16.     (if (/= asc 163)
    
17.       (if (/= asc 172)
    
18.         (if (/= asc 177)
    
19.     (if (/= asc 187)
    
20.       (setq zf (+ zf 1))
    
21.       )
    
22.     )
    
23.         )
    
24.     )  
    
25.    )
    
26.       )
    
27.       (setq m(+ m 1))
    
28.       )
    
29.     )
    
30.   (setq zf (/ zf 2))
    
31.   ;(setq zf (- zf 1))
    
32.   (dcl_01) ;调用显示对话框
    
33.   (print)
    
34.   )
    
35. 
    
36. (defun dcl_01()     ;调用显示对话框函数
    
37.   (setq dcl_id (load_dialog "dcl_tj"))
    
38.   (new_dialog "dcl_tj" dcl_id)
    
39.   (set_tile "ZW_SL" (itoa zf))
    
40.   (start_dialog)
    
41.   )
    

<div class="blockcode"><blockquote>(defun c:tt()<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget "X" (list (cons 0 "text"))))  ;选择图面所有文字<br />   (setq n (sslength ss))<br />   (setq i 0 zf 0)<br />   (repeat n<br />     (setq txt (entget (ssname ss i)))<br />     (setq i (+ i 1))<br />     (setq sr1 (cdr (assoc 1 txt)))<br />     (setq m 0)<br />     (repeat (strlen sr1)<br />       (setq asc (vl-string-elt sr1 m))<br />       (if (> asc 129 )<br />   (if (/= asc 161)  ;以下是为了屏蔽 ，。”“<br />     (if (/= asc 163) <br />       (if (/= asc 172)<br />         (if (/= asc 177)<br />     (if (/= asc 187)<br />       (setq zf (+ zf 1))<br />       )<br />     )<br />         )<br />     )  <br />    )<br />       )<br />       (setq m(+ m 1))<br />       )<br />     )<br />   (setq zf (/ zf 2))<br />   ;(setq zf (- zf 1))<br />   (dcl_01) ;调用显示对话框<br />   (print)<br />   )<br /> <br /> (defun dcl_01()     ;调用显示对话框函数<br />   (setq dcl_id (load_dialog "dcl_tj"))<br />   (new_dialog "dcl_tj" dcl_id)<br />   (set_tile "ZW_SL" (itoa zf))<br />   (start_dialog)<br />   )<br />

02 对话框函数

2. dcl_tj:dialog{
   
3.   label="Blue_EP的对话框";
   
4.   :concatenation{
   
5.     :text_part {label="共有中文: 【";}
   
6.     :text {width=6;key="ZW_SL";}
   
7.                 :text_part{label="】";}
   
8.     }
   
9.     ok_cancel;
   
10.   }

dcl_tj:dialog{<br />   label="Blue_EP的对话框";<br />   :concatenation{<br />     :text_part {label="共有中文: 【";}<br />     :text {width=6;key="ZW_SL";}<br />                 :text_part{label="】";}<br />     }<br />     ok_cancel;<br />   }

行空雕

上述代码不能统计块中的固定中文字和属性块的中文字

newbuser

不错，某些特定的用途会用得着。收下了。