获得多段线顶点表（去掉重复顶点，重复段，逆时针排序）

Lispboy

1. ;|
   
2. 获得多段线的顶点表（去掉重复点，重复段）并以左下点(X最小，Y最小）为第一个顶点逆时针重新排序顶点表
   
3. 参数：
   
4.     e ---- 多段线实体名
   
5. 
   
6. 返回值：
   
7.    顶点表
   
8. |;
   
9. (defun XD::Polyline:GetVertexs (e / _prec i pj pl)
   
10.   (setq i -1)
    
11.   (xdrx_polyline_compress e t)               ; 去掉重复顶点，重复段
    
12.   (repeat (xdrx_polyline_numVerts e)
    
13.     (setq pl (cons (xdrx_polyline_getPointAt e (setq i (1+ i))) pl))
    
14.   )
    
15.   (setq _prec (car (xdrx_document_getPrec));;获得全局精度(距离 角度)
    
16.         pj (car (XD::PNTS:MinX->MinY pl _prec))
    
17.   )
    
18.   (XD::PntS:UnClockWise pl pj _prec)
    
19. )

;|<br /> 获得多段线的顶点表（去掉重复点，重复段）并以左下点(X最小，Y最小）为第一个顶点逆时针重新排序顶点表<br /> 参数：<br />     e ---- 多段线实体名<br /> <br /> 返回值：<br />    顶点表<br /> |;<br /> (defun XD::Polyline:GetVertexs (e / _prec i pj pl)<br />   (setq i -1)<br />   (xdrx_polyline_compress e t)               ; 去掉重复顶点，重复段<br />   (repeat (xdrx_polyline_numVerts e)<br />     (setq pl (cons (xdrx_polyline_getPointAt e (setq i (1+ i))) pl))<br />   )<br />   (setq _prec (car (xdrx_document_getPrec));;获得全局精度(距离 角度)<br />         pj (car (XD::PNTS:MinX->MinY pl _prec))<br />   )<br />   (XD::PntS:UnClockWise pl pj _prec)<br /> )

Free-Lancer

这个获取部分用一个函数xdrx_entity_getstretchpoint就可以了来自: Android客户端

ysq101

哈哈。。。这个功能刚好用上。。。。。好不容易自己研究怎么用子函数啊。。。好高兴啊

2+1_ZTXJ9

这个很适合我的需要