求教关于在字母、数字混合文本中提取数字的问题

麻吉888888888

已知套内面积，需要求建筑面积（建筑面积=套内面积/容积率）。
编了个小程序，发现只能对建筑面积的整数部分有效。经多次试验，应该是在提取数字上出了问题，百思不得其解。求教大侠，代码是哪儿错了，该怎么改？

处理前文字：120.33m^u2^u
输入容积率：0.3
处理后文字：401.10m^u2^u

文字为多行文本。


不好意思，新人不懂提问规矩

2. (defun c:ttt(/ ss add en txt enl num0)
   
3.   (while(not (setq add (getreal "\n容积率："))))
   
4.   (princ "\n选择文字：")
   
5.   (while (setq ss (ssget '((0 . "TEXT,mtext")(1 . "*m^u2^u*"))));;只有含有m^u2^u的才能被选
   
6. 
   
7. 中
   
8.   
   
9.   (repeat (setq n (sslength ss))
   
10.     (setq en (ssname ss (setq n (1- n))))
    
11.     (setq txt (cdr (assoc 1 (setq enl (entget en)))));;可能问题就出在这里
    
12.     (setq num0 (atoi txt)  num2 (atoi txt2)
    
13.           txt (substr txt (1- (strlen (rtos num0))));;1-仅针对于m^u2^u之前为两位小数的情况
    
14.           num2 (/ num2 add)
    
15.           txt (strcat (rtos num2 2 2) txt);;第一个2表示计算结果以小数表示，第二个2表示保留2
    
16. 
    
17. 位
    
18.           enl (subst (cons 1 txt) (assoc 1 enl) enl)
    
19.           )
    
20.     (entmod enl)
    
21.   )
    
22.     )
    
23.   )

(defun c:ttt(/ ss add en txt enl num0)<br />   (while(not (setq add (getreal "\n容积率："))))<br />   (princ "\n选择文字：")<br />   (while (setq ss (ssget '((0 . "TEXT,mtext")(1 . "*m^u2^u*"))));;只有含有m^u2^u的才能被选<br /> <br /> 中<br />   <br />   (repeat (setq n (sslength ss))<br />     (setq en (ssname ss (setq n (1- n))))<br />     (setq txt (cdr (assoc 1 (setq enl (entget en)))));;可能问题就出在这里<br />     (setq num0 (atoi txt)  num2 (atoi txt2)<br />           txt (substr txt (1- (strlen (rtos num0))));;1-仅针对于m^u2^u之前为两位小数的情况<br />           num2 (/ num2 add)<br />           txt (strcat (rtos num2 2 2) txt);;第一个2表示计算结果以小数表示，第二个2表示保留2<br /> <br /> 位<br />           enl (subst (cons 1 txt) (assoc 1 enl) enl)<br />           )<br />     (entmod enl)<br />   )<br />     )<br />   )

mmmmmm

...
(setq num0 (atoi txt)  num2 (atoi txt2)
...
txt2没见有定义啊

llsheng_73

整个过程未见对字符串进行数字提取，也没看见示例字符串，最好弄个示例字符串，以及希望提取哪些内容

麻吉888888888

处理前文字：120.33m^u2^u
输入容积率：0.3
处理后文字：401.10m^u2^u

文字为多行文本。


不好意思，新人不懂提问规矩

ZZXXQQ

2. (defun c:ttt(/ ss add en txt enl)
   
3.   (while(not (setq add (getreal "\n容积率: "))))
   
4.   (princ "\n选择文字: ")
   
5.   (while (setq ss (ssget '((0 . "*TEXT")(1 . "*m^u2^u*"))));;只有含有m^u2^u的才能被选中
   
6.    (repeat (setq n (sslength ss))
   
7.     (setq en (ssname ss (setq n (1- n))))
   
8.     (setq txt (cdr (assoc 1 (setq enl (entget en)))))
   
9.     (setq txt (strcat (rtos (/ (atof txt) add) 2 2) "m^u2^u"))
   
10.     (entmod (subst (cons 1 txt) (assoc 1 enl) enl))
    
11.    )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:ttt(/ ss add en txt enl)<br />   (while(not (setq add (getreal "\n容积率: "))))<br />   (princ "\n选择文字: ")<br />   (while (setq ss (ssget '((0 . "*TEXT")(1 . "*m^u2^u*"))));;只有含有m^u2^u的才能被选中<br />    (repeat (setq n (sslength ss))<br />     (setq en (ssname ss (setq n (1- n))))<br />     (setq txt (cdr (assoc 1 (setq enl (entget en)))))<br />     (setq txt (strcat (rtos (/ (atof txt) add) 2 2) "m^u2^u"))<br />     (entmod (subst (cons 1 txt) (assoc 1 enl) enl))<br />    )<br />   )<br />   (princ)<br /> )