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.
Katalog CAD bloků
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řenonastavení kótovacího stylu v LISPu
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
stejsi Zobrazit panel
Diskutér
Diskutér

Přihlášen: 20.kvě.2008
Používám:
autocad 2008
Stav: Offline
Bodů: 18
 Přímý odkaz na tuto zprávu Téma: nastavení kótovacího stylu v LISPu
    Zasláno: 06.úno.2013 v 14:56
Dobrý den,
byl by prosím někdo schopný mi poradit jak změnit kótovací styl na aktuální pomocí LISPU? Mám vytvořeny tři kótovací styly a namohu za nic přijít na to jakým příkazem se změní aktuální styl.
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: 06.úno.2013 v 15:01
No, kdyby nic jiného, tak přece musí fungovat (command "KÓTYSTYL" ....)
Vítězslav Seiner

Chrudim
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: 06.úno.2013 v 15:06
(command "KÓTYSTYL" "O" "STANDARD")
třeba
Vítězslav Seiner

Chrudim
Zpět nahoru
vbehun Zobrazit panel
TOP uživatel
TOP uživatel
Avatar

Přihlášen: 04.říj.2004
Lokalita: ČR (ZL)
Používám:
Autocad R10 >> Autocad 2023 / altern. QCad Prof.
Stav: Offline
Bodů: 1247
 Přímý odkaz na tuto zprávu Zasláno: 06.úno.2013 v 15:32
Možná ani není třeba LISP (stačilo by makro).
P.S.
Taky přes ikonku - viz obrázek.
Připojené náhledyPřihlaste se pro zobrazení plné verze - 81/koty-styl.png
=^..^=
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: 06.úno.2013 v 21:41
teď, jak si znova čtu dotaz, tak mi vlastně není jasné, na co se stejsi ptal. "změnit kótovací styl na aktuální" bych chápal jako změnit styl nějaké kóty na aktuální. "jakým příkazem se změní aktuální styl." bych ale chápal, že chce změnit aktuální styl kótování. A na to jsem odpovídal. Chtěl lisp => řešil jsem lisp.
Vítězslav Seiner

Chrudim
Zpět nahoru
stejsi Zobrazit panel
Diskutér
Diskutér

Přihlášen: 20.kvě.2008
Používám:
autocad 2008
Stav: Offline
Bodů: 18
 Přímý odkaz na tuto zprávu Zasláno: 07.úno.2013 v 10:02
Ano, ano. Pomohl jste mi. Děkuji. Problém byl v tom, že jsem si nadefinoval styly kót zhruba takto
Nejdřív všechny vytvořil:
  (if (not (tblsearch "dimstyle" "1_25"))
    (command "dimstyle" "_S" "1_25"))) 
    .
    .
    .
Potom všechny nadefinoval:
     (command "_dimstyle""O""1_25""")
     (setvar "DIMBLK" "_oblique")  
     (setvar "DIMBLK1" "_oblique")  
     (setvar "DIMBLK2" "_oblique") 
     (command "DIMFXLON" "a")
     (setvar "DIMTXSTY" "styl1")
     (setvar "DIMFXL" 10)
     (setvar "DIMSCALE" 10) 
    .
    .
 
Nakonec zůstal aktivní posledně nadefinovaný, proto jsem potřeboval změnit aktuální styl. Když jsem ale použil příkaz
     
      (command "_dimstyle""O""1_25""")
 
sice ho nastavil jako aktuální, ale změnil i proměnné na původní hodnoty a to proto, že jsem po definici styl neuložil. 
 
  (if (not (tblsearch "dimstyle" "1_100"))
  (progn
    (setvar "DIMBLK" "_oblique")  
    (setvar "DIMBLK1" "_oblique")  
    (setvar "DIMBLK2" "_oblique")  
    (command "DIMFXLON" "a")
    (setvar "DIMTXSTY" "styl1")
    (setvar "DIMFXL" 10)
    (setvar "DIMSCALE" 10)  
    (command "_dimstyle""_S""1_100"))
  )
 
Děkuji všem za podnětné rady. Teď už vše funguje
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 14120:Nastavení výchozího kótovacího stylu v AutoCADu Mechanical "nedrží", vrací se na AM_ISO.
Tip 3471:Tentýž výkres má v kótách na jednom počítači desetinné tečky a na jiném čárky.
Tip 10022:Dědičnost vlastností pokračovací řetězové kóty.
Tip 9764:Jak v Inventoru nastavit a uložit vlastní kótovací styl?
Tip 4835:Rychlé vytvoření upraveného kótovacího stylu.
Tip 3459:Jak nastavit jiný typ čáry pro kótovací a vynášecí čáry kót?


 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 5,807 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img