[编程申请]：有没有数字统计程序

baihc798 · 发表于 2003-11-19 13:34:12

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

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

×

例如图中有很多0.7LW、0.5KW、2KW、9KW、之类的数字文字，能不能一下子把它们总和统计出来。

lsjjm · 发表于 2003-11-20 03:46:52

Try this code:

(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "TEXT"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(setq s (vla-get-textstring obj))
(setq v (atof (vl-string-trim "kw" s)))
(setq sum (+ sum v))
(setq n (1+ n))
  )
  sum
)

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

[编程申请]：有没有数字统计程序

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

相关帖子

浏览过的版块