Curso - Curso práctico de presonalización y programación bajo Autocad 14

DOCE.10. EL TRAZADO

El trazado o plotteado de dibujos desde el VBA de AutoCAD 14 se maneja mediante el objeto de trazado llamado Plot. Si comprobamos la lista jerárquica de objetos, éste es descendiente directo del documento actual activo (ActiveDocument).

Como siempre, si vamos a utilizarlo mucho en un programa podemos declarar una variable para él, y después asignarle su valor, por ejemplo así:

Option Explicit

Dim AcadDoc As Object
Dim AcadPlot As Object

y luego:

Set AcadDoc = GetObject(, "AutoCAD.Application").ActiveDocument
Set AcadPlot = AcadDoc.Plot

Propiedades del objeto de trazado:

AdjustAreaFill
Application
HideLines
Origin
PaperSize
PlotOrientation
PlotScale
PlotUnits
Rotation

Métodos del objeto de trazado:

LoadPC2
PlotExtents
PlotLimits
PlotPreview
PlotToDevice
PlotToFile
PlotView
PlotWindow
PlotWithConfigFile
SavePC2

Vemos que este objeto posee diferentes propiedades (algunas ya conocidas) y métodos que habremos de utilizar con conveniencia para asegurar un trazado fidedigno. Por ello vamos a pasar directamente a su explicación.

· AdjustAreaFill. Obtiene y/o asigna el estado actual de activación de ajuste de área de relleno para el trazado. La variable que lo recoja o el valor que se asigne serán ambos tipo Boolean; siendo True la opción para activado y False la opción para desactivado.

La sintaxis para asignar un valor es la siguiente:

ObjetoTrazado.AdjustAreaFill = BooAjusteRelleno

La sintaxis para obtener el valor actual es la que sigue:

BooAjusteRelleno = ObjetoTrazado.AdjustAreaFill

· HideLines. Obtiene y/o asigna el estado actual de ocultación de líneas para el trazado. La variable que lo recoja o el valor que se asigne serán ambos tipo Boolean; siendo True la opción para activado y False la opción para desactivado.

La sintaxis para asignar un valor es la siguiente:

ObjetoTrazado.HideLines = BooLíneasOcultas

La sintaxis para obtener el valor actual es la que sigue:

BooLíneasOCultas = ObjetoTrazado.HideLine

NOTA: Esta propiedad se refiere a los objetos del Espacio Modelo. Para ocultar líneas en las ventanas de Espacio Papel utilizamos la propiedad ya estudiada RemoveHiddenLines del objeto de ventana de Espacio Papel.

· PaperSize. Obtiene el tamaño actual para el papel de impresión o trazado. También permite asignar un tamaño. La sintaxis para ello es:

ObjetoTrazado.PaperSize = DblMatrizTamaños

La sintaxis para obtener el tamaño de papel actual asignado:

VarMatrizTamaños = ObjetoTrazado.PaperSize

DblMatrizTamaños es una matriz, tabla o array de dos elementos Double. El primero de ellos dice relación a la anchura del papel, y el segundo a la altura del mismo.

· PlotOrientation. Esta propiedad PlotOrientation permite especificar y obtener una orientación para el papel de trazado.

Para asignar:

ObjetoTrazado.PlotOrientation = IntOrientación

Para obtener:

IntOrientación = ObjetoTrazado.PlotOrientation

IntOrientation es un valor Integer que además admite las constantes siguientes:

acPlotOrientationPortrait
acPlotOrientationLandscape

Ambas constantes se refieren a la orientación vertical (portrait) o a la orientación apaisada (landscape).

· PlotScale. PlotScale permite especificar y obtener una escala para el trazado. Para asignar:

ObjetoTrazado.PlotScale = DblMatrizEscala

Para obtener:

VarMatrizEscala = ObjetoTrazado.PlotScale

DblMatrizEscala es una matriz de dos valores tipo Double. El primero indica las unidades de trazado y el segundo las unidades de dibujo, es decir, unidades en el papel y unidades en el dibujo.

NOTA: Si ambos valores son igual a 0, la escala se corresponde con Escala hasta ajustar del letrero de trazado/impresión de AutoCAD 14.

· PlotUnits. PlotUnits permite obtener y/o asignar las unidades del trazado, es decir o milímetros (métricas) o pulgadas (inglesas). Para asignar:

ObjetoTrazado.PlotUnits = IntUnidades

Para obtener:

IntUnidades = ObjetoTrazado.PlotUnits

IntUnidades es un valor Integer que también admite las siguientes constantes:

acEnglish
acMetric

Las demás propiedades ya están estudiadas. Decir que, obviamente, la rotación y el origen como propiedades en este objeto Plot (Rotation y Origin), se refieren a la rotación y al origen del trazado con el mismo significado que en el cuadro de diálogo de AutoCAD 14. Pasemos a estudiar los métodos.

· LoadPC2. Carga las especificaciones de trazado del archivo .PC2 especificado:

