(XD::PolyLine:-Index+)获得指定顶点索引的前后索引值

Lispboy

1. ;|
   
2. 获得指定顶点索引的前后索引值
   
3. 参数：
   
4.   e ---- 实体名
   
5.   index- 索引值
   
6. 
   
7. 返回值：
   
8.   表
   
9. |;
   
10. (defun XD::PolyLine:-Index+(e index / nNums)
    
11.     (setq nNums (xdrx_polyline_numVerts e))
    
12.     (cond
    
13.        ((<= index 0)
    
14.           (list (1- nNums) 1)
    
15.        )
    
16.        ((>= index (1- nNums))
    
17.           (list (- nNums 2) 0)
    
18.        )
    
19.        (t
    
20.           (list (1- index)(1+ index))
    
21.        )
    
22.     )
    
23. )

;|<br /> 获得指定顶点索引的前后索引值<br /> 参数：<br />   e ---- 实体名<br />   index- 索引值<br /> <br /> 返回值：<br />   表<br /> |;<br /> (defun XD::PolyLine:-Index+(e index / nNums)<br />     (setq nNums (xdrx_polyline_numVerts e))<br />     (cond<br />        ((<= index 0)<br />           (list (1- nNums) 1)<br />        )<br />        ((>= index (1- nNums))<br />           (list (- nNums 2) 0)<br />        )<br />        (t<br />           (list (1- index)(1+ index))<br />        )<br />     )<br /> )

Free-Lancer

增加非闭合判断

1. (defun XD::PolyLine:-Index+ (e index / nNums)
   
2.   (setq nNums (xdrx_polyline_numVerts e))
   
3.   (if (xdrx_curve_isclosed e)
   
4.     (cond ((<= index 0) (list (1- nNums) 1))
   
5.           ((>= index (1- nNums)) (list (- nNums 2) 0))
   
6.           (t (list (1- index) (1+ index)))
   
7.     )
   
8.     (cond
   
9.       ((<= index 0) '(1))
   
10.       ((>= index (1- nNums)) (list (1- nNums)))
    
11.       (t (list (1- index) (1+ index)))      
    
12.     )
    
13.   )
    
14. )

(defun XD::PolyLine:-Index+ (e index / nNums)<br />   (setq nNums (xdrx_polyline_numVerts e))<br />   (if (xdrx_curve_isclosed e)<br />     (cond ((<= index 0) (list (1- nNums) 1))<br />           ((>= index (1- nNums)) (list (- nNums 2) 0))<br />           (t (list (1- index) (1+ index)))<br />     )<br />     (cond<br />       ((<= index 0) '(1))<br />       ((>= index (1- nNums)) (list (1- nNums)))<br />       (t (list (1- index) (1+ index)))      <br />     )<br />   )<br /> )