linshiyin2 发表于 2010-5-19 21:46:00

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

<p>请问如何实现下面的文字数字只读取里面的数字呢</p><p>X=37004.550，请高手指点啊，谢谢！！！</p>

xransnow 发表于 2010-5-21 16:56:00

刚好我前几天也写了个类似的函数，但是不知道有没有更有效率的做法，供参考吧
(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
)
)

狂刀无痕 发表于 2010-5-22 01:46:00

vbs再加正则表达式，通用

raimo 发表于 2010-5-22 20:27:00

function XML() {
   
}

lenlenq 发表于 2010-5-28 21:05:00

&nbsp;(defun c:tt(/ en ent na )<br/>&nbsp;(while(null (setq en(car(entsel)))))<br/>&nbsp; (setq ent (entget en))<br/>&nbsp; (setq na (cdr(assoc 0 ent)))<br/>&nbsp; (if (= na "TEXT")<br/>&nbsp;&nbsp;&nbsp; (setq nr (cdr(assoc 1 ent)))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )
页: [1]
查看完整版本: 如何选取单行文字并读取里面的数字