ObjTrazado.LoadPC2(StrNombrePC2)

StrNombrePC2 es un cadena (String) que indica el nombre del archivo y su ubicación, por ejemplo:

Option Explicit

Dim AcadDoc As Object
Dim AcadPlot As Object

Sub Macro()
  Set AcadDoc = GetObject(, "AutoCAD.Application").ActiveDocument
  Set AcadPlot = AcadDoc.Plot
  AcadPlot.LoadPC2 ("c:\autocad\xtras\cfgplot.pc2")
End Sub

NOTA: Estos archivos .PC2 tienen información del dispositivo de trazado, además de todo el resto de características del trazado en sí. No así ocurría con los archivos .PCP (de versiones anteriores a la 14 de AutoCAD), que únicamente guardaban (y guardan, si se quieren utilizar) información del trazado; y se materializaban en el dispositivo actualmente establecido.

· PlotExtents. Define como área de trazado la extensión del dibujo. Hay que tener en cuenta que esta extensión no se actualiza cuando hay reducciones en el dibujo, por lo que es recomendable hacer un Zoom Extensión antes de trazar el dibujo:

ObjTrazado.PlotExtents

· PlotLimits. Define como área de trazado los límites del dibujo. Equivale, como sabemos, a realizar un Zoom Todo:

ObjTrazado.PlotLimits

· PlotPreview. Muestra la presentación preliminar típica de AutoCAD 14 en cualquiera de sus dos versiones (según se indique), parcial o total:

ObjTrazado.PlotPreview(IntModoPresPrel)

IntModoPresPrel es un valor Integer que admite también las siguientes constantes:

acPartialPreview
acFullPreview

· PlotToDevice. Realiza el trazado del dibujo en el dispositivo cuyo nombre se indica (String). Este nombre es aquel con el que se ha configurado dicho dispositivo. La lista de todos los dispositivos de impresión se encuentra tras el comando PREFERENCIAS (PREFERENCES en versiones sajonas) de AutoCAD, en la pestaña Impresora:

ObjTrazado.PlotToDevice(StrDispositivo)

NOTA: Si StrDispositivo es una cadena vacía o nula (""), el trazado se envía al dispositivo trazador configurado por defecto actualmente.

· PlotToFile. Realiza el trazado del dibujo en el archivo cuyo nombre se indica (String). Por defecto, la extensión de los archivos de trazado es .PLT.

ObjTrazado.PlotToFile(StrArchivo)

· PlotView. Define como área de trazado la vista cuyo nombre se indica como cadena (String):

ObjTrazado.PlotView(StrVista)

· PlotWindow. Define como área de trazado la ventana cuyas esquinas se especifican:

ObjTrazado.PlotWindow(DblEsquinaSupIz, DblEsquinaInfDcha)

Las dos esquinas (superior izquierda e inferior derecha) son matrices de tres elementos Double cada una (X, Y y Z en el SCU).

· PlotWithConfigFile. Realiza el trazado del dibujo de acuerdo con las especificaciones que en el archivo de configuración se indican. Este archivo puede ser un .PCP o un .PC2:

ObjTrazado.PlotWithConfigFile(StrArchivoConfiguración)

StrArchivoConfiguración es un valor de cadena (String) con el nombre y la ruta del archivo en cuestión.

· SavePC2. Como contraposición a LoadPC2, SavePC2 guarda las especificaciones de trazado en el archivo .PC2 especificado:

ObjTrazado.SavePC2(StrNombrePC2)

StrNombrePC2 es un cadena (String) que indica el nombre del archivo y su ubicación.

El procedimiento típico para imprimir un dibujo desde VBA puede parecer extraño, pero no lo es tanto. Teniendo en cuenta que únicamente los métodos PlotToDevice, PlotToFile y PlotWithConfigFile envían realmente el documento al trazador o a la impresora, hemos de diseñar un algoritmo que nos permita seguir determinados pasos para la impresión típica de un dibujo de AutoCAD.

Evidentemente si deseamos enviar el trazado a un archivo, utilizaremos el método PlotToFile del objeto de trazado Plot. Si ya disponemos de un archivo de configuración de trazado .PCP o .PC2 a nuestro gusto, utilizaremos el método PlotWithConfigFile.

Pero lo lógico será que nuestro programa se ejecute en máquinas de las cuales no conocemos su configuración y, por lo tanto, no sabremos qué impresoras o qué plotters tienen instalados sus usuarios; o incluso si disponen de alguno instalado.

Por lo tanto, los pasos lógicos a la hora de imprimir un dibujo serán los siguientes:

Averiguar qué dispositivos de trazado hay instalados.

Permitir al usuario elegir entre cualquiera de ellos.

Permitir al usuario elegir las preferencias para la impresión o trazado.

Enviar el dibujo al dispositivo elegido.

