So importieren Sie Symbole

Sie können in einem einzigen Vorgang mehrere Symbole importieren, indem Sie den Befehl MAPSYMBOLIMPORTEXPORT oder ein Microsoft VBA-Skript verwenden.

Wenn Sie Punkt-, Linien- oder Polygonobjekte mit einem Stil versehen, können Sie mit der Option Laden ein Symbol importieren. Sie können auch, wie nachstehend beschrieben, den Befehl MAPSYMBOLIMPORTEXPORT verwenden.

So importieren Sie Symbole über eine Benutzeroberfläche

  1. Setzen Sie die Systemvariable CMDDIA oder FILEDIA auf den Wert '1'.
  2. Geben Sie in der Befehlszeile MAPSYMBOLIMPORTEXPORT ein.
  3. Klicken Sie im Symbol-Repository auf Importieren.
  4. Suchen Sie im Dialogfeld Öffnen die zu importierende Datei und wählen Sie sie aus, oder geben Sie unter Dateiname den Namen der Datei ein und klicken Sie auf Öffnen.

    Sie können Blöcke in DWG-Dateien als Symbole importieren. Sie können in das Symbol-Repository auch eine Symbolbibliothek (*.layer), ein Vektorsymbol (*.xml), eine Schraffurdefinition (*.pat), einen Linienstil (*.lin) oder Rasterbilder (*.gif, *.jpg *.bmp *.png) importieren.

  5. Klicken Sie auf Schließen.

So importieren Sie Symbole ohne Benutzeroberfläche

  1. Setzen Sie die Systemvariablen CMDDIA und FILEDIA auf den Wert '0'.
  2. Geben Sie in der Befehlszeile MAPSYMBOLIMPORTEXPORT ein.
  3. Wählen Sie bei entsprechender Aufforderung Importieren.
  4. Geben Sie den Pfad der Symboldatei ein, die die zu importierenden Symbole enthält.
  5. Wählen Sie Ja, wenn Sie die vorhandenen Symbol mit demselben Namen ersetzen möchten, oder Nein, wenn Sie die Symbole mit demselben Namen nicht überschreiben möchten.
  6. Warten Sie, bis Sie die Meldung "Der Import der Symbole wurde erfolgreich abgeschlossen." sehen.
Tipp: Optional können Sie die oben beschriebenen Schritte mithilfe eines Skripts automatisch ausführen. Laden Sie in der Befehlszeile mit dem SCRIPT-Befehl die Skriptdatei, und warten Sie, bis dieser abgeschlossen wurde. Im Folgenden sehen Sie ein Beispiel für ein Skript. Speichern Sie es als eine Datei mit der Erweiterung .scr. 
CMDDIA 0
FILEDIA 0
_MAPSYMBOLIMPORTEXPORT _IMPORT "C:\data\MySymbols.dwg" _YES

VBA-Skriptoption

Zur Zeitersparnis können Sie die Symbole für viele Zeichnungen mithilfe eines VBA-Skripts (Microsoft Visual Basic for Applications) in einem einzigen Vorgang importieren. Das folgende Skript ist ein Beispiel. Sie können es als Vorlage verwenden, die erforderlichen Änderungen vornehmen und es als .bas-Datei speichern. 

Attribute VB_Name = "ImportSymbolIntoDWG"
Sub ImportSymbolIntoAllDWG()
    Dim fileSystemObject, fileSystemFolder, file, fileCollection
    Dim collectionOfFiles As New Collection
    
    Dim path As String
    ' Define where the DWG files are located
    path = "C:\Autodesk\DWGFiles"
    
    Dim prototypeDWG As String
    ' Define where the symbol(s) should be imported from
    prototypeDWG = "C:\Autodesk\Prototype\Prototype_GA_modified.dwg"
    
    Dim currentSDI As Integer
    currentSDI = ThisDrawing.GetVariable("SDI")
    
    If (currentSDI = 1) Then
        MsgBox "The functions works only with multiple drawings [SDI=0]"
        Exit Sub
    End If
    
    '' use this to request the path
    'path = ThisDrawing.Utility.GetString(1, vbCrLf & "Enter the path of the DWG files to update: ")
    'prototypeDWG = ThisDrawing.Utility.GetString(1, vbCrLf & "Enter the path of the prototype DWG: ")
    
    ThisDrawing.SetVariable "FILEDIA", 0
    ThisDrawing.SetVariable "CMDDIA", 0
    
    Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
    Set fileSystemFolder = fileSystemObject.GetFolder(path)
    Set fileCollection = fileSystemFolder.Files
    
    For Each file In fileCollection
        If UCase(Right(file.Name, 4)) = UCase(".dwg") Then
            collectionOfFiles.Add file.path
        End If
    Next
    
    For Each drawing In collectionOfFiles
        Application.Documents.Open (drawing)
        ThisDrawing.SendCommand "_MAPSYMBOLIMPORTEXPORT" & vbCr & "_IMPORT" & vbCr & prototypeDWG & vbCr & "_YES" & vbCr
        ThisDrawing.Save
        ThisDrawing.Close
    Next drawing
    
End Sub

Im Beispielskript ist ein Modul, "ImportSymbolIntoDWG" mit einem untergeordneten Element, "ImportSymbolIntoAllDWG()", vorhanden. Sie müssen die Variable "path" ändern, um das Verzeichnis, in dem sich die Zeichnungen befinden, anzugeben, und die Variable "prototypeDWG" so ändern, dass sie auf die DWG-Datei verweist, die die zu importierenden Symbole enthält.

So importieren Sie mithilfe eines VBA-Skripts Symbole für mehrere Zeichnungen

  1. Legen Sie in einem Ordner alle Zeichnungen ab, für die Sie Symbole aktualisieren möchten.
  2. Geben Sie in der AutoCAD Map 3D-Toolset-Befehlszeile VBAIDE ein, um das Microsoft VBA-Fenster zu öffnen.

    In einer Meldung werden Sie dazu aufgefordert, den Autodesk AutoCAD VBA Enabler herunterzuladen, sofern Sie ihn noch nicht installiert haben.

  3. Gehen Sie im Microsoft VBA-Fenster wie folgt vor:
    1. Klicken Sie auf die Datei und wählen Sie Datei importieren.
    2. Suchen Sie im Dialogfeld Datei importieren die .bas-Datei, die das Skript enthält, und wählen Sie sie aus.
    3. Klicken Sie auf Öffnen.
    4. Klicken Sie im Microsoft VBA-Fenster auf Speichern.
    5. Geben Sie im Dialogfeld Speichern unter den Pfad und den Dateinamen an und klicken Sie dann auf Speichern.
  4. Schließen Sie das Microsoft VBA-Fenster.
  5. Geben Sie in der Befehlszeile VBALOAD ein, um die zuvor gespeicherte .dvb-Datei zu laden.

    Wenn das System eine Warnung aufgrund der Makros ausgibt, klicken Sie auf Makros aktivieren.

  6. Geben Sie in der Befehlszeile VBARUN ein und wählen Sie das auszuführende Makro.

Zugehörige Tasks