ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.500 registrovaných u nás, celkem 1.094.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
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řenoProblémy s lispy

 Odpovědět Odpovědět archiv
Autor
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6206
Přímý odkaz na tuto zprávu Téma: Problémy s lispy
    Zasláno: 01.čvc.2005 v 07:03

Dobrý den, používám často 2 lispy od pánů Garnet a pana Mantlíka a v poslední době mě trošku zlobí. Chybka bude jistě primitivní avšak přesto bych chtěl zkušenější programátory požádat o pomoc. Jedná se o následující problémy:

 

HEAL: Funkce funguje avšak často se u ní stává že dojde k vypnutí nastavení všech uchopovacích bodů.

 

ZKS: Funkce při spuštění po dokončení prováděné akce vypíše:

Zadejte volbu kótovacího stylu

[Ulož/Obnov/Stav/proMěnné/Použij/?] <Obnov>: _r

Zadejte název kótovacího stylu, <?> nebo <vyberte kótu>: GG_25_NIC

Aktuální kótovací styl:  GG_25_NIC

 

Příkaz: ZKS Neznámý příkaz "ZKS".  Stiskněte F1 pro nápovědu.


Připojené souborylsp2005-07-01_070308_heal.lsp


Připojené souborylsp2005-07-01_070326_zks.lsp

 

Předem děkuji za odpovědi

Pepa

 

 

Zpět nahoru
Mantlík Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (Pha)
Používám:
ACAD/Map/Civil R10-> 2022
Stav: Offline
Bodů: 2574
Přímý odkaz na tuto zprávu Zasláno: 01.čvc.2005 v 07:37

Ano, chybka tam byla - upravoval jsem to narychlo a věnoval pozornost spíše funkčnosti, než co to hlásí

I s tou vadnou a zavádějící hláškou to ale fungovalo (jak jsem si teď ověřil na souboru se 4 kót. styly

Z původního lispu na téma změny hladin tam v řádku, kde je

(command "-dimstyle" "_r" ch "")

vymažte prosím ty uvozovky na konci

S pozdravem

J. Mantlík

Zpět nahoru
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6206
Přímý odkaz na tuto zprávu Zasláno: 01.čvc.2005 v 08:27
Děkuji, nechtěl jsem Vás obtěžovat tak jsem dotaz na Vaši utilitu sloučil s dotazem rpo HEAL a dal to diskuse, děkuji za pohotovou odpověď a poprosí ještě ostatní zda by mi nepomohli s tím druhým lispem?
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.čvc.2005 v 08:37
Myslím, že k vypnutí uchopovacích módů dojde, pokud z nějakých důvodů neproběhne lisp celý - chyba nebo zásah uživatele. Jako u většiny lispů je na začátku uložen obsah proměnné OSMODE, pak je nastavena na 0 a na konci je vrácena uložená hodnota. Trochu lepší je technika, kdy se nenastavuje 0, ale teď nevím, jaká hodnota, která znamená jen vypnutí uchopování, ale nemění nastavení. Pak stačí jen stisknout F3 a máte zase uchopování jako předtím. Z hlediska programátora je to ale malinko pracnější :-(
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.čvc.2005 v 08:46

doporučuji nahradit části kódu, kde se OSMODE nastavuje na 0 a zpátky kódem:

(IF (<=(GETVAR "OSMODE") 16384)(PROGN(SETQ OSN 1)(SETVAR "OSMODE" (+(GETVAR "OSMODE")16384))))

a

(IF (AND(>=(GETVAR "OSMODE")16384)(= OSN 1))(SETVAR "OSMODE" (-(GETVAR "OSMODE")16384)))
)

A ještě poznámečka. Při zběžném pohledu nevidím proměnné použité pro ukládání systémových proměnných uvedené jako vnitřní. To se může jednou šeredně vymstít - podobně jako vracení zápalek do krabičky :-)

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.čvc.2005 v 08:59
Takže pak by to vypadalo takhle:
Připojené souborylsp2005-07-01_085840_h.lsp
Zpět nahoru
PepaR Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 29.lis.2004
Lokalita: ČR (ZL)
Používám:
ruky a hlavu (občas ;)
Stav: Offline
Bodů: 6206
Přímý odkaz na tuto zprávu Zasláno: 01.čvc.2005 v 10:11

p. Seiner děkuji Vám mnohokrát.

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.čvc.2005 v 12:08
Není zač. Tady je ještě něco co jsem vařil asi před 10 lety. Obdobná funkce, ale i pro oblouky.
Připojené souborylsp2005-07-01_120814_Join.lsp
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21907
Přímý odkaz na tuto zprávu Zasláno: 01.čvc.2005 v 13:03
to mimochodem řeší jeden z nových příkazů AutoCADu 2006 - SPOJ (_JOIN)
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.čvc.2005 v 13:09
Už se těším :-) (Upřímně - moc se netěším. Učit staré psy novým kouskům je dost vysilující.)
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 3289:VIPOdvození součástí s nestejnoměrným měřítkem X/Y/Z v Inventoru.
Tip 5570:VIPJak vytvořit odvozenou součást s nestejnoměrným měřítkem X/Y/Z ?
Tip 2788:VIPJak do výkresu vložit rastrový obrázek s nestejnými měřítky X,Y?
Tip 1723:VIPJak popsat bod textovou popiskou s jeho staničením (souřadnice X/Y) v AutoCADu LT?
Tip 2083:VIPSnadný import XYZ souřadnic z Excelu do AutoCADu.
Tip 489:Kam se v AutoCADu 2000i poděla ikona zlomené tužky?


 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 4,734 sekund.