两个闭合多线段相交，怎么知道它相交了多少

nameld001

两个闭合多线段相交，怎么知道它相交了多少如图

Andyhon

所谓 多少 指的是面积 or ??  !?

nameld001

是的，是面积。

Gu_xl

回复 nameld001 的帖子

没有容错处理

1. (defun c:tt(/ ss en1 en2 s1 s2 s3 endent)
   
2.   (if (and
   
3.   (setq en1 (car (entsel "\n第一个多段线：")))
   
4.   (setq en2 (car (entsel "\n第二个多段线：")))
   
5.   )
   
6.     (progn
   
7.       (command "undo" "be")
   
8.       (setq s1 (vla-get-area (vlax-ename->vla-object en1))
   
9.             s2 (vla-get-area (vlax-ename->vla-object en2))
   
10.             )
    
11.       (setq endent (entlast))
    
12.       (command "region" en1 en2 "")
    
13.       (setq ss (ssadd))
    
14.       (while (setq endent (entnext endent))
    
15.         (ssadd endent ss)
    
16.         )
    
17.       (setq endent (entlast))
    
18.       (command "intersect" ss "")
    
19.       (if (not (equal endent (entlast)))
    
20.         (progn
    
21.           (setq s3 (vla-get-area (vlax-ename->vla-object (entlast))))
    
22.           (princ (strcat "\n交集占第一个多段线" (rtos (* 100 (/ s3 s1)) 2 2) "%"))
    
23.           (princ (strcat "\n交集占第二个多段线" (rtos (* 100 (/ s3 s2)) 2 2) "%"))
    
24.           )
    
25.         )
    
26.       (command "undo" "e")
    
27.       (command "u")
    
28.       )
    
29.     )
    
30.   (princ)
    
31.   )
    

(defun c:tt(/ ss en1 en2 s1 s2 s3 endent)<br />   (if (and<br />   (setq en1 (car (entsel "\n第一个多段线：")))<br />   (setq en2 (car (entsel "\n第二个多段线：")))<br />   )<br />     (progn<br />       (command "undo" "be")<br />       (setq s1 (vla-get-area (vlax-ename->vla-object en1))<br />             s2 (vla-get-area (vlax-ename->vla-object en2))<br />             )<br />       (setq endent (entlast))<br />       (command "region" en1 en2 "")<br />       (setq ss (ssadd))<br />       (while (setq endent (entnext endent))<br />         (ssadd endent ss)<br />         )<br />       (setq endent (entlast))<br />       (command "intersect" ss "")<br />       (if (not (equal endent (entlast)))<br />         (progn<br />           (setq s3 (vla-get-area (vlax-ename->vla-object (entlast))))<br />           (princ (strcat "\n交集占第一个多段线" (rtos (* 100 (/ s3 s1)) 2 2) "%"))<br />           (princ (strcat "\n交集占第二个多段线" (rtos (* 100 (/ s3 s2)) 2 2) "%"))<br />           )<br />         )<br />       (command "undo" "e")<br />       (command "u")<br />       )<br />     )<br />   (princ)<br />   )<br />

nameld001

谢谢版主。

ltrliu

新人学习中