如何选取单行文字并读取里面的数字

linshiyin2

请问如何实现下面的文字数字只读取里面的数字呢

X=37004.550，请高手指点啊，谢谢！！！

xransnow

刚好我前几天也写了个类似的函数，但是不知道有没有更有效率的做法，供参考吧

2. (defun yd:FindNumF (txtstring / txtlen chrpointer)
3.   (setq txtlen (strlen txtstring))
4.   (setq chrpointer 0)
5.   (while (or (> 45 (vl-string-elt txtstring chrpointer))
6.       (< 58 (vl-string-elt txtstring chrpointer))
7.   )
8.     (setq chrpointer (1+ chrpointer))
9.   )
10.   (setq chrpointer (1+ chrpointer))
11.   (distof
12.     (substr txtstring chrpointer (1+ (- txtlen chrpointer)))
13.     2
14.   )
15. )

(defun yd:FindNumF (txtstring / txtlen chrpointer)   (setq txtlen (strlen txtstring))   (setq chrpointer 0)   (while (or (> 45 (vl-string-elt txtstring chrpointer))       (< 58 (vl-string-elt txtstring chrpointer))   )     (setq chrpointer (1+ chrpointer))   )   (setq chrpointer (1+ chrpointer))   (distof     (substr txtstring chrpointer (1+ (- txtlen chrpointer)))     2   ) )

狂刀无痕

vbs再加正则表达式，通用

raimo

function XML() {
    [native code]
}

lenlenq

 (defun c:tt(/ en ent na )
 (while(null (setq en(car(entsel)))))
  (setq ent (entget en))
  (setq na (cdr(assoc 0 ent)))
  (if (= na "TEXT")
    (setq nr (cdr(assoc 1 ent)))
    )
  )