从文字中提取数字

bmy07

(defun c:test()
  (setq ss (ssget '((0 . "TEXT"))))
  (command "-layer" "n" "数字层" "")
  (if (/= ss nil)
      (command "change" ss "" "p" "la" "数字层" "")
  )
)

这个选择文字归层数字层,如何只提取数字类的文字归至数字层呢，
如同时选择  
11  ,12  ,13  ,混 ，建
11，12，13文字归至数字层，其他文字保持不变呢

在网上找了很久，没有找到，还是到明经来，高手能帮我回答一下，谢谢啦

bianjia2006

这个也行？我看难

461045462

先查查你的11  ,12  ,13  ,混 ，建的属性
然后采用：(0 . "TEXT")(1 . "混")
或者：(0 . "TEXT")(1 . "11")形式分别找出，放到你需要的层

bmy07

11  ,12  ,13  ,混 ，建比较多，而且数字部分内容没有规则，不能使用：(0 . "TEXT")(1 . "混")

bmy07

没人帮忙一下吗？

bmy07

难道真的没法实现吗？

yshf

2. 
   
3. (defun c:test()
   
4.   (if (= (tblsearch "layer" "数字层") nil)
   
5.       (command "-layer" "n" "数字层" "")
   
6.   )
   
7.   (if (setq ss (ssget '((0 . "TEXT"))))
   
8.       (progn
   
9.          (setq n (sslength ss) i 0)
   
10.          (repeat n
    
11.              (setq dxf (entget (ssname ss i))
    
12.                    zfc (cdr (assoc 1 dxf))
    
13.                    i   (1+ i)
    
14.              )
    
15.              (if (= (read zfc) (atof zfc))
    
16.                  (progn
    
17.                      (setq dxf (subst (cons 8 "数字层") (assoc 8 dxf) dxf))
    
18.                      (entmod dxf)
    
19.                  )
    
20.              )
    
21.          )
    
22.       )
    
23.   )
    
24.   (princ)
    
25. )
    

<br /> (defun c:test()<br />   (if (= (tblsearch "layer" "数字层") nil)<br />       (command "-layer" "n" "数字层" "")<br />   )<br />   (if (setq ss (ssget '((0 . "TEXT"))))<br />       (progn<br />          (setq n (sslength ss) i 0)<br />          (repeat n<br />              (setq dxf (entget (ssname ss i))<br />                    zfc (cdr (assoc 1 dxf))<br />                    i   (1+ i)<br />              )<br />              (if (= (read zfc) (atof zfc))<br />                  (progn<br />                      (setq dxf (subst (cons 8 "数字层") (assoc 8 dxf) dxf))<br />                      (entmod dxf)<br />                  )<br />              )<br />          )<br />       )<br />   )<br />   (princ)<br /> )<br />

bmy07

回复 yshf 的帖子

高手，谢谢啦

xyp1964

(if (setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
  (command "chprop" ss "" "la" "数字层" "")
)

nameld001

(ssget '((0 . "text")(1 . "1*,2*,3*,4*,5*,6*,7*,8*,9*"))