CAD带文字的数字求和。

发布网友发布时间：2022-04-22 00:09

共3个回答

热心网友时间：2023-07-30 16:37

中科检测是化妆品检测备案服务机构，可开展化妆品风险服务检测，具备开展特殊化妆品备案检测资质，符合《化妆品注册和备案检验工作规范》和《中华人民共和国计量法》关于化妆品检验资质要求，是经国家药品监督管理部门确认的可承担化妆品注册和备案检验工作的服务机构。

中科检测是国家药监局认可的化妆品注册和备案检验机构，在化妆品检测领域，具备CMA、CNAS等资质，多次承担国家级、省级*主管部门的监督抽检和风险监测任务，并为京东、天猫等电商平台提供质量监督服务。

中科检测可开展风险物质测试、人体功效评价、毒理实验、产品型式检验、安全评估等一站式检测服务项目。

热心网友时间：2023-07-30 16:37

(print "文本数字求和(型如:钉23,钉23.12,23.12,钉,多行文字先炸开,不支持负数),命令:txtsum")
(defun c:txtsum(/ all endno aa bb cc wz tha tsum i)
(if (null xzz) (setq xzz 0))
(setq ALL (ssget(list (cons 0 "text"))))
(if all (SETQ nn (SSLENGTH ALL)))
(setq endno 0)
(setq tsum 0 i 0)
(WHILE (and (< endno nn) all)
(setq aa (ssname all endno))
(setq bb (entget aa))
(setq cc(cdr(assoc 1 bb)))
(setq wz(rdata cc))
(setq tha(substr cc (+ wz 1) ( - (strlen cc) wz -1)))
(if (= tha "") (setq tha "0"))
(setq tsum(+ tsum (atof tha)))
(setq i(1+ i))
(print (strcat (itoa i) ":文本 <" cc ">---数字 <" tha ">"))
(setq endno (+ endno 1))
)
(print (strcat "共" (itoa i) "个文本，和=" (rtos tsum)))
(print)
)
;;;
(defun rdata(str / len i aa)
(if (> (strlen str) 0)
(progn
(setq i (strlen str))
(setq aa(substr str (strlen str) 1))
(while (and (or (and (>= aa "0") (<= aa "9"))
(= aa ".")
)
(>= i 1)
)
(setq i(1- i))
(if (>= i 1) (setq aa(substr str i 1)))
)
)
)
(setq i i)
)

热心网友时间：2023-07-30 16:38

专门有“CAD带文字的数字求和程序”，此程序演示如下：