A Simple Manning's Circular Pipe Calculator

[Wish List System]

Summary: I'd like to see a simple pipe calculator that works as a dialog box where you can quickly calc pipe capacity for a given pipe size, slope, and n value; or pipe size for a given Q, slope, and n.

Description: I'd like to see a simple pipe calculator that works as a dialog box where you can quickly calc pipe capacity for a given pipe size, slope, and n value; or pipe size for a given Q, slope, and n.

Product and Feature: AutoCAD Civil 3D - Pipe Network

Submitted By: Jim Cunningham on 08/06/2014

[Wish List System]

A Simple Manning's Circular Pipe Calculator

Summary: I'd like to see a simple pipe calculator that works as a dialog box where you can quickly calc pipe capacity for a given pipe size, slope, and n value; or pipe size for a given Q, slope, and n.

Description: Sometimes you just need a quick calc. Rather than using a third party Mannings calculator, it would be nice to have a good one that comes standard with Civil3D.

Product and Feature: AutoCAD Civil 3D - Pipe Network

Submitted By: Jim Cunningham on 08/06/2014

[kspear]

We do have the hydraflow express extension that calcs all sorts of sections including pipes. Obviously, we have the Storm Sewers and SSA analysis apps, but they are external applications.

What would be awesome, and i think you are inferring this, is to have a pipe calc button several places in civil 3d; like the pipe properties Dialog box, as a column called something like "pipe capacity" in the prospector preview of a pipe collection, etc.

[kayak]

I haven't gotten into setting up pipe networks yet and SSA and hydroflow seems too complicated for a quick number in a preliminary design. It's much easier to go to an on-line third party calculator (there are many free ones). Land desktop used to have a decent one. I'd like to see it refined and brought back.

[BIG-AL]

Check this out check supplied as is with no warranty of its accuracy, draw a circle at true size or a pline shape with a top horizontal surface, does not need to be closed. Note this for metric shapes

; channel flow based on mannings value and a horizontal pline
(defun mannpipe ( / vlent ent objlen objarea vel r slope Qcap)
(princ "this is in lisp")
(vl-load-com)
(setq ent (entsel "\npick pline or circle"))
(setq vlent (vlax-ename->vla-object (car ent)))

;; check to see if the object selected is a polyline or circle
(if (= (vla-get-objectname vlent) "AcDbPolyline")
(PROGN
(setq objLEN (vla-get-LENGTH vlent))
(setq objAREA (vla-get-AREA vlent))
)
)

(if (= (vla-get-objectname vlent) "AcDbCircle")
      (PROGN
      (setq RAD (vla-get-Radius vlent))
      (setq objarea (vla-get-area vlent))
      (setq objlen (vla-get-Circumference vlent))
      )
)
      (setq R (/ objarea objlen))
      (setq mannings (getreal "\nEnter mannings value"))
      (setq slope (getreal "\nEnter slope in % "))
      (setq p1 (/ 2.0 3.0))
      (setq vel (/ (* (expt r p1) (sqrt (/ slope 100.0))) mannings  )) ;mannings formula
      (setq Qcap (* 1000.0 (* Vel objarea))) ; lt/s

(if (= Qcap nil)
  (princ "\nSelect again not a pline or Circle")
)

(PRINC (strcat "\Flow " (rtos Qcap 2 0) " l/s Velocity " (rtos Vel  2 2) " m/s"))

)
; end of defun

(mannpipe)

(princ)