(XD::Arc:CenterAngle)给圆弧逆顺时针、圆心、变径、起始角、终止角、求圆心角

Lispboy

1. ;|
   
2. 给圆弧圆心、变径、起始角、终止角、逆顺时针求圆心角
   
3. 参数：
   
4.   info --- 圆弧参数（逆顺时针 圆心 半径 起始角 终止角）
   
5. 返回值：圆心角
   
6. |;
   
7. (defun XD::Arc:CenterAngle(info / _2pi eang isunclockwise sang)
   
8.   (setq _2pi (* 2 pi)
   
9.         isUnClockWise (car info)
   
10.         sAng (nth 3 info)
    
11.         eAng (nth 4 info)
    
12.   )
    
13.   (if isUnClockWise                       ; 逆时针
    
14.       (rem (- (+ _2pi eAng) sAng) _2pi)
    
15.       (rem (- (+ _2pi sAng) eAng) _2pi)
    
16.   )
    
17. )
    
18. 
    

;|<br /> 给圆弧圆心、变径、起始角、终止角、逆顺时针求圆心角<br /> 参数：<br />   info --- 圆弧参数（逆顺时针 圆心 半径 起始角 终止角）<br /> 返回值：圆心角<br /> |;<br /> (defun XD::Arc:CenterAngle(info / _2pi eang isunclockwise sang)<br />   (setq _2pi (* 2 pi)<br />         isUnClockWise (car info)<br />         sAng (nth 3 info)<br />         eAng (nth 4 info)<br />   )<br />   (if isUnClockWise                       ; 逆时针<br />       (rem (- (+ _2pi eAng) sAng) _2pi)<br />       (rem (- (+ _2pi sAng) eAng) _2pi)<br />   )<br /> )<br /> <br />

st788796

整复杂了吧，有起始角和终止角就可以求夹角了，因为这个角是arc角，不是任意的，终止角大于2pi一个判断，其他情况直接减法

Lispboy

st788796 发表于 2013-9-1 13:22
整复杂了吧，有起始角和终止角就可以求夹角了，因为这个角是arc角，不是任意的，终止角大于2pi一个判断，其 ...

逆时针和顺时针是不一样的。要考虑到多段线里面的弧段.

Free-Lancer

Lispboy 发表于 2013-9-1 14:40
逆时针和顺时针是不一样的。要考虑到多段线里面的弧段.

用 bulge 可以计算吧！

Lispboy

Free-Lancer 发表于 2013-9-1 14:59
用 bulge 可以计算吧！

同样的弧段，逆顺时针的时候BULGE是不一样的。用BULGE算就有点复杂了，对普通的ARC，还要求下BULGE。有 （逆顺时针 圆心 半径 起始角 终止角 ）这几个信息就可以对ARC和POLY弧统一算了。根据逆顺时针，起始角和终止角交换下就可以了。

ll_j

对arc弧而言，没有顺时针只有逆时针，但在不同象限，终止角可能小于起始角，所以需要进行判别，不过似乎只要对角度差进行判别即可：

1. (rem (+ (- eAng sAng) _2pi) _2pi)

(rem (+ (- eAng sAng) _2pi) _2pi)

对于多段线中的圆弧，则有顺时针和逆时针之分，表现在凸度上，但输入的条件不同，应该是起终点坐标和凸度。

顺便说一句，求圆弧圆心角也与圆心和半径无关，楼主的函数也没有用到这两个参数。

对arc的：

1. (defun arcang(sang eang)
   
2.   (rem (+ (- eang sang) pi pi) (+ pi pi))
   
3. )

(defun arcang(sang eang)<br />   (rem (+ (- eang sang) pi pi) (+ pi pi))<br /> )

Lispboy

ll_j 发表于 2013-9-1 15:30
对arc弧而言，没有顺时针只有逆时针，但在不同象限，终止角可能小于起始角，所以需要进行判别，不过似乎只 ...

确实没用到圆心、半径，但是用的是ARC的基本信息做参数的，这个参数是由 xdrx_Polyline_GetArcSegAt直接得到的(逆顺时针 圆心 半径 起始角 终止角）得到的数据直接转给给这个函数，要不还得再求 (NTH 3 INFO) (NTH 4 INFO).

今天提供的几个关于ARC的函数，都是用圆弧的基本信息做参数的，这样方便，不用刻意记参数是什么。