Para averiguar los dispositivos sólo tenemos que extraer en un bucle todos los valores de la variable PLOTID, que guarda la descripción del trazador configurado por defecto, apoyándonos en la variable PLOTTER, que cambia el trazador por defecto.

Con este pequeño truco, la mayor parte del problema está resuelto. Pero para verlo correctamente, comentaremos un programa que permite imprimir el dibujo actual, ya sea en su extensión o en sus límites.

Veamos cómo sería el letrero de diálogo (formulario en VBA) que manejaría este programa, por ejemplo:

Y ahora se muestra el código VBA de susodicho:

Option Explicit

Dim AcadDoc As Object
Dim AcadPlot As Object
Dim StrPlot As String
Dim NumPlot As Integer

Private Sub UserForm_Initialize()
  On Error Resume Next

  Set AcadDoc = GetObject(, "AutoCAD.Application").ActiveDocument
  Set AcadPlot = AcadDoc.Plot

  NumPlot = 0

  Do
    Call AcadDoc.SetVariable("PLOTTER", NumPlot)
    If Err.Number <> 0 Then Exit Do
    StrPlot = AcadDoc.GetVariable("PLOTID")
    Dispositivo.AddItem StrPlot, NumPlot
    NumPlot = NumPlot + 1
  Loop
End Sub

Private Sub Aceptar_Click()
  Dim Índice As Integer
  Dim Papel(1 To 2) As Double
  Dim Escala(1 To 2) As Double
  Dim Origen(1 To 3) As Double

  If Dispositivo.ListIndex = -1 Then MsgBox "Escoja un dispositivo": Exit Sub
  Índice = Dispositivo.ListIndex
  AcadPlot.PlotUnits = acMetric
  Papel(1) = 210: Papel(2) = 297
  AcadPlot.PaperSize = Papel
  AcadPlot.PlotOrientation = acPlotOrientationPortrait
  Escala(1) = 0: Escala(2) = 0
  AcadPlot.PlotScale = Escala
  Origen(1) = 0: Origen(2) = 0: Origen(3) = 0
  AcadPlot.Origin = Origen
  AcadPlot.Rotation = 0
  AcadPlot.AdjustAreaFill = True
  AcadPlot.HideLines = True
  If Extensión.Value = True Then
    AcadPlot.PlotExtents
  Else
    AcadPlot.PlotLimits
  End If
  Call AcadDoc.SetVariable("PLOTTER", Índice)
  StrPlot = AcadDoc.GetVariable("PLOTID")
  AcadPlot.PlotToDevice (StrPlot)
  End
End Sub

Private Sub Cancelar_Click()
  End
End Sub

Comentaremos el programa por procedimientos Sub.

(General)_(Declaraciones)

Se declaran las variables de objeto típicas (objetos de AutoCAD) y alguna más que nos será útil a lo largo del programa.

UserForm_Initialize()

Aquí, lo primero que se hace es establecer la condición que dice que si existiera algún error, se continuaría en la línea siguiente (veremos para qué). Inmediatamente después se inicializan las variables de los objetos de AutoCAD (se les da valor).

Las dos variables que hemos declarado al principio las vamos a utilizar aquí. NumPlot va a guardar un valor entero que va a ser el número de trazador, además del índice del cuadro de lista. StrPlot será una variable de cadena que almacenará las distintas descripciones de los diferentes trazadores. Recordemos que al método PlotToDevice hay que darle un nombre de descripción de trazador.

Lo que hace la siguiente serie de sentencias de este Sub es rellenar el cuadro de lista con las descripciones de los trazadores, impresoras u otros dispositivos (archivo en formato DXB, por ejemplo). Se inicializa NumPlot a 0. Se sigue con una estructura repetitiva aparentemente infinita; pero no es así. Veamos:

· Se introduce el valor de NumPlot (0) en la variable de sistema PLOTTER que, como hemos dicho, almacena un número que se corresponde con el trazador actual configurado. El valor de PLOTTER va desde 0 hasta el número de configuraciones de trazador menos uno (si son tres como en el ejemplo, serán 0, 1 y 2); hasta un máximo de 29. El truco está en que, si damos un valor por encima de dicho número, PLOTTER devuelve un mensaje de error. Este mensaje es el que queremos captar con el On Error Resume Next del principio y con la siguiente sentencia If Err.Number <> 0 Then Exit Do.

· Por lo tanto, si ha habido error se sale del bucle. Si no hay error se continúa extrayendo la descripción del trazador actual y guardándola en StrPlot.

· A continuación de añade esa descripción al cuadro de lista con el índice igual al número de trazador.

· Se incrementa el valor de NumPlot en una unidad con el contador-suma (NumPlot = NumPlot + 1) y se vuelve a empezar. Ahora el trazador por defecto será otro y la descripción otra. Y así sucesivamente.

· En el momento en que se hayan añadido todos los dispositivos configurados, se produce el error controlado y se sale del bucle.

Sigamos con lo que ocurre al pulsar el botón Aceptar.

Aceptar_Click()

