[求助]：[[0122]如何求"LWPOLYLINE"各顶点最大、次大、最小距离

xyz518mm

[求助]：[0122]如何求"LWPOLYLINE"各顶点最大、次大、最小距离

想请教各位高手大师们,图元资料中的(10 284.694 192.648) (40 . 0.0) (41 .
0.0) (42 . 0.0)都是顶点的资料,但怎样才能够将其最 MAX最大 MIN最小 次大 或 次小的判断呢?
烦请各位帮忙解答一下
谢谢~

(0 . "LWPOLYLINE") (330 . <图元名称: 7ef77d18>) (5
. "2F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 7) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 209.407
168.729) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 284.694 192.648) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 342.154 168.729) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
342.154 266.227) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 277.242 249.4) (40 . 0.0)
(41 . 0.0) (42 . 0.0) (10 209.407 266.227) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
164.535 231.723) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0)) nil

winabcd

你的最大、最小、次大、次小是如何定义的，标准是什么？说出来他人才可以为你想法子。

taner

最初由 xyz518mm 发布
[B][0122]如何求"LWPOLYLINE"各顶点最大、次大、最小距离

想请教各位高手大师们,图元资料中的(10 284.694 192.648) (40 . 0.0) (41 .
0.0) (42 . 0.0)都是顶点的资料,但怎样才能够将其最 MAX最大 MIN最小 次大 或 ... [/B]

如是你的意思是求相鄰頂點間的距離按從大到小排列,函數庫裏有.

xyz518mm

我指的是第一点或到第n点的距离,单数对单数,双数对双数
如:
1到3,1到5,1到7...
2到4,2到6,2到8...

taner

最初由 xyz518mm 发布
[B]我指的是第一点或到第n点的距离,单数对单数,双数对双数
如:
1到3,1到5,1到7...
2到4,2到6,2到8... [/B]

要求返回的結果是點表還是距離表?

xyz518mm

希望返回距离表

taner

最初由 xyz518mm 发布
[B]希望返回距离表 [/B]

看看是不是你想要的.
以下求的是兩點的直線間的距離.

2. 
   
3.   [FONT=courier new]
   
4. (defun test1 (/ dis1 dis2 dislist i j m ptlist)
   
5.   (setq        ptlist (th2-get-allvertexs (car (entsel "\n請點取多義線:")))
   
6.         i      0
   
7.         j      1
   
8.         m      (- (length ptlist) 2)
   
9.   )
   
10.   (setq dislist '())
    
11.   (while (< j m)
    
12.     (setq dis1          (distance (nth 0 ptlist)
    
13.                             (nth (setq i (+ 2 i))
    
14.                                  ptlist
    
15.                             )
    
16.                   )
    
17.           dislist (cons dis1 dislist)
    
18.           dis2          (distance (nth 1 ptlist)
    
19.                             (nth (setq j (+ 2 j))
    
20.                                  ptlist
    
21.                             )
    
22.                   )
    
23.           dislist (cons dis2 dislist)
    
24.     )
    
25.   )
    
26.   (setq dislist (reverse dislist))
    
27. )
    
28. 
    
29. (defun get-allvertexs (e / n lst)
    
30.   (repeat (setq n (fix (1+ (vlax-curve-getendparam e))))
    
31.     (setq lst (cons (vlax-curve-getpointatparam e (setq n (1- n))) lst))
    
32.   )
    
33. )
    
34. 
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun test1 (/ dis1 dis2 dislist i j m ptlist)<br />   (setq        ptlist (th2-get-allvertexs (car (entsel "\n請點取多義線:")))<br />         i      0<br />         j      1<br />         m      (- (length ptlist) 2)<br />   )<br />   (setq dislist '())<br />   (while (< j m)<br />     (setq dis1          (distance (nth 0 ptlist)<br />                             (nth (setq i (+ 2 i))<br />                                  ptlist<br />                             )<br />                   )<br />           dislist (cons dis1 dislist)<br />           dis2          (distance (nth 1 ptlist)<br />                             (nth (setq j (+ 2 j))<br />                                  ptlist<br />                             )<br />                   )<br />           dislist (cons dis2 dislist)<br />     )<br />   )<br />   (setq dislist (reverse dislist))<br /> )<br /> <br /> (defun get-allvertexs (e / n lst)<br />   (repeat (setq n (fix (1+ (vlax-curve-getendparam e))))<br />     (setq lst (cons (vlax-curve-getpointatparam e (setq n (1- n))) lst))<br />   )<br /> )<br /> <br />   [/FONT]<br />

xyz518mm

最初由 taner 发布
[B]
看看是不是你想要的.
以下求的是兩點的直線間的距離.
[CODE]
  
(defun test1 (/ dis1 dis2 dislist i j m ptlist)
... [/B]

楼主好像没提供 th2-get-allvertexs 这函数使用喔!
另外我想过这样求距离好像有问题,如果说我想对形心点求出各顶点距离中的
A.B.C.D该怎样作呢? A=最大 大于 B > C > D
另图