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

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

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

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

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

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

对alin的支持表示感谢！

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

(defun C

ENGTH (/ 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

多谢分享，可以减少一些工作量

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

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

try this..

attachment

本帖子中包含更多资源

感谢

簡化alin的程序

浏览过的版块