画相切圆弧

xyp1964

情形①作图法相对比较简单；
情形②和情形③条件多余。

sunny_8848

夏生生 发表于 2025-4-18 11:59
用画图法画的，容易出现视口问题，也就是图元在视口外的时候捕捉不到点
（以下为正确示例）

谢谢帮助，终于完美解决了

夏生生

原贴更新了，用算点的方法，增加了记忆功能，用最新更新的这个吧

sunny_8848

好的，谢谢您

sunny_8848

xyp1964 发表于 2025-4-18 18:33
情形①作图法相对比较简单；
情形②和情形③条件多余。

厉害，可惜看不到源程序

xyp1964

sunny_8848 发表于 2025-4-19 12:59
厉害，可惜看不到源程序

1. ;; 非源码
   
2. (defun abc1 (p0 r1 d1 d2 / p01 p1 p11 pm pt1 pt1a pt2 pt2a s1 s2 s3 s4 s5 s6)
   
3.   ;; 4段圆弧
   
4.   ;; (abc1 (getpoint) 125 127 133)
   
5.   (setq p0  (xyp-Pt2X p0 (* d1 -0.5))
   
6.         s1  (xyp-CircleCr p0 r1)
   
7.         p1  (xyp-Pt2X p0 d1)
   
8.         s2  (xyp-CircleCr p1 r1)
   
9.         p01 (xyp-Pt2Y p0 r1)
   
10.         p11 (xyp-Pt2Y p1 r1)
    
11.         s3  (xyp-Line (xyp-Pt2Y p0 d2) (xyp-Pt2Y p1 d2))
    
12.         pm  (xyp-CurveMidPoint s3)
    
13.   )
    
14.   (command "circle" "3p" "tan" p01 "tan" p11 "tan" pm)
    
15.   (setq s4  (entlast)
    
16.         pt1 (car (xyp-Inters s1 s4 0))
    
17.         pt2 (car (xyp-Inters s2 s4 0))
    
18.         s5  (xyp-Arc-3Pt pt1 pm pt2)
    
19.   )
    
20.   (xyp-Mirror s5 p0 p1 Nil)
    
21.   (setq s6   (entlast)
    
22.         pt1a (xyp-Pt2X p0 (- r1))
    
23.         pt2a (xyp-Pt2X p1 r1)
    
24.         s7   (xyp-Arc-3Pt pt1 pt1a (vlax-curve-getStartPoint s6))
    
25.         s8   (xyp-Arc-3Pt pt2 pt2a (vlax-curve-getEndPoint s6))
    
26.   )
    
27.   (command "erase" s1 s2 s3 s4 "")
    
28.   (princ)
    
29. )

;; 非源码<br /> (defun abc1 (p0 r1 d1 d2 / p01 p1 p11 pm pt1 pt1a pt2 pt2a s1 s2 s3 s4 s5 s6)<br />   ;; 4段圆弧<br />   ;; (abc1 (getpoint) 125 127 133)<br />   (setq p0  (xyp-Pt2X p0 (* d1 -0.5))<br />         s1  (xyp-CircleCr p0 r1)<br />         p1  (xyp-Pt2X p0 d1)<br />         s2  (xyp-CircleCr p1 r1)<br />         p01 (xyp-Pt2Y p0 r1)<br />         p11 (xyp-Pt2Y p1 r1)<br />         s3  (xyp-Line (xyp-Pt2Y p0 d2) (xyp-Pt2Y p1 d2))<br />         pm  (xyp-CurveMidPoint s3)<br />   )<br />   (command "circle" "3p" "tan" p01 "tan" p11 "tan" pm)<br />   (setq s4  (entlast)<br />         pt1 (car (xyp-Inters s1 s4 0))<br />         pt2 (car (xyp-Inters s2 s4 0))<br />         s5  (xyp-Arc-3Pt pt1 pm pt2)<br />   )<br />   (xyp-Mirror s5 p0 p1 Nil)<br />   (setq s6   (entlast)<br />         pt1a (xyp-Pt2X p0 (- r1))<br />         pt2a (xyp-Pt2X p1 r1)<br />         s7   (xyp-Arc-3Pt pt1 pt1a (vlax-curve-getStartPoint s6))<br />         s8   (xyp-Arc-3Pt pt2 pt2a (vlax-curve-getEndPoint s6))<br />   )<br />   (command "erase" s1 s2 s3 s4 "")<br />   (princ)<br /> )

sunny_8848

xyp1964 发表于 2025-4-19 21:04

用不了，有独秘笈?