[求助]：单独选择汉字

tangyiyi

各位大师,能不能编一个程序,可以单独选择汉字的程序?

eachy

2. 
   
3. (defun c:tt (/ ss ssl i s e el str strl)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (progn
   
6.       (setq ssl        (sslength ss)
   
7.             i        -1
   
8.             s        (ssadd)
   
9.       )
   
10.       (repeat ssl
    
11.         (setq e           (ssname ss (setq i (1+ i)))
    
12.               el   (entget e)
    
13.               str  (cdr (assoc 1 el))
    
14.               strl (vl-string->list str)
    
15.         )
    
16.         (if (vl-every '(lambda (x) (> x 159)) strl)
    
17.           (ssadd e s)
    
18.         )
    
19.       )
    
20.       (if s
    
21.         (progn
    
22.           (command ".select" s "")
    
23.           (sssetfirst nil s)
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )
    

<br /> (defun c:tt (/ ss ssl i s e el str strl)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />             s        (ssadd)<br />       )<br />       (repeat ssl<br />         (setq e           (ssname ss (setq i (1+ i)))<br />               el   (entget e)<br />               str  (cdr (assoc 1 el))<br />               strl (vl-string->list str)<br />         )<br />         (if (vl-every '(lambda (x) (> x 159)) strl)<br />           (ssadd e s)<br />         )<br />       )<br />       (if s<br />         (progn<br />           (command ".select" s "")<br />           (sssetfirst nil s)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

tangyiyi

请斑竹及各位大师编一个能选择包括汉字的字符串,先谢谢了.

zxq0220

2. 
   
3. (defun c:tt (/ ss i j s e str stl)
   
4. (if (setq ss (ssget '((0 . "text")))) (progn
   
5.   (setq i -1 s (ssadd))
   
6.   (repeat (sslength ss)
   
7.    (setq e (ssname ss (setq i (1+ i)))
   
8.          str (cdr (assoc 1 (entget e)))
   
9.          stl (strlen str) j -1)
   
10.    (while (< j stl)
    
11.     (if (> (asc (substr str (setq j (1+ j)) 1)) 159)
    
12.      (setq j stl s (ssadd e s))
    
13.     )
    
14.    )
    
15.   )
    
16.   (if s (progn
    
17.    (command ".select" s "")
    
18.    (sssetfirst nil s)
    
19.   ))
    
20. ))
    
21. (princ)
    
22. )
    

<br /> (defun c:tt (/ ss i j s e str stl)<br /> (if (setq ss (ssget '((0 . "text")))) (progn<br />   (setq i -1 s (ssadd))<br />   (repeat (sslength ss)<br />    (setq e (ssname ss (setq i (1+ i)))<br />          str (cdr (assoc 1 (entget e)))<br />          stl (strlen str) j -1)<br />    (while (< j stl)<br />     (if (> (asc (substr str (setq j (1+ j)) 1)) 159)<br />      (setq j stl s (ssadd e s))<br />     )<br />    )<br />   )<br />   (if s (progn<br />    (command ".select" s "")<br />    (sssetfirst nil s)<br />   ))<br /> ))<br /> (princ)<br /> )<br />

tangyiyi

好象不行啊.能不能请您再检查检查?

tangyiyi

我的意思是选择含有汉字的字符串,能否再把程序修改一下?谢谢了.

eachy

(vl-every '(lambda (x) (> x 159)) strl) -> (vl-position 'T (mapcar '(lambda (x) (> x 159)) strl))

雨箭风刀

(apply 'or (mapcar '(lambda (x) (> x 159)) strl)) )

tangyiyi

怎么把这几段合在一起?

lyj1998

具体在哪里输入这一长串的命令啊？

8613xiewei

好复杂的要求阿

zbyxj

确实很难,看来要自己学学才好!

雨箭风刀

选取汉字的简便方法
(ssget '((0 . "TEXT")(1 . "~*[ -~]*")));;纯汉字.不含空格.
(ssget '((0 . "TEXT")(1 . "~*[!-~]*")));;纯汉字.可含空格

2004haerbin

看不懂程序，在那里写入这些程序？

gengxuanpeng007

这程序好像不对把