mcm007 发表于 2002-10-24 16:44:00

[求助]－如何求多点连线间的长度之和

请教各位高手：谁有求多点之间长度之和的LISP程序

alin 发表于 2002-10-25 13:01:00

try this..

alin 发表于 2002-10-25 15:13:00

attachment

mcm007 发表于 2002-10-25 15:39:00

感谢

对alin的支持表示感谢！

龙龙仔 发表于 2002-10-25 16:33:00

簡化alin的程序

(defun C:LENGTH        (/ P1 P2 LEN)
(setvar "OSMODE" 39)
(setq LEN 0)
(setq P1 (getpoint "\nFirst Point: "))
(while (/= (setq P2 (getpoint P1 "\nNext point: ")) NIL)
    (setq LEN (+ LEN (distance P1 P2)))
    (grdraw P1 P2 1 1)
    (setq P1 P2)
)
(command "redraw")
(prompt (strcat "\nTotal Length: " (rtos LEN)))
(princ)
)

LIULISHENG 发表于 2018-2-1 09:54:35

学习了支持

sunny_8848 发表于 2018-2-2 15:27:13

多谢分享，可以减少一些工作量
页: [1]
查看完整版本: [求助]－如何求多点连线间的长度之和