Ad

Friday, October 23, 2009

Alignment Length Report

Here’s a quick way to create a table of alignment lengths in a drawing. I’m starting with the code found here: http://style.civil3dreminders.com/pipenetworkquantities 

The first thing to do is to change the object we are looking for to Alignments.

image

Then change all instances of oPipe to oAlignment using find and replace and change the variable type to an AeccAlignment.

image

Next delete some code we don’t need and change the titles of the cells to something we do.

image

Next populate the data we need.

image

No delete a bunch of things we don’t need.

image

No run the program, and select the Pipe sheet at the bottom of Excel and realize that the columns are reversed. Go back and modify the code to put the data in the correct columns.

image

And then go back and delete the code that creates the sheets we don’t need.

image

Now run it and the alignment information should be populated into Excel.

The code may be found on this page: http://style.civil3dreminders.com/alignmentlengthreport

2 comments:

PACO said...

Which variables to report radius, delta, beg sta, end sta, direction?

Thank you

Christopher Fugitt said...

If you start typing in the VBA Editor the various options will show up. The oAlignment.StartSta and oAlignment.EndSta should give you two of them. The other ones should be similar. Note that you have to convert radians to degrees. You can find the code in the reports code that ships with Civil 3D to find that.

LinkWithin

Blog Widget by LinkWithin