AutoLisp_Funkce_Symbol

Funkce spravy symbolů

(atom item)

*Argumenty:*
	item	- libovolný element AutoLISPu

*Popis:*
	- funkce zjistí zda je položka atom

*Návratové hodnoty:*
	- nil - je-li položka (item)
	- T - v opačném případě
	- cokoli co není seznam je považováno za atom

*Příklady:*
	(setq a '(x y z))
	(setq b 'a)
	(atom 'a)
		vrátí T
	(atom a)
		vrátí nil
	(atom 'b)
		vrátí T
	(atom b)
		vrátí T
	(atom '(a b c))
		vrátí nil

(atoms-family format [symlist])

*Argumenty:*
	format	- hodnota integer 0 nebo 1, určující formát v jakém funkce atoms-family vrátí jméno symbolu:
		- 0 - vrátí jméno symbolů jako seznam
		- 1 - vrátí jméno symbolů jako řetězec
	symlist	- seznam řetězců - jména symbolů, které se mají hledat

*Popis:*
	- zjištění aktuálně definovaných symbolů

*Návratové hodnoty:*
	- seznam symbolů
	- je-li definován symlist, potom atoms-family vrací specifikovaný symbol, který je definován. Nil je vrácen, když tento symbol není definován.

*Příklady:*
	(atoms-family 0)
	(BNS_PRE_SEL FITSTR2LEN C:AI_SPHERE ALERT DEFUN C:BEXTEND REM_GROUP B_RESTORE_SYSVARS BNS_CMD_EXIT LISPED FNSPLITL...
	Předchozí kód určuje, že CAR, CDR, a XYZ symbol je definován a vrátí seznam jako řetězec:
	(atoms-family 1 '("CAR" "CDR" "XYZ"))
		vrací ("CAR" "CDR" nil)
	Z vráceného řetězce je patrné, že XYZ není definován

(boundp sym)

*Argumenty:*
	sym	- symbol

*Popis:*
	- ověří zda hodnota ukazuje na symbol

*Návratové hodnoty:*
	- T - sym má hodnotu s ním svázanou
	- nil - se sym není svázána žádná hodnota nebo má hodnotu nil.
	- není-li symbol definován, je automaticky vytvořen a nastaven na nil

*Příklady:*
	(setq a 2 b nil)
		vrací nil
	(boundp 'a)
		vrací T
	(boundp 'b)
		vrací nil

Podívej se na funkci atoms-family.

(not item)

*Argumenty:*
	item	- výraz AutoLISPu

*Popis:*
	- zjistí zda je položka ohodnocena nil

*Poznámka:*
	- typicky null se používá na seznamy a not se používá pro ostatní data

*Návratové hodnoty:*
	- T - položka (item) je ohodnocena nil
	- nil - v opačném případě

*Příklady:*
	(setq a 123 b "string" c nil)
		vrací nil
	(not a)
		vrací nil
	(not b)
		vrací nil
	(not c)
		vrací T
	(not '())
		vrací T

Podívej se na funkci null.

(null item)

*Argumenty:*
	item	- výraz AutoLISPu

*Popis:*
	- zjistí zda položka ukazuje na nil

*Návratové hodnoty:*
	- T - položka (item) má hodnotu nil
	- nil - v opačném případě

*Příklady:*

Podívej se na funkci not.

(numberp item)

*Argumenty:*
	item	- výraz AutoLISPu

*Popis:*
	- zjistí zda položka ukazuje na celé nebo reálné číslo

*Návratové hodnoty:*
	- T -položka (item) má hodnotu nil
	- nil - v opačném případě

*Příklady:*
	(setq a 123 b 'a)
		vrací A
	(numberp 4)
		vrací T
	(numberp 3.8348)
		vrací T
	(numberp "Howdy")
		vrací nil
	(numberp a)
		vrací T
	(numberp b)
		vrací nil
	(numberp (eval b))
		vrací T

Podívejte se na funkci function.

(read [string])

*Argumenty:*
	string	- řetězec

*Popis:*
	- zjistí první seznam nebo atom získaný z řetězce

*Návratové hodnoty:*
	- řetězec nebo atom
	- nil - není-li specifikován žádný argument

*Příklady:*
	(read "hello")
		vrací HELLO
	(read "hello there")
		vrací HELLO
	(read "\"Hi Y'all\"")
		vrací "Hi Y'all"
	(read "(a b c)")
		vrací (A B C)
	(read "(a b c) (d)")
		vrací (A B C)
	(read "1.2300")
		vrací 1.23
	(read "87")
		vrací 87
	(read "87 3.2")
		vrací 87

(set sym expr)

*Argumenty:*
	sym	- symbol
	expr	- výraz AutoLISPu

*Popis:*
	- funkce nastaví hodnotu čárkovaného symbolu

*Poznámka:*
	- set je podobná funkci setq. Funkce set vyhodnocuje oba argumenty, kdežto funkce setq vyhodnocuje pouze druhý argument.

*Návratová hodnota:*
	- hodnota výrazu

*Příklady:*
	Všechny následující výrazy nastaví hodnotu výrazu a na 5.0:
	(set 'a 5.0)
		vrací 5.0
	(set (read "a") 5.0)
		vrací 5.0
	(setq a 5.0)
		vrací 5.0
	Pozor na výše uvedený rozdíl mezi funkcemi set a setq:
	(set (read "a") 5.0)
		vrací 1
	(setq (read "a") 5.0)
		vrací ; ** ERROR: syntax error*

(setq sym expr [sym expr]...)

*Argumenty:*
	sym	- symbol - není vyhodnocen
	expr	- výraz AutoLISPu

*Popis:*
	- funkce nastaví hodnotu symbolu nebo symbolů k odpovídajícím výrazům

*Návratová hodnota:*
	- výsledek posledního výrazu (expr)

*Příklady:*
	(setq a 5.0)
		vrací 5.0
	(setq b 123 c 4.7)
		vrací 4.7
	((setq x '(a b))
		vrací (A B)

(type item)

*Argumenty:*
	item	- symbol

*Popis:*
	- funkce zjistí typ specifikované položky

*Návratová hodnota:*
	- datový typ položky (item):

	Datový typ	Popis
	ENAME	- jméno entity
	EXRXSUBR	- externí ObjectARX aplikace
	FILE	- popis souboru
	INT	- integer
	LIST	- seznam
	PAGETB	- funkce stránkovací tabulka
	PICKSET	- výběrová množina
	REAL	- číslo v plovoucí řádové čárce
	SAFEARRAY	- safearray
	STR	- řetězec
	SUBR	- interní funkce AutoLISPu nebo funkce nahraná z kompilovaného souboru (FAS neboVLX)
	SYM	- symbol
	VARIANT	- variant
	USUBR	- uživatelem definovaná funkce nahraná z LISP zdrojového souboru
	VLA-object	- ActiveX objekt

*Příklady:*
	Mějme následující nastavení:
	(setq a 123 r 3.45 s "Hello!" x '(a b c))
	(setq f (open "name" "r"))
	Potom:
	(type 'a)		vrací SYM
	(type a)		vrací INT
	(type f)		vrací FILE
	(type r)		vrací REAL
	(type s)		vrací STR
	(type x)		vrací LIST

(vl-symbol-name symbol)

*Argumenty:*
	symbol	- symbol LISPu

*Popis:*
	- funkce pro zjištění jména symbolu

*Návratová hodnota:*
	- řetězec - jméno uvedeného symbol argumentu

*Příklady:*
	_$ (vl-symbol-name 'S::STARTUP)
		vrací "S::STARTUP"
	_$ (progn (setq sym 'my-var) (vl-symbol-name sym))
		vrací "MY-VAR"
	_$ (vl-symbol-name 1)
		vrací ; ** ERROR: bad argument type: symbolp 1*

(vl-symbol-value symbol)

*Argumenty:*
	symbol	- symbol LISPu

*Popis:*
	- funkce zjišťující aktuální hodnotu připojenou k symbolu

*Návratová hodnota:*
	- hodnotu symbolu po vyhodnocení

*Příklady:*
	_$ (vl-symbol-value 't)
		vrací T
	_$ (vl-symbol-value 'PI)
		vrací 3.14159
	_$ (progn (setq sym 'PAUSE) (vl-symbol-value sym))
		vrací "\\"

(vl-symbolp object)

*Argumenty:*
	object	- objekt LISPu

*Popis:*
	- identifikuje, kdy je uvedený objekt symbolem

*Návratové hodnoty:*
	- T - objekt je symbol
	- nil - v opačném případě

*Příklady:*
	_$ (vl-symbolp t)
		vrací T
	_$ (vl-symbolp nil)
		vrací nil
	_$ (vl-symbolp 1)
		vrací nil
	_$ (vl-symbolp (list 1))
		vrací nil