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))
(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))