ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenopodmínka

 Odpovědět Odpovědět archiv
Autor
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1906
Přímý odkaz na tuto zprávu Téma: podmínka
    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í.
-FerTh-
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21952
Přímý odkaz na tuto zprávu 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
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
Přímý odkaz na tuto zprávu 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>)
 
Vítězslav Seiner

Chrudim
Zpět nahoru
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1906
Přímý odkaz na tuto zprávu Zasláno: 01.bře.2007 v 10:23
Děkuji za objasnění. Asi se budu vyhýbat jeho použití...
-FerTh-
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 9056:V jakém pořadí se uplatní počáteční podmínky v Simulation CFD?
Tip 3035:VIPJak použít podmíněné výrazy v parametrech součástí Inventoru?
Tip 8994:Jak ve Vaultu vyhledat všechny (popř. "jen mnou") vydané soubory?
Tip 12315:Načtení řezných podmínek z databáze nástrojů PowerMill.
Tip 7826:VIPNěkteré výřezy nesplňují správné podmínky zoomu.
Tip 6406:Jak ve Vaultu vyhledat všechny vydané dokumenty?


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,150 sekund.