Questions similar to this appear on the Bentley Discussion Groups. These appeared in the VBA discussion group.
Q
- How can I measure and accumulate the area of several shapes in MicroStation?
- Is there a replacement for the freeware ATool utility for MicroStation CONNECT?
A Area Accumulator answers those questions.
Area Accumulator
AreaAccumulator is a freeware utility for MicroStation CONNECT and earlier versions of MicroStation.
AreaAccumulator lets you pick DGN area features. By area feature we mean a planar closed shape, such as a DGN Shape Element, Complex Shape Element or Ellipse.
In VBA terminology, an area feature is a DGN Element that implements the ClosedElement interface.
AddArea
Click Area Accumulator's Add Area button. Pick an area feature using MicroStation's usual locate paradigm. You'll see the Running Total Area and Count text boxes update …
Continue clicking the Add Area button to accumulate more measurements.
SubtractArea
Click Area Accumulator's Subtract Area button. Pick an area feature using MicroStation's usual locate paradigm. You'll see the Running Total Area and Count text boxes update …
Continue clicking the Add Area or Subtract Area button to accumulate more measurements.
Clear
Click Area Accumulator's Clear button. You'll see the Running Total Area and Count text boxes restored to their initial condition …
ATool
ATool is a freeware utility for MicroStation V8. It is not produced by LA Solutions. There is no ATool for MicroStation CONNECT.
Download VBA Area Accumulator Project
The above code is available in this MicroStation
VBA project.
Unpack the ZIP archive and copy AreaAccumulator.mvba to a location where MicroStation
can find it.
A good place to copy it would be ..\Organization\Standards\macros.
To start measuring areas, enter the following into MicroStation's keyin dialog …
vba run [AreaAccumulator]modMain.Main
Questions
Post questions about MicroStation programming to the MicroStation Programming Forum.
