---

Hallo,

um in unseren Schriftfeldern den Maßstab automatisch einzutragen haben wir in unserer Vorlage  eine iLogic-Regel:

„iProperties.Value("Custom", "Maßstab")=ActiveSheet.View("ANSICHT1").ScaleString“

In dieser Vorlage ist im Schriftkopf für den Maßstab das iPropertie „Maßstab“ definiert. Als Ereignisauslöser haben wir „vor dem Speichern“. Klappt auch alles wunderbar.

Wir haben aber auch alte Modelle und Zeichnungen, die für neue Aufträge kopiert werden, wenn sich nur Kleinigkeiten ändern. Bei diesen kopierten Zeichnungen soll dann der aktuelle Schriftkopf aus unserer neuen Vorlage eingefügt werden. Auch hier soll jetzt die iLogic-Regel den Maßstab automatisch füllen. Nun haben wir aber in diesen alten kopierten Zeichnungen die erforderliche iLogic-Regel nicht.

Wie bekomme ich die Regel (idealerweise zusammen mit dem neuen Schriftkopf) automatisiert aus der neuen Zeichnungsvorlage in meine alte Zeichnung?

Hat Jemand Erfahrung bzw. eine Idee?

Gruß
Klaus

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

---

2013-12-1716_35_39-Regelbearbeiten_FehlParam.png

Hallo,

zunächst mal würde ich die Regel als externe Regel anlegen, dann ist sie in jeder idw verfügbar.
Im Anhang findest Du eine Lösung, wie ich die alten gegen neue Schriftköpfe austausche. Den Namen der Vorlage und des Schriftkopfes muss du natürlich an Deine Umgebung anpassen.

------------------
Gruß aus Aachen,
Walter

*** Man kann nicht alles gleichzeitig machen, aber man kann alles gleichzeitig sein lassen ***

[Diese Nachricht wurde von CADboogie am 17. Dez. 2013 editiert.]

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

---

Der übertragunsassistent für Zeichnungsressourcen kann die Schriftköpfe auf andere Zeichnungen übertragen. Wenn der Name des Schriftkopfes gleich ist, wird der alte überschrieben.

die I-Logic Regel musst du glaube ich für jede Zeichnung aktivieren. Wenn sie extern ist, sind das aber nur ein paar klicks.

------------------
Gruß, Gandhi
"Dem guten Frager ist schon halb geantwortet" - Friedrich Nietzsche

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

---

hallo CADboogie Diese Regel brauch ich auch können sie mir die Regel wie ihre Bild ihr antworten als Text, damit ich schnell erstellen kann.

vielen dank

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

---

Hallo,

Ich habe die Regel so erstellt, wie es auf dem Foto ist. Leider kommt bei mir beim Ausführen der Regel ein Fehler, der besagt, dass der Dateiname doppelt belegt ist. Kann mir an der Stelle einer weiterhelfen?

Die Regel lautet wie folgt:

Dim oNewDocument As DrawingDocument
oNewDocument = ThisApplication.ActiveDocument
If oNewDocument.ActiveSheet.TitleBlock.Definition.Name = "DIN" Then
  MsgBox (oNewDocument.ActiveSheet.TitleBlock.Definition.Name & "bereits vorhanden")
Else
  ThisApplication.SilentOperation = True

  Dim oSourceDocument As DrawingDocument
  oSourceDocument = ThisApplication.Documents.Open("Z:\gemeinsame_Daten\Autodesk\Inventor 2016\Vorlage\Armatec.idw")
 
  Dim oSourceTitleBlockDef As TitleBlock
  oSourceTitleBlockDef = oSourceDocument.ActiveSheet.TitleBlock.Definition
 
  Dim oNewTitleBlock As TitleBlockDefinition
  oNewTitleBlock = oSourceTitleBlockDef.CopyTo(oNewDocument)
 
  oSourceDocument.Close
  ThisApplication.SilentOperation = False
 
  Dim oSheet As Sheet
  For Each oSheet In oNewDocument.Sheets
    oSheet.Activate

oSheet.TitleBlock.Delete
Call oSheet.AddTitleBlock(oNewTitleBlockDef)
Next
End If

Ich würde mich über jede Hilfe freuen,

Liebe Grüße,

Pietro46

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