[求助]：点表按顺时针或逆时针排序

LADESIGNER · 发表于 2006-4-22 11:27:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如题.

xiao_longxin · 发表于 2006-4-22 20:10:48

参见http://p4.xdcad.net/forum/showthread.php?s=&threadid=547917
中的第17个函数，如果点表不是你所要的顺序，reverse即可了

LADESIGNER · 发表于 2006-4-24 13:50:20

不是一回事;

xyp1964 · 发表于 2006-4-24 14:07:37

无法定义“点表按顺时针或逆时针排序的”概念！

xiao_longxin · 发表于 2006-4-24 14:53:21

如果把这个点表理解为一个封闭的多边形就可以定义出它的顺逆了。但我还是没有看懂楼主在3楼的图的意思。

LADESIGNER · 发表于 2006-4-24 18:17:52

现在有一个点表,我想用一条PLINE线把这些点连起来,注意看三楼贴的图片,如果光按照X或Y坐标排序,这条线就是图片右边的那种形式.我想要的是左边的那种,即点表按顺时针或逆时针排序后形成的PLINE线.

LADESIGNER · 发表于 2006-4-24 18:29:01

王咣生 · 发表于 2006-4-24 18:30:41

好像没有规律可循,如果找距离接近的显然不合适,
考虑在特定的方向上找下一个结点: 先是水平方向,然后再找垂直方向,
每个方向上找离点本身最接近的点作为它的临接点.

LADESIGNER · 发表于 2006-4-24 18:47:23

这是实际工作中用到的一个问题.
图片中的黑点代表图块,我要用一条引线把图块串起来,在上方或下方标注,从图中可以看出,只有最右边是最合理的.可能顺时针或逆时针的表述是不对的.做园林的经常要用的.图块代表树.

xyp1964 · 发表于 2006-4-24 20:48:39

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20060422
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://free.ys168.com/?xyp1964[/url]
|;
;;; 对多段线顶点重排序画多段线的可能性分析
;;; 方式：1上下左右;2上下右左;3下上左右;4下上右左;
;;; 5左右上下;6左右下上;7右左上下;8右左下上
(defun c:test ()
(CMDLA0)
(setvar "osmode" 0)
(setvar "pdmode" 36)
(setvar "PDSIZE" -5)
(setvar "PLINEWID" 60)
(setq s0 (car (entsel "\n选择一条多段线: "))
ptn0 (xyp-get-Vertexs s0 0)
i 0
)
(xyp-mklaco "POINT" 10)
(foreach pt ptn0
(command "point")
(command pt)
)
(setq ss (ssget "x" '((0 . "POINT")))
ptn (xyp-Sort ss 10 "none")
i 0
)
(while (< i 8)
(setq i (1+ i)
ptn-tmp (xyp-Sort-PList ptn i)
)
(if (null ptn-tmp)
(setq ptn-tmp ptn)
)
(xyp-mklaco (rtos i 2 0) i)
(command "pline")
(foreach pt ptn-tmp
(command (car pt))
)
(command "")
(setq s1 (entlast)
pts (xyp-get-CurveStartPoint s1)
)
(xyp-Text 5 pts (rtos i 2 0))
)
(CMDLA1)
)
[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060422 
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： 
★1·在acad.lsp中增加(load"xyp_lib.vlx") 
■2·在每个程序内增加(load"xyp_lib.vlx") 
■3·在command下，输入(load"xyp_lib.vlx") 
■4·在菜单.mnl中增加(load"xyp_lib.vlx") 
■5·将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://free.ys168.com/?xyp1964[/url] 
|; 
 
;;; 对多段线顶点重排序画多段线的可能性分析 
;;; 方式：1上下左右;2上下右左;3下上左右;4下上右左; 
;;;       5左右上下;6左右下上;7右左上下;8右左下上 
(defun c:test () 
  (CMDLA0) 
  (setvar "osmode" 0) 
  (setvar "pdmode" 36) 
  (setvar "PDSIZE" -5) 
  (setvar "PLINEWID" 60) 
  (setq        s0   (car (entsel "\n选择一条多段线: ")) 
        ptn0 (xyp-get-Vertexs s0 0) 
        i    0 
  ) 
  (xyp-mklaco "POINT" 10) 
  (foreach pt ptn0 
    (command "point") 
    (command pt) 
  ) 
  (setq        ss  (ssget "x" '((0 . "POINT"))) 
        ptn (xyp-Sort ss 10 "none") 
        i   0 
  ) 
  (while (
    (setq i          (1+ i) 
          ptn-tmp (xyp-Sort-PList ptn i) 
    ) 
    (if        (null ptn-tmp) 
      (setq ptn-tmp ptn) 
    ) 
    (xyp-mklaco (rtos i 2 0) i) 
    (command "pline") 
    (foreach pt        ptn-tmp 
      (command (car pt)) 
    ) 
    (command "") 
    (setq s1  (entlast) 
          pts (xyp-get-CurveStartPoint s1) 
    ) 
    (xyp-Text 5 pts (rtos i 2 0)) 
  ) 
  (CMDLA1) 
) 
[/FONT]

LADESIGNER · 发表于 2006-4-26 19:28:22

佩服佩服!!!非常感谢

能否请XYP1964斑竹揭密一下几个排序函数???

xyz518mm · 发表于 2006-4-26 20:44:52

真是齊全的排序法
快來好好研究一下

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：点表按顺时针或逆时针排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子