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

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

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

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

难道没人能解决吗？

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

你还是贴张 DWG 的图吧。

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

上面有附件呀！！！

上面有附件呀！！！

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

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

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

以下程序能实现你需要的功能


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


                       (PRINC (STRCAT "共选择了 " (RTOS T文字个数 2 0) " 个文本，\n" 提示有非数字字符的的文本 "累计了 " (RTOS Y 2 0) " 个有效文字的总和为：" (RTOS ZS总数和 2)       "\n"))<BR>                       (PRINC)<BR>                       (ALERT (STRCAT "共选择了 " (RTOS T文字个数 2 0) " 个文本，\n\n" 提示有非数字字符的的文本 "累计了 " (RTOS Y 2 0) " 个有效文字的总和为：" (RTOS ZS总数和 2)))<BR>        );ENF OF PROGN <BR>);END OF DEFUN

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

如果哪位需要通信线路设计软件的话可到以下网址看看，有软件可下载试用并免费注册。


<A href="http://jsptpd.sina.net/FLCAD/index.htm" target="_blank" >http://jsptpd.sina.net/FLCAD/index.htm</A>
页: [1]
查看完整版本: 我是搞电力线路设计的，能否实现将该图线段中间的数字相加？谢谢！！！！