求助怎么让任意两圆弧两两相切？

月下闲人

求助怎么让任意两圆弧两两相切？下面是示例图片和附件

xyp1964

你有种再说一遍

圆是不是相切,取决于两个圆心距离-其中一个半径=另一个半径

寒潮大冬瓜

xyp1964 发表于 2024-12-30 23:08

很好→很棒！很好~很棒！！很好……很棒！！！

月下闲人

xyp1964 发表于 2024-12-30 23:08

院长这个厉害  就是这效果

xyp1964

1. (defun c:tt ()
   
2.   "两两圆弧相切"
   
3.   (xyp-Start)
   
4.   (while (and (setq s1 (car (entsel "\n选择圆弧A: ")))
   
5.            (setq s2 (car (entsel "\n选择圆弧B: ")))
   
6.            (not (equal s1 s2))
   
7.       )
   
8.     (setq s0(entlast))
   
9.     (xyp-Copy s1)
   
10.     (setq s1(entlast))
    
11.     (xyp-Copy s2)
    
12.     (setq s2(entlast))
    
13.     (setq p1  (vlax-curve-getStartPoint s1)
    
14.           pc1 (xyp-DXF 10 s1)
    
15.           p2  (vlax-curve-getStartPoint s2)
    
16.           pc2 (xyp-DXF 10 s2)
    
17.           s2  (xyp-Move s2 p2 p1)
    
18.           r1  (xyp-r2d (- (angle p1 pc1) (angle pc2 p2)))
    
19.           s2  (xyp-Rotate s2 p1 r1)
    
20.     )
    
21.     (setq ss (xyp-SsEntnext s0))
    
22.     (xyp-GrreadMove ss p1)
    
23.   )
    
24.   (xyp-End)
    
25. )

(defun c:tt ()<br />   "两两圆弧相切"<br />   (xyp-Start)<br />   (while (and (setq s1 (car (entsel "\n选择圆弧A: ")))<br />            (setq s2 (car (entsel "\n选择圆弧B: ")))<br />            (not (equal s1 s2))<br />       )<br />     (setq s0(entlast))<br />     (xyp-Copy s1)<br />     (setq s1(entlast))<br />     (xyp-Copy s2)<br />     (setq s2(entlast))<br />     (setq p1  (vlax-curve-getStartPoint s1)<br />           pc1 (xyp-DXF 10 s1)<br />           p2  (vlax-curve-getStartPoint s2)<br />           pc2 (xyp-DXF 10 s2)<br />           s2  (xyp-Move s2 p2 p1)<br />           r1  (xyp-r2d (- (angle p1 pc1) (angle pc2 p2)))<br />           s2  (xyp-Rotate s2 p1 r1)<br />     )<br />     (setq ss (xyp-SsEntnext s0))<br />     (xyp-GrreadMove ss p1)<br />   )<br />   (xyp-End)<br /> )

月下闲人

xyp1964 发表于 2025-1-1 00:47

十分感谢院长提供源码元旦快乐