CAD Fórum : podmínka https://www.cadforum.cz/forum/ Thu, 14 May 2026 22:09:27 +0000 Thu, 01 Mar 2007 10:23:16 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=4103 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[podmínka : Děkuji za objasnění. Asi se budu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19601&title=podminka#19601 Autor: Ferdinand
Předmět: 4103
Zasláno: 01.bře.2007 v 10:23

Děkuji za objasnění. Asi se budu vyhýbat jeho použití...]]> Thu, 01 Mar 2007 10:23:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19601&title=podminka#19601 <![CDATA[podmínka : IMHO exit je ladící funkce a při...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19592&title=podminka#19592 Autor: Seiner
Předmět: 4103
Zasláno: 01.bře.2007 v 09:09

IMHO exit je ladící funkce a při jejím použití to vždy hlásí chybu.
Prostě musíte požívat "strukturovaný" kód a důsledně používat konstrukce typu (If <jestliže_ano> <jestliže_ne>)
 
]]> Thu, 01 Mar 2007 09:09:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19592&title=podminka#19592 <![CDATA[podmínka : (exit) je funkce LISPu - ukončení...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19590&title=podminka#19590 Autor: Vladimír Michl
Předmět: 4103
Zasláno: 01.bře.2007 v 09:09

(exit) je funkce LISPu - ukončení zpracování kódu
takže "exit abort" je ta správná reakce
]]> Thu, 01 Mar 2007 09:09:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19590&title=podminka#19590 <![CDATA[podmínka : (if QS5 (command &#034;_qsave&#034;)...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19589&title=podminka#19589 Autor: Ferdinand
Předmět: 4103
Zasláno: 01.bře.2007 v 09:01

    (if    QS5
      (command "_qsave")
      (exit)
    )

Proč neprovede (exit) když neexistuje ve výkr. blok, který je definován jako

(setq DWG (getvar "dwgname"))
(setq LL (strlen DWG))
(setq NPF (substr DWG 1 (- LL 4)))
(setq NPF_C (strcat NPF "_C"))

přičemž blok NPF_C byl/nebyl vytvořen jako

(setq QS5 (ssget "X" (list (cons 8 "OEZ_*OBV"))))
    (if    QS5
      (progn (command "_chprop" QS5 "" "_C" 6 "_LT" "center" "_LA" 0 "")
         (command "_-block" NPF_C "0,0" QS5 "")
         (command "_-wblock" NPF_C "=")
         (command "_-insert" NPF_C "0,0" 1 1 0)
      )
    )

? Opačně mi to taky nechce brát

    (if    (= QS5 nil)
      (exit)
      (command "_qsave")
    )

Píše mi na p.ř. hlášku

; error: quit / exit abort

Lze snad namísto exit použít nějaký jiný příkaz? Jde o hromadné zpracování hodně výkresů pomocí lispu a nechci, aby to úplně ukončilo AutoCAD, nýbrž aby ten výkres, ve kterém ten blok není, nechal být (tj. bez uložení, přesto že v lispu se něco provádělo) a otevřel další výkres pro zpracování.]]> Thu, 01 Mar 2007 09:01:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4103&PID=19589&title=podminka#19589