CAD Fórum : Samovolně se otevírající textové okno

CAD Fórum : Samovolně se otevírající textové okno https://www.cadforum.cz/forum/ Sun, 07 Jun 2026 13:25:20 +0000 Mon, 11 Jun 2007 17:51:53 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=4730 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Samovolně se otevírající textové okno : Pravda - při úplně prvním použití...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4730&PID=22818&title=samovolne-se-otevirajici-textove-okno#22818 Autor: Seiner
Předmět: 4730
Zasláno: 11.čer.2007 v 17:51

Pravda - při úplně prvním použití tam není. To by mohlo být ono. Díky.]]> Mon, 11 Jun 2007 17:51:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4730&PID=22818&title=samovolne-se-otevirajici-textove-okno#22818 <![CDATA[Samovolně se otevírající textové okno : ano, nejspíš při chybě - když...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4730&PID=22816&title=samovolne-se-otevirajici-textove-okno#22816 Autor: Vladimír Michl
Předmět: 4730
Zasláno: 11.čer.2007 v 16:12

ano, nejspíš při chybě - když se ten DXF soubor nenajde...]]> Mon, 11 Jun 2007 16:12:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4730&PID=22816&title=samovolne-se-otevirajici-textove-okno#22816 <![CDATA[Samovolně se otevírající textové okno : Jeden uživatel mi tvrdí, že v...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4730&PID=22808&title=samovolne-se-otevirajici-textove-okno#22808 Autor: Seiner
Předmět: 4730
Zasláno: 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)
)

]]> Mon, 11 Jun 2007 13:36:23 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4730&PID=22808&title=samovolne-se-otevirajici-textove-okno#22808