[编程申请]：大家来看一下,怎样读"S=98.02"后面的98.02?

寒光四射 · 发表于 2005-11-11 15:00:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最近我每天计算很多人家的面积,他们的面积都是有S=**
大家来看一下,怎样读"S=98.02"后面的98.02?,
如果能读出来,然后就可以相加了,
我点击S=98.02和S=92.03的结果S=190.05 ,

应该有个取字符的函数吧?把前面的S=去掉?

我研究很久了,没有突破,请大家给个提示,

风云 · 发表于 2005-11-11 15:32:20

把字符从左往右切掉二个，剩下的就是数字了

寒光四射 · 发表于 2005-11-11 17:16:37

是啊。我的想法就是这样啊
可是我手中没有LISP的函数，不知道用什么函数，请指教

wxw1979 · 发表于 2005-11-12 08:56:09

不知道，我们用的是个概算，这点早就扔掉

yxpxa · 发表于 2005-11-15 13:09:01

用substr函数就可以了

jevonlee_28 · 发表于 2005-11-16 08:40:31

我也遇到过，好像是字体的问题

841594 · 发表于 2005-11-17 10:53:42

autolisp:
(substr "s=98.02" 3)
返回"98.02"

limingqian · 发表于 2005-11-17 10:58:43

查LISP手册应该找到更多的解决方法.

Underway · 发表于 2005-12-13 14:44:50

;|
怎样读"S=98.02"后面的98.02?,
如果能读出来,然后就可以相加了,
我点击S=98.02和S=92.03的结果S=190.05
|;

(defun C:AddArea (/ ss nn ee txtss)
  (princ "\n请选取: ")
  (setq ss (ssget ' ((0 . "TEXT"))))
  (cond
((null ss))
((< (setq nn (sslength ss)) 2))
(T
(while (setq ee (ssname ss (setq nn (1- nn))))
   (setq txtss (cons (substr (cdr (assoc 1 (entget ee))) 3) txtss))
)
(strcat
   "S="
   (rtos
      (apply '+
      (mapcar 'read txtss)
      )
      2 2
  ))) )
)

账号		自动登录	找回密码
密码			立即注册

[编程申请]：大家来看一下,怎样读"S=98.02"后面的98.02?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子