我是搞电力线路设计的，能否实现将该图线段中间的数字相加？谢谢！！！！

bossda · 发表于 2002-9-2 15:27:00

bossda · 发表于 2002-9-4 15:41:00

liujing · 发表于 2002-9-4 16:14:00

bossda · 发表于 2002-9-5 07:57:00

上面有附件呀！！！

liujing · 发表于 2002-9-5 08:53:00

SFL · 发表于 2004-12-23 13:19:00

以下程序能实现你需要的功能 ;;计算文本的和
(DEFUN C:J()
(PROGN
(PRINC "\n选取要求和的数字：")
(SETQ S选择集 (SSGET '((0 . "text")) ))
(SETQ T文字个数 (SSLENGTH S选择集))
(SETQ ZS总数和 0)
(SETQ X 0)
(SETQ Y 0)
(SETQ Z 0)
(SETQ 提示有非数字字符的的文本 "")
(REPEAT T文字个数
(SETQ TEMP临时值 (READ (CDR (ASSOC 1 (ENTGET (SSNAME S选择集 X))))));;
(IF (OR (= (QUOTE REAL) (TYPE TEMP临时值)) (= (QUOTE INT) (TYPE TEMP临时值)))
(PROGN (SETQ Y (+ Y 1))(SETQ ZS总数和 (+ ZS总数和 (FLOAT TEMP临时值)) ))
(PROGN (SETQ Z (+ Z 1))
(SETQ 提示有非数字字符的的文本 (STRCAT "有 " (RTOS Z 2 0) " 个文本因是非数字而不能累计，\n\n"))
);END OF PROGN
);END OF IF
(setq x (+ x 1))
);END OF REPEAT (PRINC (STRCAT "共选择了 " (RTOS T文字个数 2 0) " 个文本，\n" 提示有非数字字符的的文本 "累计了 " (RTOS Y 2 0) " 个有效文字的总和为：" (RTOS ZS总数和 2) "\n"))
(PRINC)
(ALERT (STRCAT "共选择了 " (RTOS T文字个数 2 0) " 个文本，\n\n" 提示有非数字字符的的文本 "累计了 " (RTOS Y 2 0) " 个有效文字的总和为：" (RTOS ZS总数和 2)))
);ENF OF PROGN
);END OF DEFUN

SFL · 发表于 2005-1-14 19:34:00

如果哪位需要通信线路设计软件的话可到以下网址看看，有软件可下载试用并免费注册。 http://jsptpd.sina.net/FLCAD/index.htm

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

我是搞电力线路设计的，能否实现将该图线段中间的数字相加？谢谢！！！！

本帖子中包含更多资源

难道没人能解决吗？

你还是贴张 DWG 的图吧。

上面有附件呀！！！

可是你的附件是 BMP 的还是贴张 DWG 的吧。