如果批量计算TXT里的数字总和，显示在命令行即可

54525596 · 发表于 2011-8-6 18:22:18

如提呀，如果批量计算TXT里的数字总和，显示在命令行即可

ljttjl · 发表于 2011-8-7 09:15:17

本帖最后由 ljttjl 于 2011-8-7 09:17 编辑

详见http://ljttjl.ys168.com 2009-2试用程序及演示 20090914文字求和程序

以下为此程序演示：

sunnylhj · 发表于 2011-8-7 23:22:50

本帖最后由 sunnylhj 于 2011-8-7 23:23 编辑

给你一个超简单的，可以达到你的要求！

(defun c:TJJ ()
  (vl-load-com)
  (setvar "osmode" 0)
  (princ "\nPlease select Number texts:")
  (setq textobj (SSGET))
  (setq dimlength (sslength textobj))
  (SETQ NUM 0)
  (setq addnum 0)
  (WHILE (< NUM DIMLENGTH)
(setq ent (ssname textobj num))
(setq ent (vlax-ename->vla-object ent))
(setq objtype (vlax-get ent 'ObjectName))
(if (OR (= objtype "AcDbMText") (= objtype "AcDbText"))
   (PROGN
      (setq val1 (vlax-get ent 'Textstring))
      (setq val1 (atof val1))
      (setq addnum (+ addnum val1))
      )
   )
(setq num (+ num 1))
)
  (princ "\nAll number total is: ")
  (princ addnum)
  (PRINC)
;  (dos_clipboard addnum)
  )

不语勿语 · 发表于 2018-4-25 23:51:07

程式很好用

烟盒迷唇 · 发表于 2018-5-7 11:44:01

这程序不错啊

jkop · 发表于 2023-6-9 13:28:08

sunnylhj 发表于 2011-8-7 23:22
给你一个超简单的，可以达到你的要求！

(defun c:TJJ ()

程序很方便，直接显示，简单干脆！

下文没句号。 · 发表于 2023-8-24 07:06:04

不错的，留下脚印。。。好找

革天明 · 发表于 2023-8-24 20:44:07

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

[讨论] 如果批量计算TXT里的数字总和，显示在命令行即可

本帖子中包含更多资源

本帖子中包含更多资源