求个计算总长度lisp

hnzgs

多次用di测量，然后相加产生一个结果，这样的功能能否实现？

carrot1983

;;多次用di测量，然后相加产生一个结果
;;By carrot1983
(defun C:TT (/ DIST DIST_LST PT1 PT2)
  (while (and (setq PT1 (getpoint "\n指定第一点: "))
       (setq PT2 (getpoint PT1 "指定第二点: "))
       (setq DIST (distance PT1 PT2))
       (princ DIST)
       (setq DIST_LST (cons DIST DIST_LST))
  )
  )
  (princ "\n累计量取的总长度: ")
  (princ (apply '+ DIST_LST))
  (princ)
)

ljttjl

明经CAD社区 → 工程篇 → 机械工程 → 分类统计线长程序

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72982

hnzgs

谢谢楼上两位，不会lisp呀，能给段代码么？直接计算总长度的程序已经有了，但是需要画线才可以，画线的工作量也不小啊，还不如一段一段量出来呢，求段程序，望高手们出招啊，谢啦

carrot1983

2楼修改