[LISP程序]：请教：如何求多点间直线距离的总和

liangjw

请教：如何求多点间直线距离的总和

newer

最初由 liangjw 发布
[B]请教：如何求多点间直线距离的总和 [/B]

你说的是LINE吗？还是一个POLYLINE？

黄卫文

是不是通你点的多个点来计算它们这间的距离？

黄卫文

2. 
   
3. [FONT=courier new]
   
4. (defun c:ddmdist (/ distlist pts dlist)
   
5.   (setvar "cmdecho" 0)
   
6. (setvar "blipmode" 1)
   
7.           (setq distlist nil)
   
8.           (while (and (setq pts (getpoint "\n起始点<回车结束>:"))
   
9.                       (setq
   
10.                         dlist (getdist pts "\n终点<回车结束>: ")
    
11.                       )
    
12.                  )
    
13.             (Setq distlist (cons dlist distlist))
    
14.           )
    
15.           (setvar "blipmode" 0)
    
16. (if distlist
    
17.         (alert (strcat "所选管线总长度为: "
    
18.                        (rtos (apply '+ distlist) 2 2)
    
19.                        "  "
    
20.                )
    
21.         )
    
22. (princ)
    
23. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:ddmdist (/ distlist pts dlist)<br />   (setvar "cmdecho" 0)<br /> (setvar "blipmode" 1)<br />           (setq distlist nil)<br />           (while (and (setq pts (getpoint "\n起始点<回车结束>:"))<br />                       (setq<br />                         dlist (getdist pts "\n终点<回车结束>: ")<br />                       )<br />                  )<br />             (Setq distlist (cons dlist distlist))<br />           )<br />           (setvar "blipmode" 0)<br /> (if distlist<br />         (alert (strcat "所选管线总长度为: "<br />                        (rtos (apply '+ distlist) 2 2)<br />                        "  "<br />                )<br />         )<br /> (princ)<br /> )[/FONT]

liangjw

感谢小黄同志，可是程序没法使用
_1_$
_$
_$
_$
; 错误: 输入的列表有缺陷
_$
; 错误: 输入的列表有缺陷
_$

aeo

最后还要")"

黄卫文

是的最后还少了一个括号：）谢谢 aeo
因为你只要这一部分，我是从我用的程序中抽出一小部分就少了一括号“）”不好意思。
我那程序能用于几种情况，你只要算两点：）