[求助]：在选择集中怎样过虑字符串

CADABC

(prompt "选择对象")
(setq ss (ssget '((0 . "text,mtext"))))
  (setq i 0  )
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq dat (atof (cdr (assoc 1 (entget en)))))
到这一步,怎样将不是纯数字的字串过虑出来并赋给变量dat1,当有N个时,构成一个表,过虑后,SS相当于减少了该对象,带负号的不过虑。

梦断江南

你是说字符串中含有多个数字的情况么？
可参照一下论坛以往有关 字符串提取数字 的程序。

CADABC

论坛以往的字符串提取数字,只能提取数字,但我现在要的是在选择集中,把不是纯数字组的对象,从选择集中分离出来,用到别的地方.

zhang8755

过滤条件可设为

2. 
   
3.   [FONT=courier new]
   
4. (setq ss2 (ssadd))
   
5. (prompt "选择对象")
   
6. (setq ss (ssget '((0 . "text,mtext"))))
   
7. (setq i 0 )
   
8. (repeat (sslength ss)
   
9. (setq en (ssname ss i))
   
10. (setq dat (cdr (assoc 1 (entget en))))
    
11. (if (= (rtos (atof en)) dat)
    
12.   (progn
    
13.     (ssadd en ss2)
    
14.   )
    
15. )
    
16. (setq i (1+ i))
    
17. )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq ss2 (ssadd))<br /> (prompt "选择对象")<br /> (setq ss (ssget '((0 . "text,mtext"))))<br /> (setq i 0 )<br /> (repeat (sslength ss)<br /> (setq en (ssname ss i))<br /> (setq dat (cdr (assoc 1 (entget en))))<br /> (if (= (rtos (atof en)) dat)<br />   (progn<br />     (ssadd en ss2)<br />   ) <br /> )<br /> (setq i (1+ i))<br /> )<br />   [/FONT]<br />

梦断江南

最初由 CADABC 发布
[B]论坛以往的字符串提取数字,只能提取数字,但我现在要的是在选择集中,把不是纯数字组的对象,从选择集中分离出来,用到别的地方. [/B]

不是纯数字组的对象－－－－最好能给个实例

CADABC

用(setq dat (cdr (assoc 1 (entget en))))取得dat数据为：200 400 BB 300 1000 ......,我现在要  200 400 300 1000 ......进行数学四大运算，把BB提取出，作为判断条件，BB出现的位置不定，数值也不定，可能是-800*10 L20 [128 H584 等等

zengchanghao

太多的限制

梦断江南

太不规律的东西，过滤出来的就不都是你想要的东西了

yanxinbo67

好解决。不过既然BB出现的位置不定，数值也不定，可能是-800*10 L20 [128 H584 ，那么请问提取出的BB在后续程序中还有用吗，如果没用就不要管它，不用提取出来，可以让它参与计算，因为所有的非纯数字的任何字符转换为实数都为0，不影响你的计算结果

雪山飞狐(lzh)

转自明经通道
(defun strIsNum(str / ascList n len return char)
(setq ascList (stoal str))
(setq n 0)
(setq return T)
(setq len (length ascList))
(while (and return (< n len))
(setq char (nth n ascList))
(if(or
(and (>= char 48); 0
(<= char 57)
); 9
(= char 46); .
) ;_ end of or
(setq return T)
(setq return nil)
) ;_ end of if
(setq n (1+ n))
) ;_ end of while
return
) ;_ end of defun
(defun stoal  (strA)
(cond ((> (strlen strA) 1)
        (cons (ascii (substr strA 1)) (stoal (substr strA 2))))
       ((list (ascii (substr strA 1)))))
)
;不支持负号，自己改进一下吧