（XDGE几何库应用）圆弧数据转POLYLINE ARC数据

newer

XDRX API 有个函数 xdrx-geom-arc2poly 函数，可以将圆弧信息，转成POLYLINE ARC数据 (起始点  bulge 终止点)

圆弧数据为 xdrx-geom-3p2arc 函数返回数据

1. Command: (setq arcinfo (xdrx-geom-3p2arc p1 pin p2))
   
2. (T (2664.19 1592.85 0.0) 398.517 1.11415 4.90935)
   
3. 
   

Command: (setq arcinfo (xdrx-geom-3p2arc p1 pin p2))<br /> (T (2664.19 1592.85 0.0) 398.517 1.11415 4.90935)<br /> <br />

上面数据含义 (逆时针 圆心 半径 起始角 终止角)

通过 xdrx-geom-arc2poly 可以得到POLYLINE ARC的： 起点 bulge 终点

1. Command: (setq polyinfo (xdrx-geom-arc2poly arcinfo))
   
2. ((2839.92 1950.53 0.0) 1.39484 (2742.18 1202.03 0.0))
   
3. 
   

Command: (setq polyinfo (xdrx-geom-arc2poly arcinfo))<br /> ((2839.92 1950.53 0.0) 1.39484 (2742.18 1202.03 0.0))<br /> <br />

下面通过XDGE几何库，写一个LISP模拟函数xdrx-geom-arc2poly

1. (defun xd::geom:arc2poly
   
2.        (clockwise center radius startang endang / garc pts ret)
   
3.   ;; 定义一个函数 `xd::geom:arc2poly`，接受以下参数：
   
4.   ;; - clockwise: 布尔值，表示圆弧是否为顺时针方向
   
5.   ;; - center: 圆弧的中心点
   
6.   ;; - radius: 圆弧的半径
   
7.   ;; - startang: 圆弧的起始角度
   
8.   ;; - endang: 圆弧的终止角度
   
9.   ;; 局部变量：
   
10.   ;; - garc: 用于存储生成的圆弧对象
    
11.   ;; - pts: 用于存储圆弧的采样点
    
12.   ;; - ret: 用于存储最终返回的结果
    
13. 
    
14.   ;; 尝试构造一个逆时针圆弧几何对象 `garc`
    
15.   (if (setq garc (xdge::constructor
    
16.                    "kCircArc2d"        center radius startang endang nil)
    
17.       )
    
18.     ;; 如果圆弧对象构造成功，则执行以下代码
    
19.     (progn
    
20.       ;; 获取圆弧的采样点，采样点数为2
    
21.       (setq pts (xdrx-curve-getsamplepoints garc 2))
    
22. 
    
23.       ;; 如果圆弧不是顺时针方向
    
24.       (if (not clockwise)
    
25.         (progn
    
26.           ;; 释放之前构造的圆弧对象
    
27.           (xdge::free garc)
    
28.           ;; 重新构造一个圆弧对象，使用反转后的采样点
    
29.           (setq garc (xdge::constructor "kCircArc2d" (reverse pts)))
    
30.         )
    
31.       )
    
32. 
    
33.       ;; 获取圆弧的起始点、凸度和终止点，并存储在 `ret` 中
    
34.       (setq ret        (xdge::getpropertyvalue
    
35.                   garc
    
36.                   "startpoint"
    
37.                   "bulge"
    
38.                   "endpoint"
    
39.                 )
    
40.             ret        (list (list (car #startpoint) (cadr #startpoint) 0.0)
    
41.                       #bulge
    
42.                       (list (car #endpoint) (cadr #endpoint) 0.0)
    
43.                 )
    
44.       )
    
45. 
    
46.       ;; 释放圆弧对象
    
47.       (xdge::free garc)
    
48.     )
    
49.   )
    
50.   ;; 返回结果 `ret`
    
51.   ret
    
52. )
    
53. 
    

(defun xd::geom:arc2poly<br />        (clockwise center radius startang endang / garc pts ret)<br />   ;; 定义一个函数 `xd::geom:arc2poly`，接受以下参数：<br />   ;; - clockwise: 布尔值，表示圆弧是否为顺时针方向<br />   ;; - center: 圆弧的中心点<br />   ;; - radius: 圆弧的半径<br />   ;; - startang: 圆弧的起始角度<br />   ;; - endang: 圆弧的终止角度<br />   ;; 局部变量：<br />   ;; - garc: 用于存储生成的圆弧对象<br />   ;; - pts: 用于存储圆弧的采样点<br />   ;; - ret: 用于存储最终返回的结果<br /> <br />   ;; 尝试构造一个逆时针圆弧几何对象 `garc`<br />   (if (setq garc (xdge::constructor<br />                    "kCircArc2d"        center radius startang endang nil)<br />       )<br />     ;; 如果圆弧对象构造成功，则执行以下代码<br />     (progn<br />       ;; 获取圆弧的采样点，采样点数为2<br />       (setq pts (xdrx-curve-getsamplepoints garc 2))<br /> <br />       ;; 如果圆弧不是顺时针方向<br />       (if (not clockwise)<br />         (progn<br />           ;; 释放之前构造的圆弧对象<br />           (xdge::free garc)<br />           ;; 重新构造一个圆弧对象，使用反转后的采样点<br />           (setq garc (xdge::constructor "kCircArc2d" (reverse pts)))<br />         )<br />       )<br /> <br />       ;; 获取圆弧的起始点、凸度和终止点，并存储在 `ret` 中<br />       (setq ret        (xdge::getpropertyvalue<br />                   garc<br />                   "startpoint"<br />                   "bulge"<br />                   "endpoint"<br />                 )<br />             ret        (list (list (car #startpoint) (cadr #startpoint) 0.0)<br />                       #bulge<br />                       (list (car #endpoint) (cadr #endpoint) 0.0)<br />                 )<br />       )<br /> <br />       ;; 释放圆弧对象<br />       (xdge::free garc)<br />     )<br />   )<br />   ;; 返回结果 `ret`<br />   ret<br /> )<br /> <br />

1. Command: (apply 'xd::geom:arc2poly a)
   
2. ((2839.92 1950.53 0.0) 1.39484 (2742.18 1202.03 0.0))
   

Command: (apply 'xd::geom:arc2poly a)<br /> ((2839.92 1950.53 0.0) 1.39484 (2742.18 1202.03 0.0))<br />