Se dimensionan algunas variables que vamos a utilizar. A continuación se controla si la propiedad ListIndex del cuadro de lista es igual a -1, lo que querría decir que no se ha seleccionado trazador alguno. En este caso se muestra un mensaje y se sale del procedimiento Sub, permitiendo así al usuario que elija un trazador.

En el momento en que se elija uno se hace su índice igual a la variable Índice. Recordemos que el índice era igual al número del trazador.

Se establece toda una serie de valores para la escala, las líneas ocultas, etcétera. Algunos de ellos no pueden estar dispuestos en cualquier orden. Por norma general conviene hacer caso a la lógica y dar valores según se haría en AutoCAD. Así, resulta lógico establecer primero las unidades, luego el tamaño del papel, la orientación, la escala, el origen, la rotación...

Se controla también si el usuario eligió un plotteo de la extensión o de los límites, actuando en consecuencia con el método PlotExtents o PlotLimits.

Por fin se establece en la variable de sistema de AutoCAD PLOTTER el valor del trazador (o índice) escogido y se extrae de PLOTID la descripción de ese trazador. Esta descripción se proporciona al método PlotToDevice y el proceso ha concluido.

Cancelar_Click()

Aquí simplemente se termina el programa, sin más.

5ª fase intermedia de ejercicios

· Compréndase perfectamente el método de impresión explicado y aplíquese a cualquiera de los ejercicios anteriores que dibujen objetos.

DOCE.11. EL OBJETO DE PREFERENCIAS

Este es el último objeto que estudiaremos. El objeto de preferencias, llamado Preferences, controla todas las preferencias u opciones de AutoCAD 14. Podríamos decir que es el equivalente al cuadro que despliega el comando PREFERENCIAS (PREFERENCES en versión inglesa) de AutoCAD, más o menos.

Como comprobamos, si retomamos la tabla jerárquica de objetos del principio de este MÓDULO, el objeto Preferences "cuelga" directamente del objeto raíz de aplicación (Application). Es por ello que si, como siempre, deseamos utilizarlo mucho, podemos crear una variable de acceso directo de la siguiente forma, por ejemplo (continuando la notación que venimos utilizando):

Option Explicit

Dim AcadApp As Object
Dim AcadPref As Object

para luego dar valores así:

Set AcadApp = GetObject(, "AutoCAD.Application")
Set AcadPref = AcadApp.Preferences

Propiedades del objeto de preferencias:

ActiveProfile
AltFontFile
AltTabletMenuFile
Application
ArcSmoothness
AutoAudit
AutoSaveFile
AutoSaveInterval
BeepOnError
ConfigFile
ContourLinesPerSurface
CreateBackup
CrosshairColor
CursorSize
CustomDictionary
DefaultInternetURL
DemandLoadARXApp
DisplayDraggedObject
DisplayScreenMenu
DisplayScrollBars
DisplaySilhouette
DockedVisibleLines
DriversPath
EnableStartupDialog
FontFileMap
FullCrcValidation
GraphicFont
GraphicFontSize
GraphicFontStyle
GraphicsTextBackgrndColor
GraphicsTextColor
GraphicsWinBackgrndColor
HistoryLines
HelpFilePath
IncrementalSavePercent
KeyboardAccelerator
KeyboardPriority
LicenseServer
LogFileName
LogFileOn
MainDictionary
MaxActiveViewports
MaxAutoCADWindow
MaxNumOfSymbols
MeasurementUnits
MenuFile
MonochromeVectors
PersistentLISP
PostScriptPrologFile
PrintFile
PrintSpoolerPath
PrintSpoolExecutable
ProxyImage
RenderSmoothness
SavePreviewThumbnail
SegmentPerPolyline
ShowProxyDialogBox
ShowRasterImage
SupportPath
TempFileExtension
TempFilePath
TemplateDWGPath
TempXRefPath
TextEditor
TextFont
TextFontSize
TextFontStyle
TextFrameDisplay
TextureMapPath
TextWinBackgrndColor
TextWinTextColor
XRefDemandLoad

Métodos del objeto de preferencias:

DeleteProfile
ExportProfile
GetProjectFilePath
ImportProfile
ResetProfile
SetProjectFilePath

La ingente cantidad de propiedades que hemos de explicar la dividiremos en grupos temáticos para su óptimo aprendizaje. Estos grupos se corresponden (la mayoría) con las diferentes pestañas del cuadro Preferencias de AutoCAD 14. Comencemos pues sin más dilación.

DOCE.11.1. Preferencias de archivos

· AltFontFile. Especifica la localización de una fuente (tipo de letra) alternativa para el caso en que AutoCAD no encuentre la fuente original y en el mapeado del archivo no esté especificada otra.

La sintaxis para asignar:

ObjetoPreferencias.AltFontFile = StrArchivoFuente

La sintaxis para obtener:

StrArchivoFuente = ObjetoPreferencias.AltFontFile

