(XD::PolyLine:GetLengthAt-Index+)获得指定顶点索引的前段、当前段、后段的长度值

Lispboy

1. ;|
   
2. 获得指定顶点索引的前段、当前段、后段的长度值
   
3. 参数：
   
4.   e ---- 实体名
   
5.   index- 索引值
   
6. 
   
7. 返回值：
   
8.   表(前段长度 当前段长度 后段长度)
   
9. |;
   
10. (defun XD::PolyLine:GetLengthAt-Index+ (e index / _2pi indexs info tp x)
    
11.   (setq indexs (XD::PolyLine:-Index+ e index)
    
12.         _2pi (* pi 2)
    
13.   )
    
14.   (mapcar
    
15.     '(lambda (x)
    
16.        (setq tp (xdrx_polyline_segType e x))
    
17.        (cond
    
18.          ((= tp "kLine")
    
19.            (apply
    
20.              'distance
    
21.              (xdrx_polyline_getLineSegAt e x)
    
22.            )
    
23.          )
    
24.          ((= tp "kArc")
    
25.            (setq info (xdrx_polyline_getArcSegAt e x))
    
26.            (XD::Arc:Length info)
    
27.          )
    
28.        )
    
29.      )
    
30.     (list (car indexs) index (cadr indexs))
    
31.   )
    
32. )
    
33. 
    

;|<br /> 获得指定顶点索引的前段、当前段、后段的长度值<br /> 参数：<br />   e ---- 实体名<br />   index- 索引值<br /> <br /> 返回值：<br />   表(前段长度 当前段长度 后段长度)<br /> |;<br /> (defun XD::PolyLine:GetLengthAt-Index+ (e index / _2pi indexs info tp x)<br />   (setq indexs (XD::PolyLine:-Index+ e index)<br />         _2pi (* pi 2)<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (setq tp (xdrx_polyline_segType e x))<br />        (cond<br />          ((= tp "kLine")<br />            (apply<br />              'distance<br />              (xdrx_polyline_getLineSegAt e x)<br />            )<br />          )<br />          ((= tp "kArc")<br />            (setq info (xdrx_polyline_getArcSegAt e x))<br />            (XD::Arc:Length info)<br />          )<br />        )<br />      )<br />     (list (car indexs) index (cadr indexs))<br />   )<br /> )<br /> <br />

st788796

绕来绕去的调用可以增加破解难度？
那个arcinfo是给这个pline用的啊

Lispboy

st788796 发表于 2013-9-1 13:35
绕来绕去的调用可以增加破解难度？
那个arcinfo是给这个pline用的啊

都是明码，怕啥破解。
通用函数，在那个修改矩形长宽的工具里面，获得矩形的长，宽。
以后也有单独要用到的时候。多写点，以后处理多段线顺手拿来组合就快了。

xdrx_polyline_getArcSegAt ，获得是多段线圆弧段的信息， （逆顺时针 圆心 半径 起始角 终止角），这几个信息是对圆弧段最基本的信息了，由这几个，可以算出其他的几何特征值。

Free-Lancer

测试下只有两段情况，另外有索引了，就可以取点，有了点就可以用xdrx_curve_getdistatpoint 的两点参数