The following GEOPAK VBA routines are provided free for your use. We at Bentley hope that you reap productivity benefits from automating GEOPAK Civil Engineering Suite with VBA.
All routines require GEOPAK 2001 or higher.
Draw Alignment Cells with GEOPAK VBA
Example: This VBA program draws cells along an alignment at a user-defined increment between a beginning station and offset and an ending station and offset.
ID COGO Element with GEOPAK VBA
Example: This VBA program obtains COGO element names from the visualized graphic elements. It utilizes a referenced module that is password protected to obtain the CogoElement, which is then used to obtain the name. The referenced module can be used in your application the same way to obtain a CogoElement from a selected MicroStation graphic element that was created by COGO visualization.
Label Sag SSD with GEOPAK VBA
Example: This VBA program calculates and labels the stopping sight distance (SSD) for sag vertical curves. The SSD is taken from the VPC to the point a headlight beam hits the profile, originating from a specified beam height and traveling at a specified beam slope. The SSD is labeled with distance, beginning station, and ending station both in the forward-station direction as well as the reverse-station direction (as opposing traffic would encounter the vertical curves).
Soil Borings with GEOPAK VBA
Example: This VBA program is a tool that draws and labels soil borings in the profile port. The information is gathered from cells in the 3d design file or from GEOPAK points stored in COGO.
Intersect Alignments with GEOPAK VBA
Example: This VBA program is a tool that finds the intersection of two chains, obtains the profile elevation of the second chain, and labels the elevation in the profile context. Multiple intersecting chains can be labeled in one process.
Label Station Equation in Profile View with GEOPAK VBA
Example: This VBA program is a tool that labels station equations in the profile port if they exist in the chain associated with the profile port. An ASCII file (LabelStaEqProfile.dat) located in the same directory as the application contains settings to define the attributes of the elements created. At this time "GAP" profile cells are not supported.
Survey Point Profile with GEOPAK VBA
Example: This VBA program stores a profile in COGO from points stored in COGO that match the feature specified and fall within a specified distance (range) of the selected chain. It also filters points that are too close to another point as specified by the user. It will optionally write the points to a file in a station-offset-elevation format and will use either the elevation stored with the point or extract the elevation from a selected TIN file.
DP Save with GEOPAK VBA
Example: This VBA program stores points in COGO and/or writes the points to a file as the user issues data points in the MicroStation view. The output file can be formatted many different ways including CSV and text formats containing columns for X, Y, Z, Station, and/or Offset in any order.
Curve Widening with GEOPAK VBA
Example: This VBA program calculates and draws curve widening. The widening amount is obtained from the design speed, lane width, curve radius, and tables (both English and Metric tables are included and were created from Virginia DOT standards). The transitions are drawn as ten straight-line transition segments over the length of the spiral. Widening isn't applied to curves without spirals. The user has the option of drawing only the widening at the curves or throughout the length of the chain.
DP Station Offset with GEOPAK VBA
Example: This VBA program is a simple tool that mimics the DP Station Offset tool in GEOPAK with the exception of the active angle and rotation functions, although these could be added fairly easily.
Draw Drainage Nodes and Pipes in Profile from Plan Elements with GEOPAK VBA
Example: This VBA program is a tool that draws drainage nodes and pipes in profile from elements found in plan.
Draw Profile Elevations along Chain at defined Increments with GEOPAK VBA
Example: This VBA program is a tool that draws the profile elevations along a chain at a given increment.
DTM Labeling with GEOPAK VBA
Example: This VBA program is a tool that places elevation text in a plan context from an existing and/or proposed TIN file. The labeling can be done in either a dynamic single point placement or a grid placement within a fence with a defined x and y interval.
Get Elevation At Chain Intersections with GEOPAK VBA
Example: : This VBA program is a tool that finds the intersection of two chains, obtains the profile elevation of the second chain, and labels the elevation in the profile context.
Cross Section Sheet Labeling with GEOPAK VBA
Example: : This VBA program labels GEOPAK cross section sheets with a sheet number and optionally a station range. The sheets can be stacked in any orientation and spacing. The location and attributes of the label text elements are controlled by a text .dat file containing parameters such as label offset from the cell origin, level, color, weight, angle, font, etc. The user has the option of labeling only the sheet number or labeling both sheet number and beginning and ending station.