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

st788796 · 发表于 2013-12-13 01:25:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2013-12-13 07:08 编辑

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

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

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

st788796 · 发表于 2013-12-13 01:42:19

本帖最后由 st788796 于 2013-12-13 01:45 编辑

另外一种情况

st788796 · 发表于 2013-12-13 08:18:59

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

小妖妖 · 发表于 2013-12-13 14:30:29

这是想干嘛啊？

st788796 · 发表于 2013-12-13 15:19:46

看来没人对这个感兴趣

waitinhope · 发表于 2013-12-13 21:27:48

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

账号		自动登录	找回密码
密码			立即注册

[研讨] API应用 Pline中直线与弧段倒角算法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。