Dobrý den. Prosím o radu jak vytvořit lispy pro klávesové zkratky jednotlivých zarovnávání odstavcového textu. Např. zkratka "TDL" by vytvořila mtext se zarovnávání dolní levý.Mám toto:(defun C:TDL()  (command "mtext" (setq bod1 (getpoint)) "Z" "DL" bod1)  (setq bod1 nil))Funguje, ale problém je v tom, že mi pro zadávání vlastného textu nevyskočí dialogové okno pro psaní odstavcového textu, ale mohu ho zadávat jen v příkazové řádce.Děkuji za každou radu.

Z LISPu spuštěné příkazy komunikují implicitně přes příkazový řádek. Ale dají se přesvědčit:
 
[CODE]
(defun C:TDL( / bod1)  (setq bod1 (getpoint "\nLevý dolní bod: "))  (initdia 1)  (command "_mtext" bod1 "_ju" "_bl" bod1)  (princ))
[/CODE]