Funkce vstupu od uživatele

(entsel [msg])
 
Argumenty:
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
    - je-li vynechán je zobrazen text "Select object"
 
Popis:
  - vyzve uživatele, aby vybral jednoduchý objekt (entitu) určením bodu výběru
 
Návratová hodnota:
  - seznam - první element je jméno entity vybraného objektu a druhý element jsou souřadnice bodu výběru (v podmínkách aktuálního UCS uživatelského souřadného systému)
 
Příklady:
  AutoCAD sekvence ilustrující použití entsel:
  Command: line
  From point: 1,1
  To point: 6,6
  To point: ENTER
  Command: (setq e (entsel "Please choose an object: "))
  Please choose an object: 3,3
    vrací ( (3.0 3.0 0.0))

Podívejte se na funkce entget, entmake a entnext.

(getangle [pt] [msg])
 
Argumenty:
 
pt
 - 2D základní bod v aktuálním UCS
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na vstup úhlu od uživatele a vrací úhel v radiánech
 
Návratová hodnota:
  - úhel - specifikovaný uživatelem v radiánech
 
Příklady:
  ukázka různých argumentů použitých ve spojení s funkcí getangle
  Command: (setq ang (getangle))
  Command: (setq ang (getangle '(1.0 3.5)))
  Command: (setq ang (getangle "Which way? "))
  Command: (setq ang (getangle '(1.0 3.5) "Which way? "))

Podívejte se na funkci getorient.

(getcorner pt [msg])
 
Argumenty:
 
pt
- bod použitý jako základní
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na zadání druhého rohu obdelníku
 
Návratová hodnota:
  - bod - v aktuálním UCS (obdoba jako getpoint)
  - v případě 3D bodu je Z-tová souřadnice ignorována
 
Příklady:
  (getcorner '(7.64935 6.02964 0.0))
    vrací (17.2066 1.47628 0.0)
  (getcorner '(7.64935 6.02964 0.0) "Pick a corner")
    vrací Pick a corner(15.9584 2.40119 0.0)

(getdist [pt] [msg])
 
Argumenty:
 
pt
 - 2D nebo 3D bod použitý jako základní bod aktuálního UCS. Je-li pt zadán, je uživatel dotázán na druhý bod.
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na zadání vzdálenosti od uživatele
 
Návratová hodnota:
  - real - je-li zadán 3D bod - vrácená vzdálenost je 3D, avšak je-li nastaveno 64 bit initget funkce - getdist ignoruje Z-ovou souřadnici a vrací 2D vzdálenost
 
Příklady:
  (setq dist (getdist))
  (setq dist (getdist '(1.0 3.5)))
  (setq dist (getdist "How far "))
  (setq dist (getdist '(1.0 3.5) "How far? "))

(getfiled title default ext flags)
 
Argumenty:
 
title
 - řetězec - popisek dialogového boxu
 
default
 - default jméno souboru, může být i prázdný řetězec
 
ext
 - přípona souboru, prázdný řetězec odpovídá všem koncovkám
 
flags
 - hodnota integer - řídí chování dialogového boxu:
    - 1 (bit 0) - zeptá se na jméno vytvořeného souboru
      - v případě výběru existujícího souboru AutoCAD zobrazí alert box
    - 4 (bit 2) - nechá uživatele zapsat příponu souboru
      - není-li tento bit nastaven, AutoCAD nedovolí zadat jinou příponu než je koncovka v argumentu ext
    - 8 (bit 3) - není-li nastaven bit 0, hledá soubor pouze v library cestě, následně vrátí jen jméno souboru, není-li nalezen v cestě vrátí funkce cestu, kde je nalezen
      - není-li nastaven vrací getfield soubor i s celou cestou
    - 16 (bit 4) - argument je interpretován jen jako cesta
    - 32 (bit 5) - a bit 0 je nastaven, uživatel není varován při přepisování existujícího souboru
    - 64 (bit 6) - nepřenese vzdálený soubor na uživatelem specifikované URL
    - 128 (bit 7) - nepovolí URL
 
Popis:
  - vyzve uživatele, aby zadal jméno souboru (ve standardním file dialogovém boxu AutoCADu - obsahuje výpis všech souborů) a vrátí jméno souboru
 
Návratové hodnoty:
  - řetězec - specifikující jméno souboru (získané z dialogového boxu od uživatele)
  - nil - v opačném případě
 
Příklady:
  Zobrazení dialogového boxu "Select a Lisp File":
  (getfiled "Select a Lisp File" "c:/program files/acad2000/support/" "lsp" 8)
   
 

(getint [msg])
 
Argumenty:
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na zadání celého čísla
 
Pozámka:
  - při zadání jiného čísla než integer, zobrazí AutoCAD zprávu "Requires an integer value"
 
Návratové hodnoty:
  - integer zadaný uživatelem
  - nil - v případě, že uživatel nezadal číslo a zmáčkl ENTER
 
Příklady:
  Command: (setq num (getint))
  Uživatel: 15
  Vrací: 15
   
  Command: (setq num (getint "Enter a number:"))
  Uživatel: Enter a number:25
  Vrací: 25
   
  Command: (setq num (getint))
  Uživatel: 15.0
    Requires an integer value.
  Uživatel: 15
  Vrací: 15

Podívejte se na funkci initget.

(getkword [msg])
 
Argumenty:
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na zadání klíčového slova vrací toto slovo
 
Návratové hodnoty:
  - řetězec - reprezentující klíčové slovo odentrované uživatelem
  - nil - v případě, že uživatel nezadal slovo a zmáčkl ENTER
 
Příklady:
  Příklad ukazující zakázání nulového vstupu (fce initget) při volání funkce getkword:
  Command: (initget 1 "Yes No")
  Vrací: nil
   
  Command: (setq x (getkword "Are you sure? (Yes or No) "))
  Uživatel: Are you sure? (Yes or No) yes
  Vrací: "Yes"
   
  Špatná odpověď od uživatele:
  Command: (initget 1 "Yes No")
  Vrací: nil
   
  Command: (setq x (getkword "Are you sure? (Yes or No) "))
  Uživatel: Are you sure? (Yes or No) Maybe
  Vrací: Invalid option keyword.
  Uživatel: Are you sure? (Yes or No) yes
  Vrací: "Yes"

(getorient [pt] [msg])
 
Argumenty:
 
pt
 - 2D nebo 3D bod použitý jako základní bod aktuálního UCS. Je-li pt zadán, je uživatel dotázán na druhý bod.
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na zadání úhlu od uživatele a vrací úhel v radiánech
  - zadání od uživatele je založeno na aktuálním nastavení proměných ANGDIR a ANGBASE
 
Poznámky:
  - getangle se používá potřebujeme-li stupeň rotace - relativní úhel
  - getorient se používá potřebujeme-li získat orientaci - absolutní úhel
 
Návratová hodnota:
  - úhel specifikovaný uživatelem
 
Příklady:
  (setq pt1 (getpoint "Pick point: "))
    vrací (4.55028 5.84722 0.0)
  (getorient pt1 "Pick point: ")
    vrací 5.61582

Podívejte se na funkci getangle.

(getpoint [pt] [msg])
 
Argumenty:
 
pt
 - 2D nebo 3D základní bod v aktuálním UCS
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - funkce čeká na zadání bodu od uživatele
 
Návratová hodnota:
  - 3D bod - vyjádřený v podmínkách aktuálního UCS
 
Příklady:
  (setq p (getpoint))
  (setq p (getpoint "Where? "))
  (setq p (getpoint '(1.5 2.0) "Second point: "))

Podívejte se na funkce getcorner a initget.

(getreal [msg])
 
Argumenty:
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - čeká na vstup od uživatele - zadání čísla real
 
Návratová hodnota:
  - real - napsané uživatelem
 
Příklady:
  (setq val (getreal))
  (setq val (getreal "Scale factor: "))

(getstring [cr] [msg])
 
Argumenty:
 
cr
 - není-li rovné nil - indikuje, že uživatel vkládá mezery do vstupního řetězce (uživatel musí ukončit zadávání ENTREM)
    - jinak je řetězec ukončen mezerou nebo ENTREM
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - funkce čeká na vstup o uživatele a zadání řetězce
 
Návratové hodnoty:
  - řetězec - zapsaný uživatelem
  - nil - když uživatel zmáčkl ENTER bez napsání řetězce
 
Poznámka:
  - je-li řetězec delší než 132 znaků, getstring vrací jen prvních 132 znaků
  - obsahuje-li řetězec znak \ je tento konvertován na \\
 
Příklady:
  Command: (setq s (getstring "What's your first name? "))
  Uživatel: What's your first name? Gary
  Vrací: "Gary"
   
  Command: (setq s (getstring T "What's your full name? "))
  Uživatel: What's your full name? Gary Indiana Jones
  Vrací: "Gary Indiana Jones"
   
  Command: (setq s (getstring T "Enter filename: "))
  Uživatel: Enter filename: c:\my documents\vlisp\secrets
  Vrací: "c:\\my documents\\vlisp\\secrets"

Podívejte se na initget a getkword.

(initget [bits] [string])
 
Argumenty:
 
string
 - řetězec reprezentující serii klíčových slov
 
bits
 - integer, který povoluje nebo zamítá jisté druhy uživatelského vstupu
    - není-li uvedena hodnota - žádná podmínka není použita
    - možné hodnoty argumentu:
      1 (bit 0): - zakáže použití ENTER
      2 (bit 1): - zakáže použití nulu
      4 (bit 2): - zakáže použití záporné hodnoty
      8 (bit 3): - povolí uživateli zadat hodnotu mimo aktuální meze výkresu
      16 (bit 4): - nepoužívá se
      32 (bit 5): - použije přerušovanou čáru při kreslení gumovací čáry nebo obdelníku
      64 (bit 6): - zakáže vstup Z-ové souřadnice do funkce getdist
      128 (bit 7): - povolí libovolný vstup jako klíčové slovo, nejprve ohodnotí všechny ostatní řídící bity a klíčová slova.
        - dává přednost bitu 0, jsou-li bity 7 a 0 nastaveny a uživatel zmáčkne ENTER, je vrácen nulový řetězec
 
Popis:
  - funkce pro zavedení klíčových slov pro následující funkci vstupu od uživatele
 
Návratové hodnoty:
 

- nil
 
Tabulka funkcí a použitlných kontrolních bitů
Funkce
Klíčová slova
Hodnoty kontrolních bitů
 
bit 1
bit 2
bit 4
bit 8
bit 32
bit 64
bit 128
getint
x
x
x
x
x
getreal
x
x
x
x
x
getdist
x
x
x
x
x
getangle
x
x
x
x
x
x
getorient
x
x
x
x
x
getpoint
x
x
x
x
x
getcorner
x
x
x
x
x
getkword
x
x
x
entsel
x
nentsel
x
nentselp
x
 
Specifikace klíčových slov:
  Argument řetězec je interpretován podle následujících pravidel:
  - každé klíčové slovo je odděleno od ostatních jednou nebo více mezerami
  - každé klíčové slovo může obsahovat pouze písmena, čísla a pomlčky
   
  Existují dvě metody pro vytváření zkratek:
  - požadovaná zkratka klíčového slova je definován velkým písmem (např. "eXit")
  -celé klíčové slovo je definováno velkým písmem a zkratka je uvedena za čárkou (př."LTYPE,LT")
 
  Funkce initget má podporu pro lokalizovaná klíčová slova. Příklad syntaxe pro řetězec klíčového slova umožňující vstup lokalizovaného klíčového slova, když je požadována hodnota jazykově nezávislá:
  "local1 local2 localn _indep1 indep2 indepn"
  kde local1 až localn jsou lokalizovaná klíčová slova a _indep1 až indepn jsou jazykově nezávislá klíčová slova
  POZOR - musí být stejný počet lokalizovaných a nezávislých klíčovch slov!
   
  Příklad - při zadání A se vrátí Ghi a zadání _J vrátí Jkl:
  (initget "Abc Def _Ghi Jkl")
  (initget "Abc Def _Ghi Jkl")

(nentsel [msg])
 
Argumenty:
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
Popis:
  - funkce vyzve uživatele, aby vybral objekt (entitu) specifikováním bodu a umožní přístup k definici dat obsažených v komplexním objektu
 
Návratové hodnoty:
  - není-li objekt komplexní - 3D lomená čára nebo blok, vrátí funkce nentsel stejnou infomaci jako entsel
  - je-li objekt komplexní - 3D lomená čára nebo blok, vrátí funkce nentsel seznam obsahující jména subentit a výběrový bod

Podívejte se na funkce entsel, initget a nentselp.

(nentselp [msg] [pt])
 
Argumenty:
 
msg
 - řetězec, který je zobrazen jako výzva uživateli
 
pt
 - výběrový bod (to umožní vybrat objekt bez vstepu uživatele)
 
Popis:
  - provádí stejnou funkci jako nentsel, ale bez nutnosti vstupu uživatele
 
Návratové hodnoty:
  - 4x4 transformační matice

Podívejte se na funkci nentsel.