求各位高手帮忙编写一个area图层所有数字计算求和的lisp

wx_i500B4dE · 发表于 2020-5-18 16:33:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

1、具体描述：一个cad文件，里面只有AREA图层的是代表面积，分全面积和半面积，如图红色字体为AREA图层面积的数字：如室外梯计算半面积的10.75/2，01面积78.95，01面积744.572、想实现的功能：就是选中area图层的数字如下图有3个数字位于area图层，相加，如果是计算半面积的数字如10.75/2就直接用10.75除以2（保留两位小数），用结果再和其他area图层的数字相加。
10.75/2+78.95+744.57=828.85
然后把结果打字到屏幕上。

Lispboy · 发表于 2020-5-18 18:24:21

看看这个， http://bbs.xdcad.net/thread-725874-1-1.html

试试事先用颜色区分下房间，然后自动给你算面积了，你那些数字都不用自己算和画出来了

wx_i500B4dE · 发表于 2020-5-18 21:14:36

Lispboy 发表于 2020-5-18 18:24
看看这个， http://bbs.xdcad.net/thread-725874-1-1.html

试试事先用颜色区分下房间，然后自动给你算面 ...

谢谢大大！你的程序功能非常强大，但是因为我（必须得）用的一款软件自动标识的面积层是area，所以希望有一个命令能选中area图层的面积数据，然后求和。因为我是初学的，还不得其门。

Lispboy · 发表于 2020-5-19 01:09:43

wx_i500B4dE 发表于 2020-5-18 21:14
谢谢大大！你的程序功能非常强大，但是因为我（必须得）用的一款软件自动标识的面积层是area，所以希望有 ...

* 和 / 都能算

(defun c:tt ()
(if (not
(and (xdrx-initssget "\n选择area层的数字文字<全选>:")
(setq ss (xdrx-ssget '((0 . "text") (8 . "area"))))
)
)
(setq ss (ssget "x" '((0 . "text") (8 . "area"))))
)
(progn (setq sum 0.0)
(mapcar '(lambda (x)
(if (setq num (xd::string:isnum
(xdrx-getpropertyvalue x "textstring")
)
)
(setq sum (+ sum (atof (car num))))
(progn (if (setq num
(xdrx-string-regexps
"(^(([ |　]+)?(-|+)?[0-9]+(\\.[0-9]*)?([ |　]+)?)[/|*]((([ |　]+)?(-|+)?[0-9]+(\\.[0-9]*)?([ |　]+)?$"
#textstring
)
)
(progn (setq sum
(+ sum
(eval
(cons
(read
(car
(xdrx-string-regexps "[*|/]" (car num))
)
)
(mapcar
'atof
(xdrx-string-regexps "[^/*]+" (car num))
)
)
)
)
)
)
)
)
)
)
(xdrx-pickset->ents ss)
)
(xdrx-prompt "\nArea层数字总面积为:" sum)
)
(princ)
)

(defun c:tt () 
  (if (not 
        (and (xdrx-initssget "\n选择area层的数字文字<全选>:") 
             (setq ss (xdrx-ssget '((0 . "text") (8 . "area")))) 
        ) 
      ) 
    (setq ss (ssget "x" '((0 . "text") (8 . "area")))) 
  ) 
  (progn (setq sum 0.0) 
         (mapcar '(lambda (x) 
                    (if        (setq num (xd::string:isnum 
                                    (xdrx-getpropertyvalue x "textstring") 
                                  ) 
                        ) 
                      (setq sum (+ sum (atof (car num)))) 
                      (progn (if (setq num 
                                        (xdrx-string-regexps 
                                          "(^(([ |　]+)?(-|+)?[0-9]+(\\.[0-9]*)?([ |　]+)?)[/|*]((([ |　]+)?(-|+)?[0-9]+(\\.[0-9]*)?([ |　]+)?$" 
                                          #textstring 
                                        ) 
                                 ) 
                               (progn (setq sum 
                                             (+        sum 
                                                (eval 
                                                  (cons 
                                                    (read 
                                                      (car 
                                                        (xdrx-string-regexps "[*|/]" (car num)) 
                                                      ) 
                                                    ) 
                                                    (mapcar 
                                                      'atof 
                                                      (xdrx-string-regexps "[^/*]+" (car num)) 
                                                    ) 
                                                  ) 
                                                ) 
                                             ) 
                                      ) 
                               ) 
                             ) 
                      ) 
                    ) 
                  ) 
                 (xdrx-pickset->ents ss) 
         ) 
         (xdrx-prompt "\nArea层数字总面积为:" sum) 
  ) 
  (princ) 
)

wx_i500B4dE · 发表于 2020-5-19 09:58:47

运行之后选择不中area图层的文字，然后炸开之后才能选中，估计这个是单行文字和多行文字的区别，我们公司软件生成的默认是多行文字所以才选不中，请问下大大这个怎么修改成选中多行文字？但是这个算法真的很赞，按一下空格就出来了，在图形复杂的时候省去了很多手工检查的时间，非常感谢！！

newer · 发表于 2020-5-19 10:14:44

wx_i500B4dE 发表于 2020-5-19 09:58
运行之后选择不中area图层的文字，然后炸开之后才能选中，估计这个是单行文字和多行文字的区别，我们公司软 ...

把代码的 (setq ss (xdrx-ssget '((0 . "text") (8 . "area"))))

改成 (setq ss (xdrx-ssget '((0 . "*text") (8 . "area"))))

newer · 发表于 2020-5-19 10:15:42

wx_i500B4dE 发表于 2020-5-19 09:58
运行之后选择不中area图层的文字，然后炸开之后才能选中，估计这个是单行文字和多行文字的区别，我们公司软 ...

更通用的去看这个 http://bbs.xdcad.net/thread-725876-1-1.html
乘法也能算

wx_i500B4dE · 发表于 2020-5-20 08:36:24

太谢谢两位高手了，现在问题已经解决了，非常感谢！！！！

XDSoft · 发表于 2020-5-20 16:43:02

wx_i500B4dE 发表于 2020-5-20 08:36
太谢谢两位高手了，现在问题已经解决了，非常感谢！！！！

解决了，请编辑下主题，前面粘贴上【已解决】吧

wx_i500B4dE · 发表于 2020-6-6 11:25:54

不好意思，我不会编辑主题！！麻烦您帮忙编辑一下

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

[编程申请] 求各位高手帮忙编写一个area图层所有数字计算求和的lisp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

浏览过的版块