StrArchivoFuente (nombre y ruta al archivo) es tipo de dato String.

· AltTabletMenuFile. Especifica la localización de un archivo de menú de tableta alternativo para intercambiar con el estándar de AutoCAD.

La sintaxis para asignar:

ObjetoPreferencias.AltTabletMenuFile = StrArchivoMenúTablero

La sintaxis para obtener:

StrArchivoMenúTablero = ObjetoPreferencias.AltTabletMenuFile

StrArchivoMenúTablero (nombre y ruta al archivo) es tipo de dato String.

· AutoSaveFile. Especifica la localización del archivo de guardado automático.

La sintaxis para asignar:

ObjetoPreferencias.AutoSaveFile = StrArchivoGuardAut

La sintaxis para obtener:

StrArchivoGuardAut = ObjetoPreferencias.AltFontFile

StrArchivoGuardAut (nombre y ruta al archivo) es tipo de dato String.

· ConfigFile. Obtiene la localización del archivo de configuración de AutoCAD 14 (por defecto ACAD14.CFG).

Su sintaxis es:

StrArchivoConfig = ObjetoPreferencias.ConfigFile

StrArchivoConfig (nombre y ruta al archivo) es tipo de dato String.

NOTA: La manera de asignar otra ubicación a este archivo de configuración se explicará en el APÉNDICE H, sobre la configuración general del programa, ya que esto se realiza desde las propiedades del acceso directo al ejecutable principal.

· CustomDictionary. Especifica la localización de un diccionario personalizado si existe.

La sintaxis para asignar:

ObjetoPreferencias.CustomDictionary = StrArchivoDiccionario

La sintaxis para obtener:

StrArchivoDiccionario = ObjetoPreferencias.CustomDictionary

StrArchivoDiccionario (nombre y ruta al archivo) es tipo de dato String.

· DefaultInternetURL. Especifica la localización URL del sitio WWW configurado por defecto.

La sintaxis para asignar:

ObjetoPreferencias.DefaultInternetURL = StrURL

La sintaxis para obtener:

StrURL = ObjetoPreferencias.DefaultInternerURL

StrURL es tipo de dato String.

· DriversPath. Especifica el directorio en el cual AutoCAD buscará controladores (drivers) de dispositivos ADI para el monitor, dispositivos señaladores, impresoras y trazadores.

La sintaxis para asignar:

ObjetoPreferencias.DriversPath = StrDirectorioControladores

La sintaxis para obtener:

StrDirectorioControladores = ObjetoPreferencias.DriversPath

StrDirectorioControladores es tipo de dato String.

· FontFileMap. Especifica la localización del archivo de representación de tipos de letra o fuentes, es decir, el archivo que define cómo AutoCAD convertirá las fuentes que no pueda encontrar.

La sintaxis para asignar:

ObjetoPreferencias.FontFileMap = StrArchivoRepFuentes

La sintaxis para obtener:

StrArchivoRepFuentes = ObjetoPreferencias.FontFileMap

StrArchivoRepFuentes (nombre y ruta al archivo) es tipo de dato String.

· HelpFilePath. Especifica la localización del archivo de ayuda de AutoCAD.

La sintaxis para asignar:

ObjetoPreferencias.HelpFilePath = StrDirectorioAyuda

La sintaxis para obtener:

StrDirectorioAyuda = ObjetoPreferencias.HelpFilePath

StrDirectorioAyuda es tipo de dato String.

· LicenseServer. Obtiene una lista de licencias de proveedor disponibles.

Su sintaxis es:

StrListaLicencias = ObjetoPreferencias.LicenseServer

StrListaLicencias es tipo de dato String.

· LogFileName. Especifica la localización del archivo de registro de AutoCAD 14 (por defecto ACAD.LOG).

La sintaxis para asignar:

ObjetoPreferencias.LogFileName = StrArchivoRegistro

La sintaxis para obtener:

StrArchivoRegistro = ObjetoPreferencias.LogFileName

StrArchivoRegistro (nombre y ruta al archivo) es tipo de dato String.

· MainDictionary. Especifica la localización del diccionario de corrección ortográfica principal.

La sintaxis para asignar:

ObjetoPreferencias.MainDictionary = StrArchivoDiccPrincipal

La sintaxis para obtener:

StrArchivoDiccPrincipal = ObjetoPreferencias.MainDictionary

StrArchivoDiccPrincipal (nombre y ruta al archivo) es tipo de dato String.

· MenuFile. Especifica la localización del archivo de menú principal.

La sintaxis para asignar:

ObjetoPreferencias.MenuFile = StrArchivoMenúPrincipal

La sintaxis para obtener:

StrArchivoMenúPrincipal = ObjetoPreferencias.MenuFile

StrArchivoMenúPrincpal (nombre y ruta al archivo) es tipo de dato String.

· PostScriptPrologFile. Especifica el nombre de una sección de prólogo personalizada en el archivo ACAD.PSF.

