---

Blattbearbeiten-Blattgrose.png

Hallo Leute,

lässt sich die Liste mit wählbaren Blattgrößen in IV2021 irgendwie beeinflussen?
Rechtsklick auf ein Blatt in der Zeichnung führt mich zum "Blatt bearbeiten..."-Dialog. Da gibt es im Block "Format", ein Dropdownmenü mit Blattgrößen - siehe Screenshot. Die Zollgrößen brauche ich nicht, dafür hätte ich gerne ein paar Sondergrößen definiert, die wir immer wieder brauchen. Wo kann man auf diese Definitionen zugreifen?

Beste Grüße, Erich

------------------
LG, Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Blattformat.png

Hallo,

ich würde mir Arbeitsblattformate anlegen und die User sollen dann aus diesen ihre benötigte konfiguration wählen.

Dafür musst du unter Blatt Blatt bearbeiten wählen stellst bei Benutzerdefiniert mm die richtigen Abmessungen ein.

Anschließend Blatt Arbeitsblattformat erstellen... anklicken Namen vergeben fertig.

Der Eintrag ist dann oben unter Arbeitsblattformat auswählbar oder unter Blatt bearbeiten...

ob und wie man die Vorgaben löschen kann weiß ich nicht!

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Vorschlag, MacFly!

Hab das grad ausprobiert, aber leider ist der Workflow auch nicht das gelbe vom Ei:
- Von einem leeren Blatt lässt sich kein Arbeitsblattformat erstellen
- Einem bestehenden Blatt lässt sich nicht einfach über "Blatt bearbeiten" ein neues Format zuordnen, wie das mit der Blattgröße möglich wäre

Wir würden das leere Blatt mit bestimmten Größen ähnlich verwenden, wie das in Grafikprogrammen üblich ist: Es soll einfach einen Bereich definieren in dem eine Ansicht sinnvoll dargestellt werden muss. Das Blatt wird dann als Bild in Katalogen oder Anleitungen verwendet

Hat jemand ähnliche Anforderungen und einen Vorschlag, wie das umgesetzt werden kann?

LG, Erich

------------------
LG, Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Die Liste ist hart codiert. Da kommt man nicht heran. Man müßte sich einen eigenen Dialog erstellen, der die gewünschten Formate enthält. Der Komfort und die Fähigkeiten des Dialoges hängen vom Aufwand ab.
Soll der Dialog bei einem bestehenden Blatt die Größe ändern oder ein neues Blatt mit ausgewählter Größe einfügen?
Reicht es eine Größe aus der Liste auszuwählen und beim Schließen des Dialoges wird die gewählte Größe angewendet oder soll jede Selektion einer Blattgröße sofort angewendet werden?
Müssen die Blattgrößen irgendwo userfreundlich editierbar abgelegt sein oder reicht es im Quellcode?

Anbei mal eine einfache iLogic Regel mit hart codierten Blattgrößen. Nach dem Start der Regel erscheint eine Auswahlliste. Größe wählen und Dialog mit OK schließen. Die Blattgröße wird angepasst.

Code:

---

Dim SheetSize As UserParameter

Try
SheetSize = Parameter.Param("SheetSize")
Catch
SheetSize = ThisDrawing.Document.Parameters.UserParameters.AddByExpression("SheetSize","",UnitsTypeEnum.kTextUnits )
End Try

MyArrayList = New ArrayList()
MyArrayList.Add("A0")
MyArrayList.Add("A1")
MyArrayList.Add("A2")
MyArrayList.Add("A3")
MyArrayList.Add("A4")
MyArrayList.Add("A4h")
MyArrayList.Add("C1") ' Custom size 1
MyArrayList.Add("C2") ' Custom size 2

MultiValue.List("SheetSize") = MyArrayList

Size = InputListBox("Blattgröße wählen", MultiValue.List("SheetSize"), d0, Title := "Blattgröße", ListName := "Größen")

Select Case Size
Case "A0" :
'Ändern der Blattgröße des aktiven Blattes...
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
'oder neues Blatt mit gewählter Blattgröße
'ThisDrawing.Document.Sheets.Add(DrawingSheetSizeEnum.kA0DrawingSheetSize)
ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "A1" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA1DrawingSheetSize
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kLandscapePageOrientation
Case "A2" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kLandscapePageOrientation
Case "A3" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA3DrawingSheetSize
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kLandscapePageOrientation
Case "A4" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA4DrawingSheetSize
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kPortraitPageOrientation
Case "A4q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA4DrawingSheetSize
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kLandscapePageOrientation
Case "C1" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Width = 50.5 'Breite in cm !!!
ActiveSheet.Sheet.Height = 35.2 ' Höhe in cm !!!
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kLandscapePageOrientation
Case "C2" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Width = 35.5 'Breite in cm !!!
ActiveSheet.Sheet.Height = 17.8 ' Höhe in cm !!!
ActiveSheet.Sheet.Orientation=PageOrientationTypeEnum.kLandscapePageOrientation
Case Else

ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomAllCmd").Execute
End Select

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf,

