auot lisp 选择集处理_请教个选择集排序的问题 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

本帖最后由 vlisp2012 于 2013-10-9 16:27 编辑

通过ssget获得的选择集的排序，无法很好的控制，每次下面材的时候，都是通过fence，画线选择板块，很繁琐。

我想编辑一个程序，通过x坐标和y坐标来对面材(封闭多段线)排序后，进行板块的编号，得到排序后的选择集如下：

(((434613.0 -21571.4) ) ((441013.0 -21571.4) ) ((433388.0 -21571.4) ) ((441013.0 -19151.4) ) ((439413.0 -19151.4) ) ((436213.0 -19151.4) ) ((434613.0 -19151.4) ) ((433388.0 -19151.4) ) ((437813.0 -19151.4) ) ((441013.0 -16711.4) ) ((439413.0 -16711.4) ) ((437813.0 -16711.4) ) ((436213.0 -16711.4) ) ((434613.0 -16711.4) ) ((433388.0 -16711.4) ) ((433388.0 -14031.4) ) ((434613.0 -14031.4) ) ((436213.0 -14031.4) ) ((437813.0 -14031.4) ) ((439413.0 -14031.4) ) ((441013.0 -14031.4) ))

我想问大家的是，怎样将上表中，为排序而采用的坐标删掉呢？

我想要的表如下：

(() () () ( ) ( ) ( )…… )

程序如下：(defun c:tt ()

(command "undo" "be")

(princ "\n 选择四边形："