Ahoj, potrebuju poradit,
mam napsany program v lispu, kde vypisuji do vykresu na souradnicich -a- poradovy bod -nn-

;(command "text" a "3.5" "0.0" (rtos nn 2 0) )     1.
(command "text" a "0.0" (rtos nn 2 0) )        2.

To ze tam mam 2 radky je proto, ze nekdy, nevim kvuli ktere promenne,
chce po me system vysku pisma "3.5" a skloneni "0.0" a nekdy jen
skloneni "0.0" , abych vypsal text spravne.  Proto musim v Lispu
prepinat strednikem radky, aby mi to v 1. pripade nepsalo jako text
"0.0" to je potom poradi bodu jen same 0, a nebo ve 2. pripade pozaduje
uhel skloneni popr. text k napsani. 
Kdyby to delalo jen pri prvnim spusteni, hledal byl problem v inicializaci.
Kdyz prihraju svuj *.dwt vykres, coz byva vetsinou, pouzivam bez
problemu radek 2. ale kdyz nacitam vykres z venku nebo pouziji jako
novy nejaky prednastaveny dwt vykres, pak vetsinou musim pouzit radku 1.

dik za radu.

Jestli se příkaz TEXT ptá na výšku, záleží na nastavené výšce textu (TEXTSIZE). Pokud je 0, ptá se, pokud je nenulové, neptá.

Pane Sainer, to bylo prvni, co jsem kontroloval, vyska textu je nenulova, kdyz jsem ji programove zmenil, zustala zmenena.

Omlouvám, se. Trochu jsem to zvojtil. Ne TEXTSIZE, ale velikost AKTUÁLNÍHO písma.

Asi bych to řešil tak, že bych před Vaším příkazem použil příkaz PÍSMO (tuším _STYLE) a nastavil určitý styl s pevnou výškou. Jak jdou dialogy za sebou, zjistíte, když si dáte -PÍSMO.

Diky, nelze sice najit primo promennou, ktera by urcovala vysku pisme ve _style, ale resil jsem to povelem (command "_style" "" "" "3.5" "" "" "" "" "") , coz sice, jak rikate prepise, vysku natvrdo, ale pomuze to.

Stylů může být mnoho takže to není jedna proměnná, ale jakýsi atribut v tabulce stylů. Výšku aktuálního písma otestujete např. pomocí:
(if (/= 0.0 (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) ....