La sintaxis para asignar:

ObjetoPreferencias.PostScriptPrologFile = StrNomSecciónPrólogo

La sintaxis para obtener:

StrNomSecciónPrólogo = ObjetoPreferencias.PostScriptPrologFile

StrNomSecciónPrólogo es tipo de dato String.

· PrintFile. Especifica un nombre para el archivo temporal de trazado. Por defecto es el nombre del dibujo más la extensión .PLT.

La sintaxis para asignar:

ObjetoPreferencias.PrintFile = StrArchivoTrazado

La sintaxis para obtener:

StrArchivoTrazado = ObjetoPreferencias.PrintFile

StrArchivo es tipo de dato String.

NOTA: Para aceptar el nombre por defecto (nombre de archivo más extensión .PLT) se introduce un punto (.) como StrArchivoTrazado.

· PrintSpoolerPath. Especifica el directorio para los archivos de trazado diferido.

La sintaxis para asignar:

ObjetoPreferencias.PrintSpoolerPath = StrDirectorioTrazadoDif

La sintaxis para obtener:

StrDirectorioTrazadoDif = ObjetoPreferencias.PrintSpoolerPath

StrDirectorioTrazadoDif es tipo de dato String.

· PrintSpoolExecutable. Especifica el nombre del ejecutable para el trazado diferido.

La sintaxis para asignar:

ObjetoPreferencias.PrintSpoolExecutable = StrEjecTrazadoDif

La sintaxis para obtener:

StrEjecTrazadoDif = ObjetoPreferencias.PrintSpoolExecutable

StrEjecDrazadoDif es tipo de dato String.

· SupportPath. Especifica las diversas localizaciones si hay más de una han de ir separadas por caracteres de punto y coma (;) donde AutoCAD buscará archivos de soporte.

La sintaxis para asignar:

ObjetoPreferencias.SupportPath = StrDirectorioSoporte

La sintaxis para obtener:

StrDirectorioSoporte = ObjetoPreferencias.SupportPath

StrDirectorioSoporte es tipo de dato String.

· TempFilePath. Especifica la localización de archivos temporales.

La sintaxis para asignar:

ObjetoPreferencias.TempFilePath = StrDirectorioTemp

La sintaxis para obtener:

StrDirectorioTemp = ObjetoPreferencias.TempFilePath

StrDirectorioTemp es tipo de dato String.

· TemplateDWGPath. Especifica la localización de archivos de plantilla, utilizados por los asistentes de inicio.

La sintaxis para asignar:

ObjetoPreferencias.TemplateDWGPath = StrDirectorioPlantillas

La sintaxis para obtener:

StrDirectorioPlantillas = ObjetoPreferencias.TemplateDWGPath

StrDirectorioPlantillas es tipo de dato String.

· TempXRefPath. Especifica la localización de archivos de referencia externa. Esta localización se utiliza si elegimos la constante acDemandLoadEnabledWithCopy con la propiedad XRefDemandLoad que veremos al término de la próxima sección.

La sintaxis para asignar:

ObjetoPreferencias.TempXRefPath = StrDirectorioTempRefX

La sintaxis para obtener:

StrDirectorioTempRefX = ObjetoPreferencias.TempXRefPath

StrDirectorioTempRefX es tipo de dato String.

· TextEditor. Especifica el nombre para un editor de texto externo con el comando TEXTOM (MTEXT en inglés).

La sintaxis para asignar:

ObjetoPreferencias.TextEditor = StrNombreEditor

La sintaxis para obtener:

StrNombreEditor = ObjetoPreferencias.TextEditor

StrNombreEditor es tipo de dato String.

· TextureMapPath. Especifica la localización del directorio contenedor de archivos de mapas de texturas para renderizar.

La sintaxis para asignar:

ObjetoPreferencias.TextureMapPath = StrDirectorioTexturas

La sintaxis para obtener:

StrDirectorioTexturas = ObjetoPreferencias.TextureMapPath

StrDirectorioTexturas es tipo de dato String.

DOCE.11.2. Preferencias de rendimiento

· ArcSmoothness. Especifica la resolución de arcos, círculos y elipses. El valor ha de estar entre 1 y 20000.

La sintaxis para asignar:

ObjetoPreferencias.ArcSmoothness = IntResolución

La sintaxis para obtener:

IntResolución = ObjetoPreferencias.ArcSmoothness

IntResolución es tipo de dato Integer.

· ContourLinesPerSurface. Especifica el valor que representa el número de isolíneas en sólidos. El valor ha de estar entre 0 y 2047.

La sintaxis para asignar:

ObjetoPreferencias.ContourLinesPerSurface = IntIsolíneas

La sintaxis para obtener:

IntIsolíneas = ObjetoPreferencias.ContourLinesPerSurface

IntIsolíneas es tipo de dato Integer.

· DisplayDraggedObject. Especifica el modo de arrastre dinámico.

La sintaxis para asignar:

ObjetoPreferencias.DisplayDraggedObject = IntModoArrastre

La sintaxis para obtener:

IntModoArrastre = ObjetoPreferencias.DisplayDraggedObject

IntModoArrastre es tipo de dato Integer, que además admite las constantes siguientes:

acDragDoNotDisplay
acDragDisplayOnRequest
acDragDisplayAutomatically

· DisplaySilhouette. Especifica el estado de activación de la silueta al ocultar sólidos.

La sintaxis para asignar:

ObjetoPreferencias.DisplaySilhouette = BooSilueta

La sintaxis para obtener:

BooSilueta = ObjetoPreferencias.DisplaySilhouette

BooSilueta es tipo de dato Boolean: True activa la silueta, False la desactiva.

· IncrementalSavePercent. Especifica el valor del guardado progresivo. Ha de ser un valor porcentual, es decir, entre 0 y 100.

La sintaxis para asignar:

ObjetoPreferencias.IncrementalSavePercent = IntGuardProgresivo

La sintaxis para obtener:

IntGuardProgresivo = ObjetoPreferencias.IncrementalSavePercent

IntGuardProgresivo es tipo de dato Integer.

· MaxActiveViewports. Especifica el valor del máximo de ventanas activas. Ha de ser un valor entre 2 y 48.

La sintaxis para asignar:

ObjetoPreferencias.MaxActiveViewports = IntMáxVentanas

La sintaxis para obtener:

IntMáxVentanas = ObjetoPreferencias.MaxActiveViewports

IntMaxVentanas es tipo de dato Integer.

· RenderSmoothness. Especifica el valor de suavizado de sólidos o resolución de faceteado. Ha de ser una valor entre 0.01 y 10.0.

La sintaxis para asignar:

ObjetoPreferencias.RenderSmoothness = DblResFaceteado

La sintaxis para obtener:

DblResFaceteado = ObjetoPreferencias.RenderSmoothness

DblResFaceteado es tipo de dato Double.

· SegmentPerPolyline. Especifica el valor de número de segmentos por curva polilineal. Este valor estará entre 0 y 42950.

La sintaxis para asignar:

ObjetoPreferencias.SegmentPerPolyline = DblSegmentosPol

La sintaxis para obtener:

DblSegmentosPol = ObjetoPreferencias.SegmentPerPolyline

DblSegmentosPol es tipo de dato Double.

· ShowRasterImage. Especifica la activación de mostrar o no el contenido de imágenes de trama o raster cuando son movidas con un encuadre o un zoom en tiempo real.

La sintaxis para asignar:

ObjetoPreferencias.ShowRasterImage = BooMostrarRaster

La sintaxis para obtener:

BooMostrarRaster = ObjetoPreferencias.ShowRasterImage

BooMostrarRaster es tipo de dato Boolean: True activa la muestra de imágenes y False la desactiva. También está admitido el siguiente par de constantes:

acOn
acOff

· TextFrameDisplay. Especifica la activación de mostrar o no sólo el marco de contorno de los texto o el texto en sí.

La sintaxis para asignar:

ObjetoPreferencias.TextFrameDisplay = BooMostrarMarcoTextos

La sintaxis para obtener:

BooMostrarMarcoTextos = ObjetoPreferencias.TextFrameDisplay

BooMostrarMarcoTextos es tipo de dato Boolean: True activa la muestra del marco y False la desactiva.

· XRefDemandLoad. Especifica la activación o desactivación de la carga bajo demanda de referencias externas.

La sintaxis para asignar:

ObjetoPreferencias.XRefDemandLoad = IntCargaBajoDemanda

La sintaxis para obtener:

IntCargaBajoDemanda = ObjetoPreferencias.XRefDemandLoad

IntCargaBajoDemanda es tipo de dato Integer, aunque también admite las siguientes constantes:

acDemandLoadDisabled
acDemandLoadEnabled
acDemandLoadEnabledWithCopy

DOCE.11.3. Preferencias de compatibilidad

· DemandLoadARXApp. Especifica la activación de la carga bajo demanda de aplicaciones ARX.

La sintaxis para asignar:

ObjetoPreferencias.DemandLoadARXApp = IntCargaBajoDemandaARX

La sintaxis para obtener:

IntCargaBajoDemandaARX = ObjetoPreferencias.DemandLoadARXApp

IntDemandLoadARXApp es tipo de dato Integer, que además admite las constantes siguientes:

acDemandLoadDisabled
acDemandLoadOnObjectDetect
acDemandLoadCmdInvoke

· EnableStartupDialog. Especifica si se muestra el letrero de diálogo de inicio en una sesión de AutoCAD.

La sintaxis para asignar:

ObjetoPreferencias.EnableStartupDialog = BooCuadroInicio

La sintaxis para obtener:

BooCuadroInicio = ObjetoPreferencias.EnableStartupDialog

EnableStartupDialog es tipo de dato Boolean: True activa el cuadro de inicio y False lo desactiva.

