如何按坐标对多段线排序
例如,我在一个列表中选择10条多段线,然后我想根据每个多段线的第一个点的坐标y对该列表排序(每个多段线有多个点) 假设LW多段线,并且它们的定义方向合适。。。看见http://forums.augi.com/showthread.php?137837-Sort-Selectionset-by-X-coord&p=1164026&viewfull=1#post1164026
该帖子(即第2点中的代码行)描述了如何按x值对列表进行排序。
要按y排序,取该代码,只需将“cadr”的两个场合都替换为“caddr”。
要按z排序,您可以执行相同的操作,但将“cadr”替换为“last”或“CADDR”。 这是我为许多折线选择获取面积的代码,但我想在获取面积之前对它们的折线进行排序
(defun c:yeah(/dt dt1 dt2 rec1 rec2 pt ss)(if(not sc3)(setq sc3 2))(setq sc1(getreal(strcat)“\nChi\U+1EC1u cao Text 这将获取原始的LW多段线选择集,按每条多段线第一个顶点的y值降序排序,然后按该顺序重新创建选择集。
您可能希望定位比当前更多的变量。将SC1和SC3同时作为全局变量似乎没有任何意义。SC9呢?SDT?等等
(defun c:yeah(/dt dt1 dt2 rec1 rec2 pt ss)(setq sc3(setq sc1(cond)((getreal“\nChi\U+1EC1u cao Text
页:
[1]