rainbow2000 发表于 2007-11-16 11:17:00

[求助]统计选择区域内所有有数值的和。

本帖最后由 作者 于 2007-11-16 22:05:47 编辑 <br /><br /> <p></p><p>如何编写一个统计选择区域内所有有数值的和的VLISP程序。</p><p>希望大家帮忙！</p><p></p>

phoenixdjq 发表于 2007-11-16 12:31:00

(defun c:qq&nbsp;(/ ss n totn adn)<br/>&nbsp; (prompt "\n拾取数字求和: ")<br/>&nbsp; (setq&nbsp;ss (ssget '((0 . "TEXT")))<br/>&nbsp;n&nbsp; 0<br/>&nbsp; )<br/>&nbsp; (setq totn 0.0)<br/>&nbsp; (while (setq en (ssname ss n))<br/>&nbsp;&nbsp;&nbsp; (setq adn (atof (cdr (assoc 1 (entget en)))))<br/>&nbsp;&nbsp;&nbsp; (setq totn (+ totn adn))<br/>&nbsp;&nbsp;&nbsp; (setq n (1+ n))<br/>&nbsp; )<br/>&nbsp; (princ (strcat "\n数字和: "))<br/>&nbsp; (princ totn)<br/>&nbsp; (princ)<br/>)<br/>

rainbow2000 发表于 2007-11-16 19:33:00

[原创]

有高手能帮个忙，写个程序吗？
页: [1]
查看完整版本: [求助]统计选择区域内所有有数值的和。