https://www.cadforum.cz/forum/ Fri, 03 Jul 2026 06:37:16 +0000 Tue, 14 Aug 2007 14:25:21 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=5012 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24172&title=potlacenie-dialogoveho-okna-v-lispe#24172 Autor: alfred
Předmět: 5012
Zasláno: 14.srp.2007 v 14:25

vzdyt Vy si ten dialog sam otevirate.
radku
(setq fn (getfiled "Text Export File" "" "txt" 1))

nahradte
(setq fn (getstring "Zadej jmeno souboru: "))

nebo rovnou natvrdo napsat hodnotu stringu

pokud chcete aby to zaviselo na promene FILEDIA tak bych to resil podminkou
]]> Tue, 14 Aug 2007 14:25:21 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24172&title=potlacenie-dialogoveho-okna-v-lispe#24172 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24158&title=potlacenie-dialogoveho-okna-v-lispe#24158 Autor: Augur
Předmět: 5012
Zasláno: 14.srp.2007 v 11:06

Ano o premennych "filedia" a cmddia" viem a pouzivam ich, ale na toto nemaju vlyv. Kedze tento export sa robi pomocou lispu, zaujimalo ma, ci sa da nejakou upravou samotneho lispu potlacit dialog.
Samotny lisp vyzera asi takto.

(defun c:txtexprt ()
(setq sset (ssget '((0 . "TEXT"))))
(if sset
    (progn
      (setq itm 0)
      (setq num (sslength sset))
      (setq fn (getfiled "Text Export File" "" "txt" 1))
      (if (/= fn nil)
        (progn
          (setq fh (open fn "w"))
          (while (< itm num)
            (setq hnd (ssname sset itm))
            (setq ent (entget hnd))
            (setq stv (cdr (assoc 1 ent)))
            (princ (strcat stv "\n") fh)
            (setq itm (1+ itm))
          )
          (close fh)
        )
      )
    )
)
(setq sset nil)
(princ)
)
]]> Tue, 14 Aug 2007 11:06:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24158&title=potlacenie-dialogoveho-okna-v-lispe#24158 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24154&title=potlacenie-dialogoveho-okna-v-lispe#24154 Autor: Mrázek
Předmět: 5012
Zasláno: 14.srp.2007 v 08:42

Dialogové panely se vypínají systémovou proměnnou FILEDIA (načtení a uložení souborů), popř. CMDDIA (ostatní příkazy). Takže na začátku rutiny si tyto proměnné nastavte na 0 a na jejím konci zpět na 1.]]> Tue, 14 Aug 2007 08:42:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24154&title=potlacenie-dialogoveho-okna-v-lispe#24154 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24153&title=potlacenie-dialogoveho-okna-v-lispe#24153 Autor: alfred
Předmět: 5012
Zasláno: 14.srp.2007 v 08:41

Nerozumim jaky dialog mate na mysli.
Pokud dialog na ulozeni souboru, tak promenna FILEDIA.
Pokud se jedná o dialog nejake funkce AutoCadu, tak zalezi na tom, zda podporuje i rezim bez dialogu - casto ten prikaz zacina "-" (napr. "plot" a "-plot").

]]> Tue, 14 Aug 2007 08:41:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24153&title=potlacenie-dialogoveho-okna-v-lispe#24153 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24150&title=potlacenie-dialogoveho-okna-v-lispe#24150 Autor: Augur
Předmět: 5012
Zasláno: 14.srp.2007 v 07:43

Dobry den. Chcem v scripte pouzit lisp, ktory vyexportuje vsetky texty z vykresu. Pred samotnym ulozenim textoveho dokumentu sa mi objavi dialogove okno, ktore neviem potvrdit priamo zo scriptu.. Ako sa da upravit lisp (vykonavajuci export textu) aby som obysiel dialog.. Uvazoval som, ci by nebolo riesenim pouzit aplikaciu Timer.arx, ale pod CAD2007 sa neda nacitat.

Upravil Augur - 14.srp.2007 v 08:33]]> Tue, 14 Aug 2007 07:43:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5012&PID=24150&title=potlacenie-dialogoveho-okna-v-lispe#24150