VisualLisp_Fce_Pro_Spravu

Funkce pro správu vlastností

(vlax-get-property object property)

*Argumenty:*
	object	- VLA objekt
	property	- jméno vlastnosti, kterou potřebujeme zjistit

*Popis:*
	- získá požadovanou vlastnost (property) VLA objektu (object)

*Návratová hodnota:*
	- hodnota vlastnosti objektu

*Příklady:*
	Získání pointru na základní objekt AutoCADu:
	_$ (setq acadObject (vlax-get-acad-object))
		vrací #<VLA-OBJECT IAcadApplication 00a4b2b4>

	Získá vlastnost (jméno ActiveDocumentu) z objektu acadObject:
	_$ (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))
		vrací #<VLA-OBJECT IAcadDocument 00302a18>
	Funkce vrátí objekt aktivního dokumentu.

	Získá vlastnost (ModelSpace - modelový prostor) objektu ActiveDocument:
	_$ (setq mSpace (vlax-get-property acadDocument 'Modelspace))
		vrací #<VLA-OBJECT IAcadModelSpace 00c14b44>
	Je vrácen modelový prostor objektu v aktuálním dokumentu:

	Převedení obrazové entity na VLA objekt:
	$ (setq vlaobj (vlax-ename->vla-object e))
		vrací #<VLA-OBJECT IAcadLWPolyline 0467114c>

	Získání vlastnosti barva objektu vlaobj:
	$ (vlax-get-property vlaobj 'Color)
		vrací 256

(vlax-property-available-p obj prop [check-modify])

*Argumenty:*
	obj	- VLA objekt
	prop	- jméno vlastnosti, kterou potřebujeme zjistit
	check-modify	- je-li nastaven na hodnotu TRUE, vrací funkce vlax-property-available-p značku, že může být vlastnoct objektu změněna

*Popis:*
	- zjistí zda objekt má specifikovanou vlastnost

*Návratové hodnoty:*
	- T - má-li objekt specifikovanou vlastnost
	- nil - v opačném případě
	-nil - v případě, že je specifikován argument check-modify = T, a specifikovaná vlastnost není přístupná nebo nemůže být modifikována

*Příklady:*
	Následující příklad je aplikován na objekt LightweightPolyline:
	_$ (vlax-property-available-p WhatsMyLine 'Color)
		vrací T - objekt má danou vlastnost a vlastnost je modifikovatelná
	_$ (vlax-property-available-p WhatsMyLine 'center)
		vrací nil - objekt nemá danou vlastnost

(vlax-put-property obj property arg)

*Argumenty:*
	obj	- VLA objekt
	prop	- jméno vlastnosti, kterou potřebujeme zjistit
	arg	- hodnota, na kterou má být vlastnost nastavena

*Popis:*
	- nastaví vlastnost objektu ActiveX

*Návratová hodnota:*
	- nil - proběhlo-li vše v pořádku

*Příklady:*
	Nabarvení objektu na červeno:
	$ (vlax-put-property vlaobj 'Color 1)
		vrací nil