Tuesday, 1 November 2011

Bounded Volumes Table

In last day or so Autodesk have announced the release of the new Volume Dashboard add on for Civil3d 2012 subscription users.

About a month or so ago a I bolted together a number of pieces of code off the net from here, here and here. To make my own utility to generate a bounded volumes table for a project. The routine uses polylines for stage boundaries and a single bounded volume surface, here is a quick video of the code in action and the code I developed for those users that want to use it in previous versions of Civil3d. The code may also be useful to dump the results of the stages volumes into a standard Autocad table a functionality that is lacking in the new tool.

I did plan to develop the code further to remember the stage boundaries polylines by attaching the handle of the staging polylines to the volume table as xdata to enable a table refresh at a later date.

Instead I will continue to focus on cleaning up XPac a collection of code routines I have written over the last 5 to 6 years for Civil3d. Here is a compiled version of XPac with the command XP_BoundedVolumeTable command as always use the code at your on risk. Unable to display content. Adobe Flash is required.

Here is the code.

<CommandMethod("XP_BoundedVolumeTable")> _
Public Sub Bounded_Surface_Volumes()

'Prompt the user if the they want to create a new bounded volumes table or refresh an existing one

'If new then get the user to
'Select the volume surface

Dim ObjTypetoSelect(0) As Type
0) = GetType(TinVolumeSurface)

Dim surfaceId As ObjectId = PromptForTinSurface(ObjTypetoSelect, "Select a TIN Volume Surface: ", "The selected object is not a TIN Surface.")
If ObjectId.Null = surfaceId Then
& "No TIN Surface object was selected.")
' We don't have a surface; we can't continue.
End If

'Create a selectionset of the polylines to be used the bounded polylines
Dim acSSet As SelectionSet = GetSelectionSet()

'check selectionset not null
If acSSet.Count = Nothing Then
Exit Sub
End If

'Define the and size an array to sort the volume data for use later
Dim VolumeData As String(,) = New String(acSSet.Count + 1, 3) {}

Dim polylinenum As Integer = 2
'for each polyline in the selection
'create an array of vertice co-ords to pass to volume function
For Each acSSetObj As SelectedObject In acSSet

Dim dObjId As ObjectId
= acSSetObj.ObjectId

If (dObjId.IsNull) Then
"No Bounding Polylines have been selected")
End If

'not sure if you can get bounded volumes in .net yet therefore
'from the ObjectID get a com surface object to use the boundedvolumes method
Using tr As Transaction = startTransaction()
'get the bounding polyline for read
Dim oPolyline As Polyline = tr.GetObject(dObjId, OpenMode.ForRead)

'Determine the volumes in the polylines area
Dim oCutFillSurface1 As AeccTinVolumeSurface = tr.GetObject(surfaceId, OpenMode.ForRead).AcadObject
Dim oCut As Double = 0
Dim oFill As Double = 0
Dim oNet As Double = 0

Dim oArray As New List(Of Double)
= ArrayOfPolylineCoords(oPolyline)
Dim xx As Object
= oArray.ToArray

oCutFillSurface1.Statistics.BoundedVolumes(xx, oCut, oFill, oNet)

'ReDim VolumeData (1,2) Perserve

1, 0) = "Stage"
1, 1) = "Cut"
1, 2) = "Fill"
1, 3) = "Net"
0) = polylinenum - 1
1) = Math.Round(oCut, 2).ToString
2) = Math.Round(oFill, 2).ToString
3) = Math.Round(oNet, 2).ToString

= polylinenum + 1

End Using

Catch ex As System.Exception
MsgBox("Error in calculating volumes from polyline" & Err.Description & " - " & Err.Number & Convert.ToChar(10))
End Try



'add volume data to an array


'Insert a table into the drawing of the volumes.

End Sub

No comments:

Post a Comment

Related Posts Plugin for WordPress, Blogger...