Danke dafür! Sieht mir recht praktikabel aus. Die kleinste Blattgröße will aber nicht funktionieren - die Höhe mit 2cm wird richtig eingestellt, aber die Breite wird falsch eingestellt. Gibts da einen Bug mit kleinen Blattbreiten?

Unsere iLogic-Regel sieht im Moment so aus und alles andere funktioniert:

Code:

---

Blattgroessen_Liste = New ArrayList()
Blattgroessen_Liste.Add("A0")
Blattgroessen_Liste.Add("A1")
Blattgroessen_Liste.Add("A2")
Blattgroessen_Liste.Add("A3")
Blattgroessen_Liste.Add("A4")
Blattgroessen_Liste.Add("Katalog 2Q")
Blattgroessen_Liste.Add("Katalog 3Q")
Blattgroessen_Liste.Add("Katalog 4Q")
Blattgroessen_Liste.Add("Katalog 5Q")
Blattgroessen_Liste.Add("Katalog 6Q")

Size = InputListBox("Blattgröße wählen", Blattgroessen_Liste, d0, Title := "Blattgröße ändern", ListName := "Blattgröße")

Select Case Size
Case "A0" :
'Ändern der Blattgröße des aktiven Blattes:
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize 'verwendet vordefinierte Blattgrößen
'für ein neues Blatt mit gewählter Blattgröße sieht das so aus:
'ThisDrawing.Document.Sheets.Add(DrawingSheetSizeEnum.kA0DrawingSheetSize)
Case "A1" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "A2" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "A3" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "A4" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "Katalog 2Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize 'verwendet benutzerdefinierte Größe
ActiveSheet.Sheet.Width = 16 'Breite in cm
ActiveSheet.Sheet.Height = 12 ' Höhe in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 3Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Width = 12 'Breite in cm
ActiveSheet.Sheet.Height = 8 ' Höhe in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 4Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Width = 8 'Breite in cm
ActiveSheet.Sheet.Height = 6 ' Höhe in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 5Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Width = 6 'Breite in cm
ActiveSheet.Sheet.Height = 4 ' Höhe in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 6Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Width = 3 'Breite in cm
ActiveSheet.Sheet.Height = 2 ' Höhe in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case Else

ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomAllCmd").Execute
End Select

---

LG, Erich

------------------
LG, Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Ist da ein Rahmen auf dem Blatt?

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von rkauskh:
Moin

Ist da ein Rahmen auf dem Blatt?

---

Nein, kein Rahmen und kein Schriftfeld

Wenn ich im Code die Zeilen für Breite und Höhe tausche, dann tritt der Fehler beim Wechsel auf größere Blattmaße auf...

Code:

---

Blattgroessen_Liste = New ArrayList()
Blattgroessen_Liste.Add("A0")
Blattgroessen_Liste.Add("A1")
Blattgroessen_Liste.Add("A2")
Blattgroessen_Liste.Add("A3")
Blattgroessen_Liste.Add("A4")
Blattgroessen_Liste.Add("Katalog 2Q")
Blattgroessen_Liste.Add("Katalog 3Q")
Blattgroessen_Liste.Add("Katalog 4Q")
Blattgroessen_Liste.Add("Katalog 5Q")
Blattgroessen_Liste.Add("Katalog 6Q")

Size = InputListBox("Blattgröße wählen", Blattgroessen_Liste, d0, Title := "Blattgröße ändern", ListName := "Blattgröße")

Select Case Size
Case "A0" :
'Ändern der Blattgröße des aktiven Blattes:
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize 'verwendet vordefinierte Blattgrößen
'für ein neues Blatt mit gewählter Blattgröße sieht das so aus:
'ThisDrawing.Document.Sheets.Add(DrawingSheetSizeEnum.kA0DrawingSheetSize)
Case "A1" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "A2" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "A3" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "A4" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
Case "Katalog 2Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize 'verwendet benutzerdefinierte Größe
ActiveSheet.Sheet.Height = 12 ' Höhe in cm
ActiveSheet.Sheet.Width = 16 'Breite in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 3Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Height = 8 ' Höhe in cm
ActiveSheet.Sheet.Width = 12 'Breite in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 4Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Height = 6 ' Höhe in cm
ActiveSheet.Sheet.Width = 8 'Breite in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 5Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Height = 4 ' Höhe in cm
ActiveSheet.Sheet.Width = 6 'Breite in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case "Katalog 6Q" :
ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
ActiveSheet.Sheet.Height = 2 ' Höhe in cm
ActiveSheet.Sheet.Width = 3 'Breite in cm
'ActiveSheet.Sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
Case Else

ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomAllCmd").Execute
End Select

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

keine Ahnung ob es was mit dem Problem zu tun hat, aber ich habe aus diesem Fred den Befehl .ChangeSize notiert

Code:

---

ActiveSheet.ChangeSize("A3", moveBorderItems := True)
ActiveSheet.ChangeSize(28.0, 20.0, MoveBorderItems := True)'für Benutzerwerte

---

------------------
Gruß KraBBy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Egal in welcher Variante, einmal funktionierts, dann wieder nicht. Dann wird nur ein Maß richtig angepasst und das zweite nach nicht erkennbarem Schema "geraten". Ein zweites Mal die gleiche Größe auswählen funktioniert aber scheinbar zuverlässig.