· KeyboardAccelerator. Especifica la activación o desactivación de la prioridad de teclas de aceleración.

La sintaxis para asignar:

ObjetoPreferencias.KeyboardAccelerator = BooTeclasAcel

La sintaxis para obtener:

BooTeclasAcel = ObjetoPreferencias.KeyboardAccelerator

BooTeclasAcel es tipo de dato Boolean, pero que además admite las siguientes constates:

acPreferenceClassic
acPreferenceCustom

las cuales hacen referencia al modo AutoCAD y al modo Windows respectivamente.

· KeyboardPriority. Controla la prioridad de coordenadas.

La sintaxis para asignar:

ObjetoPreferencias.KeyboardPriority = IntPrioridadCoordenadas

La sintaxis para obtener:

IntPrioridadCoordenadas = ObjetoPreferencias.KeyboardPriority

IntPrioridadCoordenadas es tipo de dato Integer, pero que además admite las siguientes constates:

acKeyboardRunningObjSnap
acKeyboardEntry
acKeyboardProxyNoScripts

· PersistentLISP. Especifica la activación o desactivación de la característica de volver a cargar programas o rutinas AutoLISP entre dibujos.

La sintaxis para asignar:

ObjetoPreferencias.PersistentLISP = BooLISP

La sintaxis para obtener:

BooLISP = ObjetoPreferencias.PersistentLISP

BooLISP es tipo de dato Boolean.

· ProxyImage. Obtiene y/o especifica el modo de mostrar objetos proxy.

La sintaxis para asignar:

ObjetoPreferencias.ProxyImage = IntObjProxy

La sintaxis para obtener:

IntObjProxy = ObjetoPreferencias.ProxyImage

IntObjProxy es tipo de dato Integer, pero que además admite las siguientes constates:

acProxyNotShow
acProxyShow
acProxyBoundingBox

· ShowProxyDialog. Obtiene y/o especifica si AutoCAD debe mostrar un mensaje cuando se abra un dibujo con objetos proxy.

La sintaxis para asignar:

ObjetoPreferencias.ShowProxyDialog = BooMensajeProxy

La sintaxis para obtener:

BooMensajeProxy = ObjetoPreferencias.ShowProxyDialog

BooMensajeProxy es tipo de dato Boolean.

DOCE.11.4. Preferencias generales

· AutoAudit. Especifica la activación de la revisión de dibujos al cargar un .DXF o un .DXB.

La sintaxis para asignar:

ObjetoPreferencias.AutoAudit = BooRevisión

La sintaxis para obtener:

BooRevisión = ObjetoPreferencias.AutoAudit

BooRevisión es tipo de dato Boolean.

· AutoSaveInterval. Especifica la duración, en minutos, entre guardados automáticos. Ha de ser un valor entre 0 y 600.

La sintaxis para asignar:

ObjetoPreferencias.AutoSaveInterval = IntMinutos

La sintaxis para obtener:

IntMinutos = ObjetoPreferencias.AutoSaveInterval

IntMinutos es tipo de dato Integer.

· BeepOnError. Especifica la activación del sonido en caso de error.

La sintaxis para asignar:

ObjetoPreferencias.BeepOnError = BooSonidoError

La sintaxis para obtener:

BooSonidoError = ObjetoPreferencias.BeepOnError

BooSonidoError es tipo de dato Boolean.

· CreateBackup. Especifica la activación de crear o no copia de seguridad al guardar (archivos .BAK).

La sintaxis para asignar:

ObjetoPreferencias.CreateBackup = BooCopiaSeguridad

La sintaxis para obtener:

BooCopiaSeguridad = ObjetoPreferencias.CreateBackup

BooCopiaSeguridad es tipo de dato Boolean.

· FullCrcValidation. Especifica la activación de la validación CRC (comprobación cíclica de redundancia) continua.

La sintaxis para asignar:

ObjetoPreferencias.FullCrcValidation = BooCRC

La sintaxis para obtener:

BooCRC = ObjetoPreferencias.FullCrcValidation

BooCRC es tipo de dato Boolean.

· LogFileOn. Especifica si se escribe en un archivo de revisión lo que va apareciendo en la ventana de texto (por defecto ACAD.LOG).

La sintaxis para asignar:

ObjetoPreferencias.LogFileOn = BooArchivoLOG

La sintaxis para obtener:

BooArchivoLOG = ObjetoPreferencias.LogFileOn

BooArchivoLOG es tipo de dato Boolean.

· MaxNumOfSymbols. Especifica el máximo de elementos que ordenar (por defecto es igual a 200).

La sintaxis para asignar:

ObjetoPreferencias.MaxNumOfSymbols = IntNumElementos

La sintaxis para obtener:

IntNumElementos = ObjetoPreferencias.MaxNumOfSymbols

MaxNumOfSymbols es tipo de dato Integer.

Autor: Jonathan Préstamo Rodríguez.
Para: La Web del Programador.