AUTOCAD
INVENTOR
REVIT
CIVIL 3D
FUSION
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností
Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi.
Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
|
Getstring - doplnene
Odpovědět 
|
archiv |
| Autor | |
comodo 
Diskutér 
Přihlášen: 20.led.2006 Lokalita: Slovensko Stav: Offline Bodů: 70 |
 Téma: Getstring - doplneneZaslá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 |
|
 |
|
|
Vladimír Michl
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor 
ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 21950 |
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 ": " )))
|
|
|
|
|
comodo
Diskutér
Přihlášen: 20.led.2006 Lokalita: Slovensko Stav: Offline Bodů: 70 |
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 |
|
|
|
Možnosti tématuPro technickou podporu CAD
kontaktujte Helpdesk
|
Odpovědět
|
|
| Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,156 sekund.
