;对数字文本进行求和
(defun sum()
(setq s
(ssget '((0 . "TEXT") (1 . "~*[~`--9]*")))
)
(setq sl
(sslength s)
)
(setq st 0)
(setq j 0)
(while (< st sl)
(setq e(ssname s st))
(setq st(1+ st))
(setq i
(atoi (cdr (assoc 1 (entget e))))
)
(setq j(+ j i))
)
(princ "求和结果为:")
(eval j)
)
autolisp对数字文本进行求和
发表评论
热门文章
-
OneNice简洁大方且开源免费的WordPress主题 7743 阅读
-
Bootstrap4显示和隐藏元素 2853 阅读
-
mysql批量去除重复记录 2242 阅读
-
-
OneNice Pro简洁且强大的WORDPRESS主题 1429 阅读
-
BT宝塔中安装nodejs 1031 阅读
-
github无法加载或不显示图片问题 1016 阅读
-
Javascipt自定义哈希表 966 阅读