Podrobnější pohled na objekty Preference, Plot a Utility

Přehled informací

Objekt Preferences

Objekt Preferences reprezentuje aktuální nastavení AutoCADu. Objekt Preferences uchovává všechny nastavení z dialogového boxu Volby uloženého v registrech. Pro získání Voleb, které jsou umístěny ve výkresu je potřeba použít objekt DatabasePreferences. Objekt Preferences je nadřazený objekt množině objektů vlastností (viz obrázek). Každý objekt vlastnosti odpovídá jedné položce v tabulce dialogového boxu Volby (Options). Objekt Preference může být referencován pomocí vlastnosti Preferences objekt Application.

Objekt Preference umožňuje také nastavení nebo modifikaci voleb a systémových proměnných pomocí metod SetVariable a GetVariable. Dohromady tyto objekty umožňují přístup ke všem registrově uloženým nastavením v dialogovém boxu Options.

Příklad přístupu na objekt Preferences

              Dim acadPref as AcadPreferences
              Set acadPref = ThisDrawing.Application.Preferences

Pokud budete požadovat nastavení například vlastností Display, použijte vlastnost Display. Příklad nastavení zobrazování obrazovkové nabídky (screen menu) a zakázání zobrazování posuvníků:

              acadPref.Display.DisplayScreenMenu = True
              acadPref.Display.DisplayScrollBars = False

Objekt Plot

Objekt Plot umožňuje přístup k nastavení v dialogovém boxu Tisk (Plot) a přináší aplikaci možnost tisku výkresu použitím různých metod.

Příklad nastavení tisku jedné kopie

              ThisDrawing.Plot.NumberOfCopies = 1

Příklad inicializace tiskárny

              ThisDrawing.Plot.PlotToDevice

Objekt Utility

Objekt Utility umožňuje použití funkcí vstupu od uživatele a konverzi funkcí. Funkce vstupu od uživatele jsou metody, které dotáží uživatele AutoCADu, pomocí příkazové řádky, na zadání vstupu různých typů dat (řetězec, integer, real, body ...).

Příklad získání reálného čísla od uživatele - metoda GetReal

     Sub Example_GetReal()
       Dim returnReal As Double
       ' dotaz na zadané číslo
       returnReal = ThisDrawing.Utility.GetReal("Napiš číslo: ")
       MsgBox "Napsal jste cislo" & returnReal, , "GetReal Priklad"
     End Sub

Převodní funkce jsou metody, které pracují se specifickými datovými typy AutoCADu jako jsou body a úhly, v souvislosti se správou řetězců a čísel.