Para importar símbolos

Puede importar varios símbolos en una sola operación con el comando MAPSYMBOLIMPORTEXPORT o un script VBA de Microsoft.

Cuando aplica estilos a elementos de punto, línea o polígono, la opción de carga permite importar un símbolo. También puede utilizar el comando MAPSYMBOLIMPORTEXPORT, tal como se describe a continuación.

Para importar símbolos mediante una interfaz de usuario

  1. Establezca en 1 la variable de sistema CMDDIA o FILEDIA.
  2. En la solicitud de comandos, escriba MAPSYMBOLIMPORTEXPORT.
  3. En el cuadro de diálogo Repositorio de símbolos, haga clic en Importar.
  4. En el cuadro de diálogo Abrir, busque y seleccione el archivo que desee importar, o escriba el nombre del archivo en Nombre de archivo y pulse Abrir.

    Se pueden importar bloques en archivos DWG como símbolos. También puede importar una biblioteca de símbolos (*.layer), un símbolo vectorial (*.xml), una definición de sombreado (*.pat), un estilo de línea (*.lin) o imágenes ráster (*.gif, *.jpg, *.bmp, *.png) al repositorio de símbolos.

  5. Pulse Cerrar.

Para importar símbolos sin utilizar una interfaz de usuario

  1. Establezca en 0 las variables de sistema CMDDIA y FILEDIA.
  2. En la solicitud de comandos, escriba MAPSYMBOLIMPORTEXPORT.
  3. Cuando se le solicite, elija Importar.
  4. Indique la ruta del archivo de símbolos que contiene los símbolos que desea importar.
  5. Elija Sí si desea reemplazar los símbolos existentes con el mismo nombre o No si no desea sobrescribir los símbolos con el mismo nombre.
  6. Espere hasta que vea el mensaje La importación de símbolos ha terminado correctamente.
Consejo: Si lo desea, puede completar automáticamente los pasos anteriores por medio de un script. En la línea de comando, cargue el script con el comando SCRIPT y espere hasta que haya finalizado. El siguiente es un ejemplo de un script. Guárdelo como un archivo con la extensión .scr. 
CMDDIA 0
FILEDIA 0
_MAPSYMBOLIMPORTEXPORT _IMPORT "C:\data\MySymbols.dwg" _YES

Opción de script VBA

Para ahorrar tiempo, puede importar los símbolos de varios dibujos en una sola operación mediante un script VBA (Microsoft Visual Basic for Applications). El script siguiente es un ejemplo. Lo puede utilizar como plantilla; realice las modificaciones necesarias y, a continuación, guárdelo como un archivo .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

En el script de ejemplo, existe un módulo "ImportSymbolIntoDWG" con un subelemento "ImportSymbolIntoAllDWG()". Debe modificar la variable "path" para especificar la ruta en la que se encuentran los dibujos. A continuación, modifique la variable "prototypeDWG" para que señale al archivo DWG que contiene los símbolos que desea importar.

Para importar símbolos de varios dibujos mediante un script VBA

  1. Coloque en una carpeta todos los dibujos para los que desea actualizar los símbolos.
  2. En la línea de comandos de Conjunto de herramientas AutoCAD Map 3D, escriba VBAIDE para abrir la ventana Microsoft VBA.

    Un mensaje le indica que descargue el activador de VBA de Autodesk AutoCAD si todavía no lo ha instalado.

  3. En la ventana Microsoft VBA, realice las siguientes acciones:
    1. Seleccione el archivo y pulse Importar archivo.
    2. En el cuadro de diálogo Importar archivo, busque y seleccione el archivo .bas que contiene el script.
    3. Haga clic en Abrir.
    4. En la ventana Microsoft VBA, haga clic en Guardar.
    5. En el cuadro de diálogo Guardar como, especifique la ruta y el nombre de archivo y, a continuación, haga clic en Guardar.
  4. Cierre la ventana Microsoft VBA.
  5. En la línea de comando, escriba VBACARGAR para cargar el archivo .dvb guardado anteriormente.

    Si el sistema muestra un mensaje de advertencia acerca de las macros, haga clic en Activar macros.

  6. En la línea de comando, escriba VBAEJECUTAR y seleccione la macro que desee ejecutar.

Tareas relacionadas