社区 › 编程申请 › 请教一个问题（第一次发贴提问 希望能得到您的答复

wxp20032003 发表于 2010-8-1 18:12:00

请教一个问题（第一次发贴提问 希望能得到您的答复

<p>画一个多段线，把这条多段线n等分，怎么把这条多段线上的节点和等分点 按从初始点到终点的顺序（也就是按多段线起始点到终点的顺序）排列下顺序</p>
<p>万分的感谢</p>

wxp20032003 发表于 2010-8-1 18:46:00

<p><font face="Verdana">IEnumerator</font>我知道得用到枚举这个函数</p>
<p>还有面积什么的搞不太懂</p>
<p>飞狐版主以前写过一个类似的帖子但是我看不懂</p>
<p>所以再此高手</p>
<p>看还有没有高明的方法</p>

Gu_xl 发表于 2010-8-2 09:37:00

使用如下函数即可！

;;;(gxl-SortPointOnCurvepoints curve) 参数 点集 points 曲线图元 curve 点集沿曲线排序
(defun gxl-SortPointOnCurve (points curve / pl1 xx nn)
    (setq pl1 (mapcar '(lambda (xx /)
         (vlax-curve-getparamatpoint
    curve
    (vlax-curve-getclosestpointto curve xx)
         )
       )
      points
   )
)
(mapcar '(lambda (nn) (nth nn points))
            (vl-sort-i pl1 '<)   
)
)

查看完整版本: 请教一个问题（第一次发贴提问 希望能得到您的答复