yamjqq 发表于 2015-6-2 15:34:53

矩形计算式累加还差一步请老师们帮忙

目前计算式 分列，如2.100*2.500*1
                              5.100*2.200*1
                              3.400*3.500*1
我需要的是计算式：2.100*2.500*1+5.100*2.200*1+3.400*3.500*1

自贡黄明儒 发表于 2015-6-3 08:07:44

本帖最后由 自贡黄明儒 于 2015-6-3 08:10 编辑

(defun C:W1 (/E N SS STR STR1)
(setq str1 "0")
(setq ss (ssget '((0 . "*TEXT"))))
(repeat (setq n (sslength ss))
    (setq e (ssname ss (setq n (1- n))))
    (setq str (cdr (assoc 1 (entget e))))
    (setq str1 (strcat str1 "+" str))
)
;;(MyCal str1)
(MyCal str1)
)

xfjiamy 发表于 2017-11-8 23:16:59

谢谢分享源码
页: [1]
查看完整版本: 矩形计算式累加还差一步请老师们帮忙