...und auch eleganterer Code nach diesem Schema führt zum gleichen Ergebnis:

Code:

---

Case "A4" :
ActiveSheet.ChangeSize("A4", moveBorderItems := True)
Case "Katalog 2Q" :
ActiveSheet.ChangeSize(12.0, 16.0, moveBorderItems := True)

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von KraBBy:
Befehl .ChangeSize notiert

[/B]

---

Danke, da warst du schneller als ich 
Leider nicht besser, aber mMn schöner!

LG, Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

ChangeSize ist auch nur eine iLogic Funktion, die die Einzelschritte zusammenfasst. Leider sieht man dabei immer weniger was genau eigentlich passiert. Was hilft schönerer Code, wenn er auch nicht funktioniert?
Das Problem scheint zu entstehen, wenn durch das erste Maß die Orientierung geändert wird. Im Querformat scheitert es, eine neue Breite kleiner als die aktuelle Höhe einzugeben. Verkleinere ich erst die Höhe, läuft es bei mir.

Code:

---

Blattgroessen_Liste = New ArrayList()
Blattgroessen_Liste.Add("A0")
Blattgroessen_Liste.Add("A1")
Blattgroessen_Liste.Add("A2")
Blattgroessen_Liste.Add("A3")
Blattgroessen_Liste.Add("A4")
Blattgroessen_Liste.Add("Katalog 2Q")
Blattgroessen_Liste.Add("Katalog 3Q")
Blattgroessen_Liste.Add("Katalog 4Q")
Blattgroessen_Liste.Add("Katalog 5Q")
Blattgroessen_Liste.Add("Katalog 6Q")

Size = InputListBox("Blattgröße wählen", Blattgroessen_Liste, d0, Title := "Blattgröße ändern", ListName := "Blattgröße")

Select Case Size
    Case "A0" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize 'verwendet vordefinierte Blattgrößen
    Case "A1" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
    Case "A2" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
    Case "A3" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
    Case "A4" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
    Case "Katalog 2Q" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize 'verwendet benutzerdefinierte Größe
        If ActiveSheet.Sheet.Height < 16 Then
            ActiveSheet.Sheet.Width = 16 'Breite in cm
            ActiveSheet.Sheet.Height = 12 ' Höhe in cm
        Else
            ActiveSheet.Sheet.Height = 12 ' Höhe in cm
            ActiveSheet.Sheet.Width = 16 'Breite in cm
        End If
    Case "Katalog 3Q" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
        If ActiveSheet.Sheet.Height<12 Then
            ActiveSheet.Sheet.Width = 12 'Breite in cm
            ActiveSheet.Sheet.Height = 8 ' Höhe in cm
        Else
            ActiveSheet.Sheet.Height = 8 ' Höhe in cm
            ActiveSheet.Sheet.Width = 12 'Breite in cm
        End If
    Case "Katalog 4Q" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
        If ActiveSheet.Sheet.Height<8 Then
            ActiveSheet.Sheet.Width = 8 'Breite in cm
            ActiveSheet.Sheet.Height = 6 ' Höhe in cm
        Else
            ActiveSheet.Sheet.Height = 6 ' Höhe in cm
            ActiveSheet.Sheet.Width = 8 'Breite in cm
        End If
    Case "Katalog 5Q" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
        If ActiveSheet.Sheet.Height<6 Then
            ActiveSheet.Sheet.Width = 6 'Breite in cm
            ActiveSheet.Sheet.Height = 4 ' Höhe in cm
        Else
            ActiveSheet.Sheet.Height = 4 ' Höhe in cm
            ActiveSheet.Sheet.Width = 6 'Breite in cm
        End If
    Case "Katalog 6Q" :
        ActiveSheet.Sheet.Size = DrawingSheetSizeEnum.kCustomDrawingSheetSize
        If ActiveSheet.Sheet.Height<3 Then
            ActiveSheet.Sheet.Width = 3 'Breite in cm
            ActiveSheet.Sheet.Height = 2 ' Höhe in cm
        Else
            ActiveSheet.Sheet.Height = 2 ' Höhe in cm
            ActiveSheet.Sheet.Width = 3 'Breite in cm
        End If
End Select

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, vielen Dank Ralf fürs Fehlersuchen und Ausmerzen! Funktioniert bei mir auch.

Zitat:

---

Original erstellt von rkauskh:
Das Problem scheint zu entstehen, wenn durch das erste Maß die Orientierung geändert wird. Im Querformat scheitert es, eine neue Breite kleiner als die aktuelle Höhe einzugeben

---

Im Nachhinein irgendwie logisch

Zitat:

---

Original erstellt von rkauskh:
Moin
Was hilft schönerer Code, wenn er auch nicht funktioniert?

---

Hilft natürlich nichts, da hast du sicher recht. Schade dass man nicht davon ausgehen kann, dass die angebotenen Snippets auch funktionieren. Kommt ja von "Blattgröße ändern (benutzerdefiniert)" aus dem Menü "Zeichnung (klassisch)"

LG und schönen Wochenstart,
Erich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP