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

 

Hintergrundinformation

 Es lassen sich in MicroStation über die Zeichnungseinstellungen (Einstellungen > Zeichnungsdatei, Kategorie Ansichten) die Größen der einzelnen Ansichten (1 bis 8)  einstellen. Wenn man diese EInstellung auf mehrere Zeichnungen anwenden möchte, bietet es sich an, diese Schritte per VBA aufzzeichnen und im Batchbetrieb auszuführen.
Alleridngs kann die Ausführung evtl. gestört werden, wenn zufälligerweise eine andere Kategorie in den Zeichnungseinstellungen eingestellt war.

Allerings gibt es auch direkt die Möglichkeit, die Fenstergrößen zu ändern, wenn man zwei MDL Funktionen zu Hilfe nimmt.

Erforderliche Schritte

Im Folgenden ein VBA Beispiel, das unter Zuhilfenamhme zweier MDL Befehle die Größe eines Ansichtsfensters festlegt

Declare Function mdlWindow_viewWindowGet Lib "stdmdlbltin.dll" (ByVal viewNum As Long) As Long
Declare Function mdlNativeWindow_resize Lib "stdmdlbltin.dll" (ByVal windowP As Long, ByVal iWidth As Long, ByVal iHeight As Long) As Long

Sub resizeview()
Dim rtc As Long
Dim pWin As Long
    pWin = mdlWindow_viewWindowGet(0)   '0 entspricht View 1, 1 für View 2 usw
    rtc = mdlNativeWindow_resize(pWin, 200, 300)  ' Größe des Fentser in Pixel (x,y)
    If (0 <> rtc) Then ShowPrompt "Error occured"
End Sub

Viel Spaß beim Ausprobieren

 

 

Ursprünglicher Autor:

Artur Goldsweer