Para importar símbolos

Você pode importar múltiplos símbolos em uma única operação, usando o comando MAPSYMBOLIMPORTEXPORT ou um script Microsoft VBA.

Quando você define o estilo dos recursos, Ponto, Linha ou Polígono, a opção Carregar permite importar um símbolo. Você também pode usar o comando MAPSYMBOLIMPORTEXPORT, como descrito abaixo.

Para importar símbolos usando uma interface de usuário

  1. Defina a variável de sistema CMDDIA ou FILEDIA como '1'.
  2. No prompt de comando, insira MAPSYMBOLIMPORTEXPORT.
  3. Em Repositório de símbolos, clique em Importar.
  4. Na caixa de diálogo Abrir, localize e selecione o arquivo que desejar importar ou insira o nome do arquivo em Nome do arquivo, e clique em Abrir.

    Você pode importar blocos nos arquivos DWG como símbolos. Também é possível importar uma biblioteca de símbolos (*.layer), um símbolo de vetor (*.xml), uma definição de hachura (*.pat), um estilo de linha (*.lin), ou imagens raster (*.gif, *.jpg *.bmp *.png) no repositório de símbolos.

  5. Clique em Fechar.

Para importar símbolos sem usar uma interface de usuário

  1. Defina as variáveis de sistema CMDDIA e FILEDIA como "0".
  2. No prompt de comando, insira MAPSYMBOLIMPORTEXPORT.
  3. Seguindo o prompt, selecione Importar.
  4. Insira o caminho para o arquivo que de símbolo contém os símbolos que desejar importar.
  5. Escolha Sim se você desejar substituir os símbolos existentes que têm o mesmo nome, ou Não, se não desejar substituir os símbolos com o mesmo nome.
  6. Aguarde até que você veja a mensagem "A importação do símbolo foi concluída com êxito!'.
Dica: Como uma opção, você pode automaticamente completar as etapas acima usando um script. Na linha de comando, carregue o arquivo de script com o comando SCRIPT e aguarde até que ele termine. A seguir está um exemplo de um script. Salve-o como um arquivo com a extensão .scr. 
CMDDIA 0
FILEDIA 0
_MAPSYMBOLIMPORTEXPORT _IMPORT "C:\data\MySymbols.dwg" _YES

Opção de script VBA

Para poupar tempo, é possível importar os símbolos para muitos desenhos em uma única operação, usando um script Microsoft Visual Basic for Applications (VBA). O script a seguir é uma amostra. É possível utilizá-lo como um modelo, fazer as modificações necessárias e, a seguir, salvá-lo como um arquivo .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

No script de exemplo, há um módulo "ImportSymbolIntoDWG" com um sub "ImportSymbolIntoAllDWG()". Você precisa modificar a variável "path" para especificar o caminho onde os desenhos estão localizados e modificar a variável "prototypeDWG" para apontar para o arquivo DWG que contém os símbolos que desejar importar.

Para importar símbolos para múltiplos desenhos usando um script VBA

  1. Coloque em uma pasta todos os desenhos para os quais você deseja atualizar os símbolos.
  2. Na linha de comando do Conjunto de ferramentas do AutoCAD Map 3D, insira VBAIDE para abrir a janela Microsoft VBA.

    Uma mensagem solicitará que você faça o download do Autodesk AutoCAD VBA Enabler caso ele não esteja instalado ainda.

  3. Na janela Microsoft VBA, faça o seguinte:
    1. Clique em Arquivo e selecione Importar arquivo.
    2. Na caixa de diálogo Importar arquivo, localize e selecione o arquivo .bas que contém o script.
    3. Clique em Abrir.
    4. Na janela Microsoft VBA, clique em Salvar.
    5. Na caixa de diálogo Salvar como, especifique o caminho e o nome do arquivo e, a seguir, clique em Salvar.
  4. Feche a janela Microsoft VBA.
  5. Na linha de comando, insira VBALOAD para carregar o arquivo .dvb salvo acima.

    Se o sistema lhe avisar sobre as macros, clique em Ativar macros.

  6. Na linha de comando, insira VBARUN e selecione a macro relacionada a ser executada.

Tarefas relacionadas