Automatically pick up areas from road cross section merge with surveyed level

[toggy80]

Hi,

I hope this thread will help for quantity surveyors.

First we have road cross section drawings by dwg. format. Its already drawed by consultant company. Then our surveyors check the constructed embankment layers. And we need to draw that level on the cross sections. And pick up constructed embankment areas from drawings. Cross sections are every 20m. Its mean so many cross sections there.

My using method for draw layer and pick up quantities is.

First I have some surveyed points that including center line and both side offset. Minimum 3points of surveyed.

How I quick do those steps. Any method for that?

[BIGAL]

we need to draw that level on the cross sections

 

I have a lisp called SRL for surface rl it needs a text to be changed to new level, just put a "x" next to the point.

 

As for the rest of the questions really have no idea. You need to describe more.

 

;Calculates level of a point in cross or long sections

(setvar "cmdecho" 0)

(princ "\n To run just type SRL")

;;-------------------=={ Parse Numbers }==--------------------;;`
;;                                                            ;;
;;  Parses a list of numerical values from a supplied string. ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  s - String to process                                     ;;
;;------------------------------------------------------------;;
;;  Returns:  List of numerical values found in string.       ;;
;;------------------------------------------------------------;;

(defun LM:ParseNumbers ( s )
 (
   (lambda ( l )
     (read
       (strcat "("
         (vl-list->string
           (mapcar
             (function
               (lambda ( a b c )
                 (if
                   (or
                     (< 47 b 58)
                     (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                     (and (= 46 b) (< 47 a 58) (< 47 c 58))
                   )
                   b 32
                 )
               )
             )
             (cons nil l) l (append (cdr l) (list nil))
           )
         )
         ")"
       )
     )
   )
   (vl-string->list s)
 )
)


(defun c:SRL ()
(setq olddimzin (getvar "dimzin"))
(setvar "dimzin" 0)
(if (= dwgscale nil)
(setq dwgscale (/ 1000.0 (getreal "\n enter vertical scale ")))
)
;(setq datum (getreal "\n Enter datum level "))
(setq datum (car (LM:ParseNumbers (cdr (assoc 1 (entget (car (entsel "\nPick datum text"))))))))



(setq test 1)
(setq pt1 (cadr (getpoint "\npick datum")))
(while (= test 1)

(setq pt2 (cadr (getpoint "\npick point")))

(setq dist (/(abs (- pt1 pt2)) dwgscale))

     (setq en1 (car (entsel "\nSelect text number:" )))
     (if (/= en1 nil)
       (progn
       (setq tent (entget en1))
       (setq a (+ dist datum))
       (setq a (rtos a 2 3))
       (setq el (subst (cons 1 a) (assoc 1 tent) tent))
       (entmod el)
  );progn
      (princ "\nplease pick again"); else
    );if
); while t

(setq el nil
en nil
a nil
en1 nil
test nil)

(setvar "cmdecho" 1)
(setvar "dimzin" olddimzin)
(princ)
)	;ends main defun

[BIGAL]

A bit more doing cross sections at both vertical and horiz =same scale makes area calcs much easier. I use plot 1:100 1:100 then scale 0.1 all cross sections so its real size.

 

Then use bpoly to create a pline and you can get the area of that.

 

3rd a simple way to convert existing which is say 1:100, 1:50 scale to 1=1 just make a block of all your cross sections insert it again and change the vertical scale to un-ratio it so hor and ver is now 1:1 from memory make x scale 0.1 y 0.05 obviously if their feet scale similar method.

[toggy80]

I attached sample cross section that we draw every 20meter and on every week. Its too much time spending draw one by one.

[toggy80]

And I have surveyed points that at the constructed layer. My drawing steps are

1. cntl+a select all cross section drawing

2. m-move command pickup center line top level and move to (0, center line level)

for example 0,1167.424 its in sample cross section that I attached.

3. pl-polyline command and copied from excel offset and levels

4. paste into autocad command line

5. pickup area of cross section

 

its my steps to drawing cross section one by one

[BIGAL]

Its probably time to look at CIV3d or "Civilsite Design" www.civilsurveysolutions.com.au it will do a full report of your road design even broken down into the different volumes of pavement material and at a press of a button.

 

I am sorry but to me spending hours writing code would be a waste of time when the ability to do this has been around since the 70's, you will recover your cost outlay so quick using other stuff in the package.

[toggy80]

Civil 3d, civil site design its all same software for only design drawing and it can do quantity estimation.

But my thread is for different situation. Already have some cross section from design software but we need to merge our constructed levels into that cross section and need to pickup quantity