(XD::Polyline:IsPerpAt-Seg+)判断给定顶点索引前后直线段是否同该段都垂直

Lispboy

1. ;|
   
2. 判断给定顶点索引前后直线段是否同该段都垂直
   
3. 参数：
   
4.    e --- POLY实体
   
5.    index-顶点索引
   
6. 返回值：
   
7.    如果垂直，返回各段的单位方向向量（沿着POLYLINE的方向）
   
8.    否返回NIL
   
9. |;
   
10. (defun XD::Polyline:IsPerpAt-Seg+ (e index / indexs n_index p_index segtype0 segtype1 segtype2 v vl x)
    
11.   (setq indexs (XD::PolyLine:-Index+ e index)
    
12.         n_index (last indexs)
    
13.         p_index (car indexs)
    
14.         segType1 (xdrx_polyline_segType e index)
    
15.         segType0 (xdrx_polyline_segType e p_index)
    
16.         segType2 (xdrx_polyline_segType e n_index)
    
17.   )
    
18.   (if (and
    
19.         (= "kLine" segType0)
    
20.         (= "kLine" segType1)
    
21.         (= "kLine" segType2)
    
22.       )
    
23.     (progn
    
24.       (setq v (mapcar
    
25.                 '(lambda (x)
    
26.                    (apply
    
27.                      'mapcar
    
28.                      (cons '- x)
    
29.                    )
    
30.                  )
    
31.                 (mapcar
    
32.                   '(lambda (x)
    
33.                      (xdrx_polyline_getLineSegAt e x)
    
34.                    )
    
35.                   (list p_index index n_index)
    
36.                 )
    
37.               )
    
38.       )
    
39.       (if (and
    
40.             (xdrx_vector_IsPerpendicular (car v) (cadr v))
    
41.             (xdrx_vector_IsPerpendicular (cadr v) (caddr v))
    
42.           )
    
43.         (setq vl (mapcar
    
44.                    '(lambda (x)
    
45.                      (trans (xdrx_vector_normalize x) 1 0 1)
    
46.                     )
    
47.                    v
    
48.                  )
    
49.         )
    
50.       )
    
51.     )
    
52.   )
    
53.   vl
    
54. )
    
55. 
    

;|<br /> 判断给定顶点索引前后直线段是否同该段都垂直<br /> 参数：<br />    e --- POLY实体<br />    index-顶点索引<br /> 返回值：<br />    如果垂直，返回各段的单位方向向量（沿着POLYLINE的方向）<br />    否返回NIL<br /> |;<br /> (defun XD::Polyline:IsPerpAt-Seg+ (e index / indexs n_index p_index segtype0 segtype1 segtype2 v vl x)<br />   (setq indexs (XD::PolyLine:-Index+ e index)<br />         n_index (last indexs)<br />         p_index (car indexs)<br />         segType1 (xdrx_polyline_segType e index)<br />         segType0 (xdrx_polyline_segType e p_index)<br />         segType2 (xdrx_polyline_segType e n_index)<br />   )<br />   (if (and<br />         (= "kLine" segType0)<br />         (= "kLine" segType1)<br />         (= "kLine" segType2)<br />       )<br />     (progn<br />       (setq v (mapcar<br />                 '(lambda (x)<br />                    (apply<br />                      'mapcar<br />                      (cons '- x)<br />                    )<br />                  )<br />                 (mapcar<br />                   '(lambda (x)<br />                      (xdrx_polyline_getLineSegAt e x)<br />                    )<br />                   (list p_index index n_index)<br />                 )<br />               )<br />       )<br />       (if (and<br />             (xdrx_vector_IsPerpendicular (car v) (cadr v))<br />             (xdrx_vector_IsPerpendicular (cadr v) (caddr v))<br />           )<br />         (setq vl (mapcar<br />                    '(lambda (x)<br />                      (trans (xdrx_vector_normalize x) 1 0 1)<br />                     )<br />                    v<br />                  )<br />         )<br />       )<br />     )<br />   )<br />   vl<br /> )<br /> <br />

st788796

怎么看怎么复杂，就是仨点关系吗
三点面积=两边积/2

Lispboy

st788796 发表于 2013-9-1 13:29
怎么看怎么复杂，就是仨点关系吗
三点面积=两边积/2

API有现成的判断向量垂直的函数 (xdrx_vector_IsPerpendicular (car v) (cadr v))

其他的代码都是求每条边的方向的。