[求助]：如何实现文字截取转换并计算?

loner · 发表于 2007-7-24 14:40:41

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

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

×

如何在全部文字中选定带"S="前缀的字符,如何截取"S=17.78"和"S总=17.78"这两种字符中,数字部分的内容,并转换成实数相加呢?请各位高手出手一下!,

lazybug · 发表于 2007-7-28 19:27:21

(defun c:zz ()
(setq ss (ssget "all" '((0 . "*TEXT") (1 . "S=*,S总=*"))))
(setq n -1)
(setq sum 0.0)
(repeat (sslength ss)
(setq en_data (entget (ssname ss (setq n (1+ n)))))
(setq txt (cdr (assoc 1 en_data)))
(setq sum (+ sum (atof (substr txt (+ (vl-string-position (ascii "=") txt) 2)))))
)
)

yy5heng · 发表于 2007-7-28 20:24:52

ssget居然还有 all 这个过滤模式？？

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

[求助] [求助]：如何实现文字截取转换并计算?

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

相关帖子