获得多段线选择集的每条多段线顶点表组成的表(每条多段线去掉重复点，重复段，以X...

Lispboy

1. ;|
   
2. 获得多段线选择集的每条多段线顶点表组成的表(每条多段线去掉重复点，重复段，以X最小为第一个顶点，逆时针排序）
   
3. 参数：
   
4.    SS ---- 选择集
   
5. 
   
6. 返回值：表  ( (pt1 pt2.... ptn)....(pt1 pt2 ptn) )
   
7. |;
   
8. (defun XD::PickSet:GetPolylineVertexs (SS / pts pts1 e)
   
9.   (xdrx_setsstodb ss 0)
   
10.   (while (setq e (xdrx_getentdata 0))
    
11.     (setq pts1 (XD::Polyline:GetVertexs e)
    
12.           pts (cons pts1 pts)
    
13.     )
    
14.   )
    
15.   (setq pts (reverse pts))
    
16. )
    
17. 
    

;|<br /> 获得多段线选择集的每条多段线顶点表组成的表(每条多段线去掉重复点，重复段，以X最小为第一个顶点，逆时针排序）<br /> 参数：<br />    SS ---- 选择集<br /> <br /> 返回值：表  ( (pt1 pt2.... ptn)....(pt1 pt2 ptn) )<br /> |;<br /> (defun XD::PickSet:GetPolylineVertexs (SS / pts pts1 e)<br />   (xdrx_setsstodb ss 0)<br />   (while (setq e (xdrx_getentdata 0))<br />     (setq pts1 (XD::Polyline:GetVertexs e)<br />           pts (cons pts1 pts)<br />     )<br />   )<br />   (setq pts (reverse pts))<br /> )<br /> <br />