求 autolisp 圆外一点画两条切线 并且修剪切线间的一段圆弧~

取个长点勒名字

求 autolisp 圆外一点画两条切线 并且修剪切线间的一段圆弧~

Andyhon

若发帖者的目的仅仅是为求编写程序，则请到论坛“编程申请”板块发帖
Ref:
http://bbs.mjtd.com/thread-100603-1-1.html

取个长点勒名字

Andyhon 发表于 2015-9-16 08:13
若发帖者的目的仅仅是为求编写程序，则请到论坛“编程申请”板块发帖
Ref:
http://bbs.mjtd.com/thread-1 ...

我是需求解决办法·通过几何计算的点得到的线不准确·

lijiao

已知条件：已知圆、园外一已知点
算法：1、以已知圆的圆心和已知点的连线为直径生成圆
         2、求已知圆和生成圆的交点（即切点）
         3、连接交点和已知点

Andyhon

...通过几何计算的点得到的线不准确...

请上图 指明准确点该是如何方合需求

xyp1964

2. ;; tt(圆外点画两条切线且修剪切线间圆弧)
   
3. (defun c:tt ()
   
4.   (setvar "osmode" 0)
   
5.   (setq s1 (car (entsel "\n选择圆: "))
   
6.         p1 (getpoint "\n基点<退出>: ")
   
7.         p0 (cdr (assoc 10 (entget s1)))
   
8.         rr (cdr (assoc 40 (entget s1)))
   
9.         r1 (angle p1 p0)
   
10.         p2 (polar p0 (+ r1 (* pi 0.5)) rr)
    
11.         p3 (polar p0 (- r1 (* pi 0.5)) rr)
    
12.         p4 (polar p0 (+ r1 pi) rr)
    
13.   )
    
14.   (command "line" p1 "tan" p2 "")
    
15.   (setq s2 (entlast))
    
16.   (command "line" p1 "tan" p3 "")
    
17.   (setq s3 (entlast))
    
18.   (command "trim"  "" (list s1 p4) "")
    
19.   (princ)
    
20. )

;; tt(圆外点画两条切线且修剪切线间圆弧)<br /> (defun c:tt ()<br />   (setvar "osmode" 0)<br />   (setq s1 (car (entsel "\n选择圆: "))<br />         p1 (getpoint "\n基点<退出>: ")<br />         p0 (cdr (assoc 10 (entget s1)))<br />         rr (cdr (assoc 40 (entget s1)))<br />         r1 (angle p1 p0)<br />         p2 (polar p0 (+ r1 (* pi 0.5)) rr)<br />         p3 (polar p0 (- r1 (* pi 0.5)) rr)<br />         p4 (polar p0 (+ r1 pi) rr)<br />   )<br />   (command "line" p1 "tan" p2 "")<br />   (setq s2 (entlast))<br />   (command "line" p1 "tan" p3 "")<br />   (setq s3 (entlast))<br />   (command "trim"  "" (list s1 p4) "")<br />   (princ)<br /> )

xyp1964

2. ;; tt(圆外点画两条切线且修剪切线间圆弧)
   
3. (defun c:tt ()
   
4.   (setq en (entsel "\n选择圆: "))
   
5.   (setq p1 (getpoint "\n基点<退出>: "))
   
6.   (command "line" "non" p1 "tan" (cadr en) "")
   
7.   (command "mirror" (setq s1 (entlast)) "" "non" p1 "cen" (cadr en) "")
   
8.   (command "trim" s1 (entlast) "" (list (car en) p1) "")
   
9. )

;; tt(圆外点画两条切线且修剪切线间圆弧)<br /> (defun c:tt ()<br />   (setq en (entsel "\n选择圆: "))<br />   (setq p1 (getpoint "\n基点<退出>: "))<br />   (command "line" "non" p1 "tan" (cadr en) "")<br />   (command "mirror" (setq s1 (entlast)) "" "non" p1 "cen" (cadr en) "")<br />   (command "trim" s1 (entlast) "" (list (car en) p1) "")<br /> )

取个长点勒名字

感谢大家！！半径与圆外点到圆心的连线 公式列错了··多算了一次。

1. (defun c:qq ()
   
2.         (setq o (getpoint "\n点取圆心点"))
   
3.         (setq r (getdist "\n输入圆半径"))
   
4.         ;(command "circle" o r "")
   
5.         (setq m (getpoint "\n点取圆外一点"))
   
6.                        
   
7.         (setq om (distance o m));获得底边右侧点与圆心距离
   
8.         (setq ang1 (angle o m));获得om角度
   
9.         (setq cosa (/ r om));获得余切值
   
10.         (setq jd1  (atan (/ (sqrt (- 1 (* cosa cosa))) cosa)));获得半径与om的弧度
    
11.         (setq ang (+ ang1  jd1 ))
    
12.         (setq qd1 (polar o ang r));获得切点1坐标
    
13.         ;切点2获得
    
14.         (setq ang2 (- ang1 jd1))
    
15.         (setq qd2 (polar o ang2 r))
    
16.         (command "line" m qd1 "")
    
17.   (command "line" m qd2 "")
    
18.         (command "arc" qd1 "c" o qd2 "")
    
19.        
    
20. (princ)       
    
21. )

(defun c:qq ()<br />         (setq o (getpoint "\n点取圆心点"))<br />         (setq r (getdist "\n输入圆半径"))<br />         ;(command "circle" o r "")<br />         (setq m (getpoint "\n点取圆外一点"))<br />                         <br />         (setq om (distance o m));获得底边右侧点与圆心距离<br />         (setq ang1 (angle o m));获得om角度<br />         (setq cosa (/ r om));获得余切值<br />         (setq jd1  (atan (/ (sqrt (- 1 (* cosa cosa))) cosa)));获得半径与om的弧度<br />         (setq ang (+ ang1  jd1 ))<br />         (setq qd1 (polar o ang r));获得切点1坐标<br />         ;切点2获得<br />         (setq ang2 (- ang1 jd1))<br />         (setq qd2 (polar o ang2 r))<br />         (command "line" m qd1 "")<br />   (command "line" m qd2 "")<br />         (command "arc" qd1 "c" o qd2 "")<br />         <br /> (princ)        <br /> )

start4444