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

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

如提呀，如果批量计算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









最近也写了一个

54525596 发表于 2023-8-28 10:45:00

好久的贴子了，都好棒
页: [1]
查看完整版本: 如果批量计算TXT里的数字总和，显示在命令行即可