Produkt(e):	MicroStation
	Version(en):	10.00.00.25
	Umgebung:	Windows 8
	Produktbereich:	Programmierung
	Produktunterbereich:	VBA

Hintergrundinformation

Mit dem Objekttyp Propertyhandler lassen sich in VBA alle Eigenschaften auslesen, die man auch über den MicroStation Befehl  Elementinfo bzw. dem Tastaturbefehl: "dialog properties open"  auselesen kann.

Dieser Objekttyp ist auch anwendbar auf die EIgenschaften eines Modells.

Erforderliche Schritte

Hier dazu ein kleines Beispiel, das alle verfügbaren Eigenschaften des aktiven Modells ausliest und ausgibt:

Sub prophandmodelliste()
Dim oProp As PropertyHandler
Dim l() As String
    Set oProp = CreatePropertyHandler(ActiveModelReference)
    l = oProp.GetAccessStrings
    For i = LBound(l) To UBound(l)
        oProp.SelectByAccessString (l(i))
        Debug.Print l(i) & ":  " & oProp.GetDisplayString
    Next
End Sub

Eine mögliche Ausgabe dieser Routine kann so aussehen:

Type:  Design
Is3D:  2D
IsMarkup:  False
CanbePlacedAsCell:  True
UpdateFieldsAutomatically:  True
CanbePlacedAsAnnotationCell:  False
IsActive:  True
IsMaster:  True
TreatAs3D:  False
CellType:  Graphic
PropagateAnnotationScale:  On
AnnotationScale:  Full Size 1 = 1
DesignScale:  1.0000
PaperScale:  1.0000
ModelId:  0
Hidden:  False
LineStyleScale:  Annotation Scale
Format:  MU
MasterUnit:  Meters
SubUnit:  Millimeters
Accuracy:  0.123
AngleReadoutFormat:  ~DD.DDDD
AngleReadoutAccuracy:  0.1
DirectionMode:  Azimuth
DirectionBase:  East
Direction:  AntiClockwise
GlobalLineStyleScaleFactor:  1.0000
GridLock:  False
GridMaster:  1.000m
GridReference:  10
GridConfig:  Ortho
GridAspect:  1.0000
IsometricLock:  False
IsometricPlane:  Top
ACSPlane:  False
Name:  2D Metric Design
Description: 
DefaultRefLogical: 
MasterUnitLabel:  m
SubUnitLabel:  mm
Resolution:  10000 per Distance Meter
WorkingArea:  9.0072E+008 Kilometers
SolidArea:  1 Kilometers
SolidAccuracy:  1E-008 Meters

Sehen Sie hierzu auch

Ursprünglicher Autor:

Artur Goldsweer