已知 圆弧的半径 起始角 终止角 圆心坐标 求凸度（正负）

slw7310

如题：求凸度值 及圆弧的绘制方向是“顺时针”— ，还是“逆时针“+。请各位大侠帮忙啊！！

yjtdkj

1. ;取圆弧凸度-------------yjtdkj by 2021.06
   
2. (defun c:tt ()
   
3.   (progn
   
4.   (defun yj-dxf (key ename) (cdr (assoc key (entget ename))))
   
5.   (defun mid (p1 p2)
   
6.       (mapcar (function (lambda (e1 e2) (* (+ e1 e2) 0.5))) p1 p2)
   
7.     )
   
8.     )
   
9.   (setq en (car (entsel)))
   
10.   (setq  
    
11.   r     (dxf 40 en)
    
12.   pt1   (vlax-curve-getstartPoint en)
    
13.   pt2   (vlax-curve-getEndPoint en)
    
14.   ptm   (mid pt1 pt2)
    
15.   len   (vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en))
    
16.   cpm   (vlax-curve-getpointAtdist en (/ len 2))
    
17.   dis   (distance pt1 pt2)   
    
18.   h     (distance ptm cpm)
    
19.   )
    
20.   (setq tu (/ h (* dis 0.5)))
    
21.   (setq
    
22.     a (-(cadr pt2) (cadr pt1))
    
23.     b (-(car pt1)(car pt2))
    
24.     c (-(* -1 a (car pt1))(* b (cadr pt1)))
    
25.     d1 (-(* -1 a (car cpm))(* b (cadr cpm)))
    
26.   )
    
27.   (cond
    
28.     ((= d1 c)
    
29.       (* tu 0)
    
30.   )
    
31.   ((> d1 c)
    
32.       (* tu -1)
    
33.   )
    
34.   ((< d1 c)
    
35.       (* tu 1)
    
36.   )
    
37. )
    
38. )
    
39. 
    

;取圆弧凸度-------------yjtdkj by 2021.06<br /> (defun c:tt ()<br />   (progn<br />   (defun yj-dxf (key ename) (cdr (assoc key (entget ename))))<br />   (defun mid (p1 p2)<br />       (mapcar (function (lambda (e1 e2) (* (+ e1 e2) 0.5))) p1 p2)<br />     )<br />     )<br />   (setq en (car (entsel)))<br />   (setq  <br />   r     (dxf 40 en)<br />   pt1   (vlax-curve-getstartPoint en)<br />   pt2   (vlax-curve-getEndPoint en)<br />   ptm   (mid pt1 pt2)<br />   len   (vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en))<br />   cpm   (vlax-curve-getpointAtdist en (/ len 2))<br />   dis   (distance pt1 pt2)    <br />   h     (distance ptm cpm)<br />   )<br />   (setq tu (/ h (* dis 0.5)))<br />   (setq <br />     a (-(cadr pt2) (cadr pt1))<br />     b (-(car pt1)(car pt2))<br />     c (-(* -1 a (car pt1))(* b (cadr pt1)))<br />     d1 (-(* -1 a (car cpm))(* b (cadr cpm)))<br />   )<br />   (cond <br />     ((= d1 c)<br />       (* tu 0)<br />   )<br />   ((> d1 c)<br />       (* tu -1)<br />   )<br />   ((< d1 c)<br />       (* tu 1)<br />   )<br /> )<br /> )<br /> <br />

sieben

凸度值等于弦高除与弦长的一半,逆时针为正值,顺时针为负值

slw7310

谢谢回复！关键是 我 如何判断已有的弧是“逆时针”还是“顺时针”？

sieben

/// <summary>
    /// 判断1,2,3三个点的依次走向为顺时针还是逆时针走向
    /// 顺时针返回-1,逆时针返回1,点重合或在一条直线上返回0
    /// </summary>
    /// <param name="P1">第一个点</param>
    /// <param name="P2">第二个点</param>
    /// <param name="P3">第三个点</param>
    /// <returns>顺时针返回-1,逆时针返回1,点重合或在一条直线上返回0</returns>
    static public int Clockwise(Point3d P1, Point3d P2, Point3d P3)
    {
      double A = P3.Y - P1.Y;
      double B = P1.X - P3.X;
      double C = -1.0 * A * P1.X - B * P1.Y;
      double d1 = -A * P2.X - B * P2.Y;
      if (d1 == C)
        return 0;
      else if (d1 > C)
        return -1;
      else
        return 1;
    }

slw7310

谢谢！非常感谢！

slw7310

哎呀！ 起点 终点   没有第三点啊？！！

sieben

还有圆心呀,两点你怎么能判断时钟走向?

slw7310

新手，请谅解！！ 再请教，圆心点是P1 P2 还是P3  ?

sieben

P1是起点的话,那么P3是圆心,P2是起点的话,P1是圆心

sieben

自己测试看看更清楚