【發帖精華】總數量與總長度計算方法

跪求各位CAD高手大大

小弟非AutoCAD專長。

但因從事水電消防工程工作的關係～

需計算出整棟大樓所有管線種類長度與器具的數量～

傳統的作法～就是照水電消防配線圖一個一個點...  

不然就是用線一條一條的量…再加總算出總長度...  

可否請教有AutoCAD專長或是工程界的高手先進教教小弟我

如何運用AutoCAD計算出管線的總長度與器具的總數量？

小弟CAD不熟…求助不知有沒有好心的大大可用圖示教教小弟～

感激不盡～功德無量～謝謝！！

恭喜您的主題獲選為精華文章！ < 積分+1、威望+3 >

[公告]關於論壇的文章價值

代碼:


;;;-----------------------------------------------------
;;;計算線加總長度
;;;BY LUCAS_LAI(龍龍仔)
(defun C:LENOF (/ CURVE TLEN SS N SUMLEN)
 (vl-load-com)
 (setq SUMLEN 0)
 (setq
   SS (ssget
'((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
      )
 )
 (setq N 0)
 (repeat (sslength SS)
   (setq CURVE (vlax-ename->vla-object (ssname SS N)))
   (if (/= (vla-get-objectname CURVE) "AcDbRegion")
     (setq TLEN (vlax-curve-getdistatparam
  CURVE
  (vlax-curve-getendparam CURVE)
)
     )
     (setq TLEN (vla-get-perimeter CURVE))
   )
   (setq SUMLEN (+ SUMLEN TLEN))
   (setq N (1+ N))
 )
 (print (strcat "總長度: " (rtos SUMLEN 2 5)))
 (princ)
)


LUCAS_LAI 寫到:貼個出處吧!

代碼:


;;;-----------------------------------------------------
;;;計算線加總長度
;;;BY LUCAS_LAI(龍龍仔)
(defun C:LENOF (/ CURVE TLEN SS N SUMLEN)
 (vl-load-com)
 (setq SUMLEN 0)
 (setq
   SS (ssget
'((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
      )
 )
 (setq N 0)
 (repeat (sslength SS)
   (setq CURVE (vlax-ename->vla-object (ssname SS N)))
   (if (/= (vla-get-objectname CURVE) "AcDbRegion")
     (setq TLEN (vlax-curve-getdistatparam
  CURVE
  (vlax-curve-getendparam CURVE)
)
     )
     (setq TLEN (vla-get-perimeter CURVE))
   )
   (setq SUMLEN (+ SUMLEN TLEN))
   (setq N (1+ N))
 )
 (print (strcat "總長度: " (rtos SUMLEN 2 5)))
 (princ)
)