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

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

目前计算式分列，如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

本帖最后由自贡黄明儒于 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

谢谢分享源码

账号		自动登录	找回密码
密码			注册

[已解答] 矩形计算式累加还差一步请老师们帮忙

本帖子中包含更多资源