Po  niekolkorocnej pause s autolispom som skusal ozivit stare rutiny vytvorene este pre acad10 a 12. Vidim ze je co dohanat. Prosim  o radu.
 
Mam stary zapis :
(SETQ R1 „20“)
(SETQ Q (GETSTRING T "CISLO, "(princ (strcat "enter = " R1 ": " )) ))
(cond((= Q "")(setq Q R1 )))(SETQ R1 Q )
 
 
Tento zapis v Cad 10 dal v prikazovom riadku vysledok :
CISLO,  enter = 20 :
( teda bud sa z klavesnice zadal retazec , alebo  v pripade enteru ziskalo  Q hodnotu „20“)
 
Moj problem je ze vyslekok  v  Autocad 2005 je v opacnom poradi :
 
Enter=20 : CISLO
Ako z toho dostat  povodny vypis    CISLO,  enter = 20 :    ?comodo2009-01-07 18:55:08

To je dost divný zápis - i pro R10.
 
Pominu-li ty typografické uvozovky, je potřeba upravit řádek:
 
(SETQ Q (GETSTRING (strcat "CISLO, enter = " R1 ": " )))

Ano tak to funguje , ale ten vypis je tam potom  nieviem z akeho dovodu 2x. Teda :
CISLO,  enter = 20 : CISLO,  enter = 20 :
( ja som kedysi  tym podivnym zapisom vlaste vyriesil tu duplicitu.)
Teraz som to teda zlatal s tym T ““ takto a ide :
 
(SETQ Q (GETSTRING T "" (princ (strcat " Cislo, enter = " R1 ": " )) ))
 
Dakujem.comodo2009-01-07 19:40:23