求助：已知起点、端点、切线，如何画出这个圆？

vbnewer

434939575

2. ;;;已知两点。与切线。画圆
   
3. ;;;连接两点划一直线，从直线中点划一与直线垂直的直线，
   
4. ;;;这条直线与圆弧切线的交点就是圆弧与那条直线的切点，
   
5. ;;;然后呢三点划弧就可以了
   
6. (defun c:tt()
   
7. (vl-load-com)
   
8. (setq pta (getpoint"点取第一点"))
   
9.   (setq ptb(getpoint"点取第二点"))
   
10.   (setq s0(car(entsel"选取相切的直线")))
    
11.   (setq mid(mapcar '(lambda (z zz)(/ (+ z zz)2) )
    
12.          pta  ptb )
    
13.         ) ;中点
    
14.          
    
15. (setq near_pt<(vlax-curve-getClosestPointTo s0 mid T))
    
16. 
    
17. (command "circle" "3p"  pta ptb   near_pt<"")
    
18.   
    
19.   )

;;;已知两点。与切线。画圆<br /> ;;;连接两点划一直线，从直线中点划一与直线垂直的直线，<br /> ;;;这条直线与圆弧切线的交点就是圆弧与那条直线的切点，<br /> ;;;然后呢三点划弧就可以了<br /> (defun c:tt()<br /> (vl-load-com)<br /> (setq pta (getpoint"点取第一点"))<br />   (setq ptb(getpoint"点取第二点"))<br />   (setq s0(car(entsel"选取相切的直线")))<br />   (setq mid(mapcar '(lambda (z zz)(/ (+ z zz)2) )<br />          pta  ptb )<br />         ) ;中点<br />          <br /> (setq near_pt<(vlax-curve-getClosestPointTo s0 mid T))<br /> <br /> (command "circle" "3p"  pta ptb   near_pt<"")<br />   <br />   )

vbnewer

434939575 发表于 2015-3-17 19:15

这个方法画出来的不对，请看我一楼的示意图，已知两点A、B的连线与已知直线C并不平行，所以这种方法画出来的圆与已知只想并不相切。

USER2128

2. (defun c:tt()
   
3.   (vl-load-com)
   
4.   (setq pta (getpoint "\n点取第一点: "))
   
5.   (setq ptb (getpoint "\n点取第二点: "))
   
6.   (princ "\n选取与圆相切的直线: ")
   
7.   (command "_.circle" "_3p" "_non" pta "_non" ptb "_tan" pause)
   
8.   )

(defun c:tt()<br />   (vl-load-com)<br />   (setq pta (getpoint "\n点取第一点: "))<br />   (setq ptb (getpoint "\n点取第二点: "))<br />   (princ "\n选取与圆相切的直线: ")<br />   (command "_.circle" "_3p" "_non" pta "_non" ptb "_tan" pause)<br />   )

vbnewer

USER2128 发表于 2015-3-18 08:20

确实可以，谢谢了。