The Power of GEOPAK With VBA

1
The Power of GEOPAK With VBA Bruce
Shearer Bentley Systems, Inc.
2
The GEOPAK VBA Object Model
A collection of Object definitions giving the VBA
programmer access to various areas of the GEOPAK
Suite of products, both graphical and
non-graphical, including the following

• COGO
• DC
• Adhocs
• DTM

• Plan
• Profile
• Cross Section

• Site
• Drainage
• Water/Sewer

3
COGO

• Access User Preferences
• Open a GPK file
• Get a list of all elements of a particular type
• Get a specific element by name and type
• Access attributes of elements including name,
  coordinates, length, radius, degree, feature,
  stationing, etc.
• Locate intersections, project points onto, and
  find points/slopes at distances along elements
• Modify existing Create new COGO elements

4
COGO - Examples

• StoreCogoPoint

5
COGO - Examples

• GpkMerge

6
Profile Context

• Create a Profile Cell
• Create a Profile Drawing Port from a Profile Cell
• Access profile cell information such as job,
  chain, location, vertical scale, stationing, etc.
• Translate station and elevation values to model
  coordinates for drawing in the profile context
• Translate model coordinates within the profile
  context to station and elevation values

7
Profile Context - Example

• LabelSagSSD

8
DTM

• Open a TIN file
• Open/Create a DTM Input File
• Build a TIN
• Merge DTMs
• Drape points onto a DTM to obtain elevations
• Drape linear elements onto a DTM to obtain
  sections
• Extract features from a DTM

9
DTM

• DTMLabel

10
DTM

• FeatureSections

11
Design Computation Manager (DCM)

• Open a DCM database
• Access an Item by name or attribute
• Access an Items type and description
• Access an Items placement symbology
• Obtain a DCM item from a MicroStation element
  placed using DCM

12
Design Computation Manager (DCM) - Example

• DCItemPicker

13
Cross Section

• Obtain a list of all cross section ports for a
  given chain
• Access cross section information such as chain,
  location, vertical scale, stationing, etc.
• Translate offset and elevation values to model
  coordinates for drawing in the cross section
  context
• Translate model coordinates within the cross
  section context to offset and elevation values

14
Cross Section - Example

• XSMovie

15
Cross Section - Example

• SubgradeTemplateReport

16
Adhoc Attributes

• Add adhoc attributes of any type (double, string,
  or payitem) to a MicroStation element
• Obtain all adhoc attributes from a MicroStation
  element
• Read a specific adhoc attribute from a
  MicroStation element by name
• Remove an adhoc attribute from a MicroStation
  element by name

17
Adhoc Attributes - Example

• Pavement

18
Drainage

• Open a Drainage Project database
• Add Areas, Links, and Nodes
• Obtain a list of Areas, Links, Nodes, Networks,
  and Profiles
• Obtain a specific Area, Link, Node, Network, or
  Profile
• Access an abundance of information from any of
  the Drainage elements obtained

19
Drainage - Example

• DrainageProfile

20
Site

• Open a Site Project database
• Create Models, Objects, and Elements
• Remove Objects from Models and remove Elements
  from Objects
• Access many attributes from Models, Objects, and
  Elements

21
Site - Example

• XSSubSurface

22
Water/Sewer

• Open a Water/Sewer Project database
• Add Lines and Nodes
• Obtain a list of Lines, Nodes, or Profiles
• Obtain a specific Line, Node, or Profile by name
• Obtain Sewer Segments
• Access an abundance of information from any of
  the Water/Sewer elements obtained

23
Water/Sewer - Example

• XSPipes

24
Samples of GEOPAK VBA can be downloaded
from http//selectservices.bentley.com/ Supp
ort Tools TechNotes and FAQs Civil
GEOPAK Civil Suite GEOPAK VBA
Questions?