Zobrazit plnou verzi příspěvku: Samovolně se otevírající textové okno

Seiner
11.06.2007, 13:36
Jeden uživatel mi tvrdí, že v AC2008 se mu po spuštění lispovského kódu, kterým jsem definoval příkaz, otevře textové okno. Mně to nedělá. Čím by to mohlo být způsobeno? Kdy se otevírá textové okno samo? Při chybě?
 
(kód je tento - ale myslím, že to není podstatné:)
;vyplněnní řádku nadsavby;**************************
(defun c:radek()
(setq mer (getvar "USERR1"))(if (= mer 0.0)(progn(setq mer(getreal "Měřítko výkresu: "))(setvar "USERR1" mer)))(if (= mer 0.0)(exit))(setq OSN (GETVAR "OSMODE"))(SETVAR "OSMODE" 32)(setq P1 P P nil)(startapp Radek_program)
(while (= P nil)(setq P(getpoint "L.D.R. řádku: "))(if (and (= P nil)(/= P1 nil))(progn     (setq P (list (car P1)(+(cadr P1)(* mer 8)))))))
 
 (command "_INSERT" "*C:\\RADEK.dxf" P mer  '0 )
(SETVAR "OSMODE" OSN))

Vladimír Michl
11.06.2007, 16:12
ano, nejspíš při chybě - když se ten DXF soubor nenajde...

Seiner
11.06.2007, 17:51
Pravda - při úplně prvním použití tam není. To by mohlo být ono. Díky.