API应用 Pline中直线与弧段倒角算法

st788796

首先本程序是基于图示Pline方向, r = 6.0 倒角成立的基础上，仅提供算法上的参考，不作为通用程序
由此也可以判断是否存在指定的倒角，
1 切点分别不超出直线段和弧线段
2 中间三角形成立
不知道Autodesk为什么不加入 Fillet！

1. (defun c:tt (/ e e1 r pl arcseg lnseg dis d p p1 p2 p3 pcen sp ep)
   
2.   (if (and (setq e (entsel "\n选择弧线段: "))
   
3.            (setq e1 (entsel "\n选择直线段: "))
   
4.            (setq r (getdist "\n半径: "))
   
5.       )
   
6.     (progn
   
7.       (setq pl            (car e)
   
8.             arcseg  (fix (apply 'xdrx_curve_getparamatpoint e))
   
9.             lnseg   (fix (apply 'xdrx_curve_getparamatpoint e1))
   
10.             arcinfo (xdrx_polyline_getarcsegat pl arcSeg) ;_(逆顺时针 圆心 半径 起始角 终止角)
    
11.             lninfo  (xdrx_polyline_getlinesegat pl lnseg) ;_(起点 终点)
    
12.             pcen    (cadr arcinfo)
    
13.             sp            (car lninfo)
    
14.             ep            (cadr lninfo)
    
15.             an (angle sp ep)
    
16.             dis            (abs (xdrx_point_dist2line pcen sp ep))
    
17.             d            (sqrt (- (expt (+ (caddr arcinfo) r) 2) (expt (- dis r) 2)))
    
18.             p            (inters
    
19.                       pcen
    
20.                       (polar pcen (+ an (* pi 0.5)) r)
    
21.                       sp
    
22.                       ep
    
23.                       nil
    
24.                     );_圆心在直线上投影点
    
25.             p1            (polar p (+ an pi) d);_直线段切点
    
26.             p2            (polar p1 (- an (* 0.5 pi)) r);_center
    
27.             p3            (xdrx_curve_getinters (list p1 pcen) pl);_弧上起点
    
28.       )
    
29.       (xdrx_circle_make p2 r)
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )
    

(defun c:tt (/ e e1 r pl arcseg lnseg dis d p p1 p2 p3 pcen sp ep)<br />   (if (and (setq e (entsel "\n选择弧线段: "))<br />            (setq e1 (entsel "\n选择直线段: "))<br />            (setq r (getdist "\n半径: "))<br />       )<br />     (progn<br />       (setq pl            (car e)<br />             arcseg  (fix (apply 'xdrx_curve_getparamatpoint e))<br />             lnseg   (fix (apply 'xdrx_curve_getparamatpoint e1))<br />             arcinfo (xdrx_polyline_getarcsegat pl arcSeg) ;_(逆顺时针 圆心 半径 起始角 终止角)<br />             lninfo  (xdrx_polyline_getlinesegat pl lnseg) ;_(起点 终点)<br />             pcen    (cadr arcinfo)<br />             sp            (car lninfo)<br />             ep            (cadr lninfo)<br />             an (angle sp ep)<br />             dis            (abs (xdrx_point_dist2line pcen sp ep))<br />             d            (sqrt (- (expt (+ (caddr arcinfo) r) 2) (expt (- dis r) 2)))<br />             p            (inters<br />                       pcen<br />                       (polar pcen (+ an (* pi 0.5)) r)<br />                       sp<br />                       ep<br />                       nil<br />                     );_圆心在直线上投影点<br />             p1            (polar p (+ an pi) d);_直线段切点<br />             p2            (polar p1 (- an (* 0.5 pi)) r);_center<br />             p3            (xdrx_curve_getinters (list p1 pcen) pl);_弧上起点<br />       )<br />       (xdrx_circle_make p2 r)<br />     )<br />   )<br />   (princ)<br /> )<br />

st788796

另外一种情况

st788796

外尖角处弧与直线关系，直线和端点与圆心连线夹角小于 90 度时就产生自相交

小妖妖

这是想干嘛啊？

st788796

看来没人对这个感兴趣

waitinhope

看了会，没有怎么看懂！！！