Definición de preferencias de AutoCAD

Apertura, guardado y cierre de dibujos

Control del entorno de AutoCAD

Preferencias de bases de datos

 

Manual del desarrollador de ActiveX y VBA > Control del entorno de AutoCAD  > 

Definición de preferencias de AutoCAD

Hay nueve objetos relacionados con las opciones, cada uno de ellos representado en una ficha del cuadro de diálogo Opciones. Estos objetos proporcionan acceso a todas las opciones almacenadas en el registro mediante el cuadro de diálogo Opciones. Muchos de los parámetros de AutoCAD pueden adaptarse a necesidades personales a través de las propiedades de estos objetos, que son los siguientes:

• PreferencesDisplay
• PreferencesDrafting
• PreferencesFiles
• PreferencesOpenSave
• PreferencesOutput
• PreferencesProfiles
• PreferencesSelection
• PreferencesSystem
• PreferencesUser

Puede acceder a estos objetos a través del objeto Preferences Para acceder al objeto Preferences, utilice la propiedad Preference del objeto Application:

Dim acadPref as AcadPreferences

Set acadPref = ThisDrawing.Application.Preferences

Puede acceder a cualquiera de los objetos Preferences mediante las propiedades Display, Drafting, Files, OpenSave, Output, Profile, Selection, System y User.

Sub Ch2_PrefsSetCursor()

    ' This example sets the crosshairs of the AutoCAD drawing cursor 

    ' to full screen.

      
    ' Access the Preferences object
      
    Dim acadPref As AcadPreferences
      
    Set acadPref = ThisDrawing.Application.Preferences
      
      
    ' Use the CursorSize property to set the size of the crosshairs
      
    acadPref.Display.CursorSize = 100
      
End Sub
    

Sub Ch2_PrefsSetCursor()

    ' This example enables the screen menu and disables the scroll

    ' bars with the DisplayScreenMenu and DisplayScrollBars

    ' properties.

      
    ' Access the Preferences object
      
    Dim acadPref As AcadPreferences
      
    Set acadPref = ThisDrawing.Application.Preferences
      
      
    ' Display the screen menu and disable scroll bars
      
    acadPref.Display.DisplayScreenMenu = True
      
    acadPref.Display.DisplayScrollBars = False
      
End Sub