---

Symboltausch.png

Hallo Zusammen,

ich muss bei mehreren Zeichnungen die nur die Skizzensymbole austauschen, und dann freigeben.
Kann man das irgendwie automatisch machen.
Die auszutauschen Symbole sind auch schon in der Datei vorhanden.

Danke im Voraus.

Gruß,
Cihan

------------------
Selbstgemachte Fehler dürfen nicht übernommen werden

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

---

Hallo Cihan

Hier ist eine mögliche Regel, die auch funktioniert, wenn das Skizzensymbol noch nicht im Dokument sondern nur in der Skizzensymbol-Bibliothek liegt.

Code:

---

'Gib hier den Namen deiner Skizzensymbole-Bibliothek an
oSymbolDrawingName = "Bibliothek"

oSymbolNameNew = "hier Name des neues Skizzensymbols"
oSymbolNameOld = "hier Name des bestehenden Skizzensymbols"

If ThisDoc.Document.DocumentType <> kDrawingDocumentObject Then
Return
End If

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oSketchSymLib As SketchedSymbolDefinitionLibrary
oSketchSymLib = oDrawDoc.SketchedSymbolDefinitions.SketchedSymbolDefinitionLibraries.Item(oSymbolDrawingName)
Dim oSymDef As SketchedSymbolDefinition

oSymDef = oDrawDoc.SketchedSymbolDefinitions.AddFromLibrary(oSketchSymLib, oSymbolNameNew, True)

Dim oSketchedSymbol As SketchedSymbol
Dim oSketchedSymbols As SketchedSymbols
oSketchedSymbols = oDrawDoc.ActiveSheet.SketchedSymbols

Dim oSymbolOld As SketchedSymbol = Nothing

For Each oSketchedSymbol In oSketchedSymbols
    If oSketchedSymbol.Name = oSymbolNameOld Then
        oSymbolOld = oSketchedSymbol
        Exit For
    End If
Next

Dim oPosition As Point2d = oSymbolOld.Position
oSymbolOld.Delete

Dim oSymbolNew As SketchedSymbol
oSymbolNew = oDrawDoc.ActiveSheet.SketchedSymbols.Add(oSymDef, oPosition)

---

Gruss Raphael

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

---

Danke für die schnelle Hilfe, Raphael.

Wo  und wie muss ich die Regel erstellen. 
Ich hatte vorher noch keine Regel erstellt.

Kannst Du mir vielleicht eine Kurzanleitung dazu geben.

Gruß,
Cihan

------------------
Selbstgemachte Fehler dürfen nicht übernommen werden

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

---

Zuerst legst du ein Regel-Verzeichnis fest, falls du das noch nicht hast. Das befindet sich unter Extras/Optionen/iLogic-Konfiguration. Im Externen Regelverzeichnis befindet sich entweder dein Pfad oder du fügst mit dem Plus-Symbol ein neues Verzeichnis hinzu. Darin speicherst du die Regel als .txt Datei mit einem Namen wie "dwg Skizzensymbol tauschen".
Nun kannst du in deiner Zeichnung neben dem Modell-Fenster mit dem Plus-Symbol das iLogic-Fenster öffnen und darin auf die externen Regeln wechseln. Dort findest du dann deine Regel. Entweder startest du diese Regel nun manuell in den Zeichnungen bei denen du das Skizzensymbol tauschen möchtest oder du definierst im Ereignisauslöser, wann die Regel ausgelöst werden soll. Den Ereignisauslöser findest du unter Verwalten/iLogic/Ereignisauslöser. Dort kannst du die Regel auf ein oder mehrere Ereignisse ziehen im Register Zeichnungen.

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