---

Hallo,

ich habe für jedes Blattformat manuell erstelle Rahmen in den Zeichnungsressourcen hinterlegt. Nun wäre es schön, wenn man nicht beim Erstellen eines neuen Blattes, bzw. beim Ändern der Blattgröße eines bestehenden Blattes den Rahmen löschen muss und den für das Format geeigneten Rahmen einfügen muss.

Gibt es dafür Lösungen in iLogic etc. ohne große Auswahldialoge? Einfach Blattgröße erfordert --> Rahmen xy

Viele Grüße,

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

---

Zitat:

---

Original erstellt von EKW:
...für jedes Blattformat manuell erstellte Rahmen ...

---

Das wäre nicht nötig gewesen.

In der Skizze zur Bestimung des Rahmens sind immer die Eckpunkte des Papiers als Projektion mit drin. Dagegen kannst Du bemaßen, und dann kommt der Rahmen mit jedem Format mit.

------------------
Roli  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde höchstwahrscheinlich nach ihrer Erstellung von Doc Snyder noch ein Mal editiert.]

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

---

Hallo,

@Doc: Wenn man Zonenrahmen verwendet wirds da schon schwieriger.

@EKW:

Wir haben 2 verschiedene Rahmen, jeweils mit passendem Heftrand, 1x A4 Quer  und einen für den Rest, die sich wie von Doc beschrieben an den Eckpunkten orientieren.
Zonenrahmen verwenden wir nicht.

Damit der Rahmen getauscht wird verwenden wir folgende ILogic Regel:

Code:

---

If ActiveSheet.Width="297" Then

ActiveSheet.Border = "Rahmen A4 Quer"

Else
ActiveSheet.Border = "Rahmen A4-A0"

End If

---

Wenn du diese etwas erweiterst, solltest du damit mehrere Rahmen bedienen können.

der Auslöser triggert vor dem speichern des Dokumentes.

------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

---

@Doc
Insofern man, wie schon erwähnt keine Zohnenrahmen verwendet gehe ich hier mit, schaut man sich jedoch die Rahmen z.B. nach DIN EN ISO 5457 an, wird die ganze Sache aufwändiger.

@muellc
Werde ich einmal ausprobieren, vorab schoneinmal danke.

Viele Grüße,

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

---

So ich konnte in der Zwischenzeit etwas basteln, bin mit dem Ergebnis recht zufrieden. Das Einzige was man noch verbessern könnte, wäre die Ereignisauslösung. Dass diese ausgelöst wird sobald das "Blatt bearbeitet" wird. Geht soetwas einzustellen?

Anbei mal mein Code:

Code:

---

BlattausrichtungQuerformat = "10242"
BlattausrichtungHochformat = "10243"

If  ActiveSheet.Size="A4" And ThisApplication.ActiveDocument.ActiveSheet.Orientation=BlattausrichtungQuerformat  Then
ActiveSheet.Border = "A4_Quer"

ElseIf  ActiveSheet.Size="A4" And ThisApplication.ActiveDocument.ActiveSheet.Orientation=BlattausrichtungHochformat  Then
ActiveSheet.Border = "A4_Hoch"
ElseIf....

ElseIf ActiveSheet.Height="X" And ActiveSheet.Width="Y" Then
ActiveSheet.Border = "X x Y"

Else
ActiveSheet.Border = "Standardrahmen"

End If

---

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