如图求标注两个多段线的面积，并标注两个面积的差

664571221

如图求标注两个多段线的面积，并标注两个面积的差

ZZXXQQ

1. ;标注面积和面积差 ZZXXQQ 2020-8-12
   
2. (defun c:tt ()
   
3. (if (and (princ "\n选择封闭线条: ")
   
4.       (setq ss (ssget '((-4 . "<OR") (0 . "CIRCLE")
   
5.                          (-4 . "<AND") (0 . "*POLYLINE") (70 . 1) (-4 . "AND>")
   
6.                         (-4 . "OR>"))))
   
7.       (= (sslength ss) 2)) (progn
   
8.   (setq en1 (ssname ss 0)
   
9.         en2 (ssname ss 1))
   
10.   (command "_.AREA" "o" en1)
    
11.   (setq a1 (getvar "AREA"))
    
12.   (command "_.AREA" "o" en2)
    
13.   (setq a2 (getvar "AREA"))
    
14.   (if (> a2 a1) (setq tmp a2 a2 a1 a1 tmp))
    
15.   (setq a3 (- a1 a2))
    
16.   (setq txt (strcat (rtos (/ a1 1e6) 2 3) "-" (rtos (/ a2 1e6) 2 3) "=" (rtos (/ a3 1e6) 2 3)))
    
17.   (command "_.TEXT" "C" (getpoint) (getvar "DIMTXT") "" txt)
    
18. ))
    
19. (princ)
    
20. )
    

;标注面积和面积差 ZZXXQQ 2020-8-12<br /> (defun c:tt ()<br /> (if (and (princ "\n选择封闭线条: ")<br />       (setq ss (ssget '((-4 . "<OR") (0 . "CIRCLE")<br />                          (-4 . "<AND") (0 . "*POLYLINE") (70 . 1) (-4 . "AND>")<br />                         (-4 . "OR>"))))<br />       (= (sslength ss) 2)) (progn<br />   (setq en1 (ssname ss 0)<br />         en2 (ssname ss 1))<br />   (command "_.AREA" "o" en1)<br />   (setq a1 (getvar "AREA"))<br />   (command "_.AREA" "o" en2)<br />   (setq a2 (getvar "AREA"))<br />   (if (> a2 a1) (setq tmp a2 a2 a1 a1 tmp))<br />   (setq a3 (- a1 a2))<br />   (setq txt (strcat (rtos (/ a1 1e6) 2 3) "-" (rtos (/ a2 1e6) 2 3) "=" (rtos (/ a3 1e6) 2 3)))<br />   (command "_.TEXT" "C" (getpoint) (getvar "DIMTXT") "" txt)<br /> ))<br /> (princ)<br /> )<br />

664571221

ZZXXQQ 发表于 2020-8-12 09:14

Z大你好用米作为单位，保留3位小数

664571221

ZZXXQQ 发表于 2020-8-12 09:14

Z大这个好像不对了，刚才那个还能把文字写到cad，这个怎么不行了

664571221

ZZXXQQ 发表于 2020-8-12 09:14

可以了谢谢Z大，刚才不知道为啥不可以

paulpipi

好程序，正需要，谢谢！