编程求助如何计算n根直线的长度，并且列表汇总

hjqpdga · 发表于 2004-9-4 10:07:00

编程求助如何计算n根直线的长度，并且列表、归类、汇总

spring · 发表于 2004-9-4 12:32:00

你搜索一下吧,论坛上有的

yinheng · 发表于 2004-9-13 10:40:00

小子你运气不错我送个给你吧，上个月刚编的比较好用。我这可不仅仅是几个直线，什么线都可以。选了后就把长度都加起来。
;
;==============================================================================
;功能:计算所有选择对象的总长,可是是非直线。
;==============================================================================
(defun c:tl()
   (setq tleng 0)
   (setq s (ssget))
   (setq n (sslength s))
   (setq index (- n 1))
   (repeat n
   (vl-load-com)
   (setq ent (ssname s index))
   (setq index (- index 1))
   (setq curve-obj (vlax-ename->vla-object ent))
   (setq leng (vlax-curve-getDistAtParam
   curve-obj
   (vlax-curve-getEndParam curve-obj)
   )
   )
   (setq tleng (+ tleng leng))
   (princ leng)
   (princ "\n")
   )
   (setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 3)))
   (princ prscreemtext)
   (princ)
)