CAD Fórum : Getstring - doplnene https://www.cadforum.cz/forum/ Thu, 11 Jun 2026 20:32:02 +0000 Wed, 07 Jan 2009 19:39:50 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=7858 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Getstring - doplnene : Ano tak to funguje , ale ten vypis...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7858&PID=39626&title=getstring-doplnene#39626 Autor: comodo
Předmět: 7858
Zasláno: 07.led.2009 v 19:39

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.



Upravil comodo - 07.led.2009 v 19:40]]> Wed, 07 Jan 2009 19:39:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7858&PID=39626&title=getstring-doplnene#39626 <![CDATA[Getstring - doplnene : To je dost divný zápis - i pro...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7858&PID=39623&title=getstring-doplnene#39623 Autor: Vladimír Michl
Předmět: 7858
Zasláno: 07.led.2009 v 19:09

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 ": " )))
]]> Wed, 07 Jan 2009 19:09:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7858&PID=39623&title=getstring-doplnene#39623 <![CDATA[Getstring - doplnene : Po niekolkorocnej pause sautolispom...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7858&PID=39622&title=getstring-doplnene#39622 Autor: comodo
Předmět: 7858
Zasláno: 07.led.2009 v 18:31

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 :    ?



Upravil comodo - 07.led.2009 v 18:55]]> Wed, 07 Jan 2009 18:31:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7858&PID=39622&title=getstring-doplnene#39622