Veröffentlicht am von Helge Brettschneider

Inventor iLogic: Zeichnungseinrichtung, -kennen Sie den Code der Blattausrichtung?

Hallo, sehr geehrte iLogic Fans,
am Freitag hat man mich in einem Supportfall gefragt, wie man in der Zeichnungseinrichtung mit iLogic, das Blatt von Querformat auf Hochformat umstellen kann.
Der Eine oder Andere wird sich fragen: „Wieso, wofür braucht man das?“

Naja, man kann es auch von Hand machen, aber wenn man die Zeichungserstellung mit iLogic vereinheitlichen will, ist das ganz hilfreich.  Wie so oft bei iLogic muss man bestimmte Werte einfach kennen, um sie nutzen zu können. So auch den API Zugang zur Blattorientierung und die passenden Schlüsselwerte um Hochformat und Querformat einstellen zu können.

Aus diesem Grunde habe ich hier ein kurze Regel erstellt welche die Ausrichtung von Hochformat auf Querformat ändern kann.

iLogic Regel zur Zeichnungseinrichtung -> Blattausrichtung

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
kQuerformat = 10242 'code für Querformat
kHochformat = 10243 'Code für Hochformat

AktuelleAusrichtung = ThisApplication.ActiveDocument.ActiveSheet.Orientation

'Anfrage beim Anwender
FrageAusrichtung = MessageBox.Show("Möchten Sie die Ausrichtung ändern?", "iLogic Hochformat/ Querformat",MessageBoxButtons.YesNo)

'Ausrichtung ensprechend der Auswertung anpassen
'Wenn der Anwender "Ja" wählt und die Ausrichtung Hochformat ist
If FrageAusrichtung = vbYes And AktuelleAusrichtung = 10243 Then
'Wechsel zu Querformat
ThisApplication.ActiveDocument.ActiveSheet.Orientation = kQuerformat
'Wenn der Anwender "Ja" wählt und die Ausrichtung Querformat ist
Else If FrageAusrichtung = vbYes And AktuelleAusrichtung = 10242 Then
'Wechsel zum Hochformat
ThisApplication.ActiveDocument.ActiveSheet.Orientation = kHochformat
'Bei "Nein" kein wechsel der Ausrichtung
Else If FrageAusrichtung = vbNo Then
End If

'Zoom alles
ThisApplication.ActiveView.Fit

Um es auszuprobieren erstellen Sie eine neue Regel in Ihrer Zeichnung, fügen den oben stehenden Code dort ein und führen die Regel aus. Wenn Sie Probleme dabei haben lassen Sie es mich wissen.

Viel Spaß beim Ausprobieren!

Helge Brettschneider