Vytisknout stránku | Zavřít okno

Samovolně se otevírající textové okno

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=4730
Datum vytištění: 07.čer.2026 v 13:20


Téma: Samovolně se otevírající textové okno
Odeslal: Seiner
Předmět: Samovolně se otevírající textové okno
Datum odeslání: 11.čer.2007 v 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)
)


-------------
Vítězslav Seiner

Chrudim


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 11.čer.2007 v 16:12
ano, nejspíš při chybě - když se ten DXF soubor nenajde...

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: Seiner
Datum odeslání: 11.čer.2007 v 17:51
Pravda - při úplně prvním použití tam není. To by mohlo být ono. Díky.

-------------
Vítězslav Seiner

Chrudim


Vytisknout stránku | Zavřít okno