Import symbolů

Pomocí příkazu MAPSYMBOLIMPORTEXPORT nebo skriptu v jazyce Microsoft VBA můžete importovat více symbolů během jediné operace importu.

Při stylizování prvků bodů, linií nebo polygonů můžete importovat symbol pomocí možnosti Načíst. Můžete také použít příkaz MAPSYMBOLIMPORTEXPORT podle popisu níže.

Import symbolů pomocí uživatelského rozhraní

  1. Nastavte systémovou proměnnou CMDDIA nebo FILEDIA na hodnotu 1.
  2. Na příkazovém řádku zadejte příkaz MAPSYMBOLIMPORTEXPORT.
  3. V dialogu Úložiště symbolů klikněte na tlačítko Import.
  4. V dialogu Otevřít vyhledejte a vyberte soubor, který chcete importovat, nebo zadejte jeho název do pole Název souboru a klikněte na tlačítko Otevřít.

    Bloky lze importovat do souborů DWG jako symboly. Do úložiště symbolů můžete importovat také knihovnu symbolů ve formátu LAYER, vektorový symbol ve formátu XML, definici šrafování ve formátu PAT, styl čáry ve formátu LIN nebo rastrové obrázky ve formátech GIF, JPG, BMP a PNG.

  5. Klikněte na tlačítko Zavřít.

Import symbolů bez použití uživatelského rozhraní

  1. Nastavte systémové proměnné CMDDIA a FILEDIA na hodnotu 0.
  2. Na příkazovém řádku zadejte příkaz MAPSYMBOLIMPORTEXPORT.
  3. Po zobrazení výzvy zvolte možnost Import.
  4. Zadejte cestu k souboru symbolů, který obsahuje symboly k importu.
  5. Pokud chcete nahradit existující symboly se stejným názvem, zvolte možnost Ano. Jestliže nechcete přepsat symboly se stejným názvem, zvolte možnost Ne.
  6. Počkejte, až se zobrazí zpráva Import symbolů byl úspěšně dokončen.
Tip: Podle potřeby můžete automaticky dokončit výše uvedené kroky pomocí skriptu. Pomocí příkazového řádku načtěte soubor skriptu prostřednictvím příkazu DEMO a počkejte, dokud nebude provádění příkazu dokončeno. Dále následuje příklad skriptu. Uložte jej jako soubor s příponou SCR. 
CMDDIA 0
FILEDIA 0
_MAPSYMBOLIMPORTEXPORT _IMPORT "C:\data\MySymbols.dwg" _YES

Možnost skriptu v jazyce VBA

Chcete-li ušetřit čas, můžete importovat symboly pro více výkresů během jediné operace a to pomocí skriptu Microsoft Visual Basic for Applications (VBA). Dále následuje vzorový příklad skriptu. Můžete jej použít jako šablonu, provést požadované změny a potom jej uložit jako soubor BAS. 

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

Ve vzorovém skriptu existuje modul ImportSymbolIntoDWG s dílčím modulem ImportSymbolIntoAllDWG(). Chcete-li určit cestu k umístění, kde jsou uloženy výkresy, je nutné upravit proměnnou cesty. Chcete-li vybrat soubor DWG, který obsahuje symboly určené k importu, je nutné upravit proměnnou prototypového souboru DWG.

Import symbolů pro více výkresů pomocí skriptu v jazyce VBA

  1. Všechny výkresy, u kterých chcete aktualizovat symboly, umístěte do jedné složky.
  2. Na příkazovém řádku aplikace Sada nástrojů AutoCAD Map 3D zadejte příkaz VBAIDE, pomocí kterého se otevře okno skriptu v jazyce Microsoft VBA.

    Pokud jste již nenainstalovali nástroj Autodesk AutoCAD VBA Enabler, zobrazí se výzva k jeho stažení.

  3. V okně jazyka Microsoft VBA proveďte následující kroky:
    1. Klikněte na soubor a vyberte možnost Import souboru.
    2. V dialogu Import souboru vyhledejte a vyberte soubor BAS, který obsahuje skript.
    3. Klikněte na tlačítko Otevřít.
    4. V okně jazyka Microsoft VBA klikněte na tlačítko Uložit.
    5. V dialogu Uložit jako zadejte cestu a název souboru a klikněte na tlačítko Uložit.
  4. Zavřete okno jazyka Microsoft VBA.
  5. Na příkazovém řádku zadejte příkaz VBALOAD, kterým načtete soubor DVB uložený pomocí výše uvedených kroků.

    Pokud se zobrazí upozornění na povolení maker, klikněte na tlačítko Povolit makra.

  6. Na příkazovém řádku zadejte příkaz VBARUN a zvolte příslušné makro, které se má spustit.

Související úlohy