[求助]：如何对多义线上各顶点之间距离排序

gucci218

对于多义线上各顶点坐标和距离用autolisp都好获得，想要获得各顶点之间距离的大小顺序，比如从大排到小，或者从小排到大。如何用autolisp实现？

xyp1964

多义线上各顶点坐标和距离用autolisp如何获得？
先发上来看看。

gucci218

(defun c:dr(/ ent entdate pt)
  (setvar "cmdecho" 0)
  (setq ptlist '())
  (setq ent (car (entsel)))
  (setq entdate (entget ent))
(while (setq entdate (member (assoc 10 entdate) entdate))
  (setq pt (cdr (car entdate)))
  (setq ptlist (cons pt ptlist))
  (setq entdate (cdr entdate))
)
(setq ptlist (reverse ptlist))
(princ ptlist)
(ddlst)
(princ ddlist)
(princ)
)


(defun ddlst(/ i j m n pt1 pt2 dd)
  (setq i 0)
  (setq j 1)  
  (setq n (length ptlist))
  (setq n (1- n))  
  (setq ddlist '())
(repeat (<= j n)
  (setq pt1 (nth i ptlist))
  (setq pt2 (nth j ptlist))
  (setq dd (distance pt1 pt2))
  (setq ddlist (cons dd ddlist))
  (setq i (1+ i))
  (setq j (1+ j))
)
(princ)
)
主程序是获得pl的各顶点坐标的一个列表
子程序想获得各顶点之间距离并放到一个表中，但通不过，
提示：错误: 错误的参数类型
(REPEAT (<= J N) (SETQ PT1 (NTH I PTLIST)) (SETQ PT2 (NTH J PTLIST)) (SETQ DD
(DISTANCE PT1 PT2)) (SETQ DDLIST (CONS DD DDLIST)) (SETQ I (1+ I)) (SETQ J (1+
J)))
(DDLST)
(C:DR)
不知道为什么？？？？
我的思路是获得各坐标顶点之间距离的表后，作一个循环，可以获得这个距离列表中的最大和最小距离，循环获得第二大，倒数第二小；
困惑：1 在获得最大和最小距离后，如何把这个值保存后，从上面
那个距离列表中剔除（这样就可以用max和min获得第二大和倒数第二小）
      2 如果上面1得到满足，如何对它们排序
；；；；；；；；；；；；；；；；；；；；；；；；；；；；；
以上只是我的思路，比较烦琐，还不知道能否实现，如果要实现我的标题，谁有更好的代码（用LISP实现）请指教了。。。。。。

ouyangsong

回复：
困惑：1 在获得最大和最小距离后，如何把这个值保存后，从上面
那个距离列表中剔除（这样就可以用max和min获得第二大和倒数第二小）
用(setq newddlist（vl-remove 最大距离 ddlist))

xyp1964

[php]
错误的关键：
(REPEAT (<= J N)[/php]

2. [FONT=courier new](defun c:dr (/ ent entdate pt)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq        ptlist        '()
   
5.         ent        (car (entsel))
   
6.         entdate        (entget ent)
   
7.   )
   
8.   (while (setq entdate (member (assoc 10 entdate) entdate))
   
9.     (setq pt          (cdr (car entdate))
   
10.           ptlist  (cons pt ptlist)
    
11.           entdate (cdr entdate)
    
12.     )
    
13.   )
    
14.   (setq ptlist (reverse ptlist))
    
15.   (princ ptlist)
    
16.   (ddlst)
    
17.   (setq ddlist (vl-sort ddlist '<))
    
18.   (princ"\n")
    
19.   (princ ddlist)
    
20.   (princ)
    
21. )
    
22. 
    
23. 
    
24. (defun ddlst (/ i j m n pt1 pt2 dd)
    
25.   (setq        i      0
    
26.         j      1
    
27.         n      (length ptlist)
    
28.         n      (1- n)
    
29.         ddlist '()
    
30.   )
    
31.   (while (<= j n)
    
32.     (setq pt1         (nth i ptlist)
    
33.           pt2         (nth j ptlist)
    
34.           dd         (distance pt1 pt2)
    
35.           ddlist (cons dd ddlist)
    
36.           i         (1+ i)
    
37.           j         (1+ j)
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )[/FONT]

[FONT=courier new](defun c:dr (/ ent entdate pt)<br />   (setvar "cmdecho" 0)<br />   (setq        ptlist        '()<br />         ent        (car (entsel))<br />         entdate        (entget ent)<br />   )<br />   (while (setq entdate (member (assoc 10 entdate) entdate))<br />     (setq pt          (cdr (car entdate))<br />           ptlist  (cons pt ptlist)<br />           entdate (cdr entdate)<br />     )<br />   )<br />   (setq ptlist (reverse ptlist))<br />   (princ ptlist)<br />   (ddlst)<br />   (setq ddlist (vl-sort ddlist '<))<br />   (princ"\n")<br />   (princ ddlist)<br />   (princ)<br /> )<br /> <br /> <br /> (defun ddlst (/ i j m n pt1 pt2 dd)<br />   (setq        i      0<br />         j      1<br />         n      (length ptlist)<br />         n      (1- n)<br />         ddlist '()<br />   )<br />   (while (<= j n)<br />     (setq pt1         (nth i ptlist)<br />           pt2         (nth j ptlist)<br />           dd         (distance pt1 pt2)<br />           ddlist (cons dd ddlist)<br />           i         (1+ i)<br />           j         (1+ j)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

gucci218

呵呵。。。，有时候特别简单的错误自己就是看不出来。
不过，版主能用autolisp解决后面的排出大小顺序吗？请指教。。。。。。

xyp1964

最初由 gucci218 发布
[B]呵呵。。。，有时候特别简单的错误自己就是看不出来。
不过，版主能用autolisp解决后面的排出大小顺序吗？请指教。。。。。。 [/B]

没有注意程序中的(vl-sort ddlist '<)？！
可有点粗心，呵呵……

gucci218

班竹：要是在r14下，这个问题是不是不能解决，因为它不支持"vl-sort "这个函数。如果能解决的话，请明示。

31639833@qq.com

学习一下:lol:lol:lol:lol:lol