nastavení kótovacího stylu v LISPu
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=16606
Datum vytištění: 16.kvě.2026 v 18:45
Téma: nastavení kótovacího stylu v LISPu
Odeslal: stejsi
Předmět: nastavení kótovacího stylu v LISPu
Datum odeslání: 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.
|
Odpovědi:
Odeslal: Seiner
Datum odeslání: 06.úno.2013 v 15:01
|
No, kdyby nic jiného, tak přece musí fungovat (command "KÓTYSTYL" ....)
------------- Vítězslav Seiner Chrudim |
Odeslal: Seiner
Datum odeslání: 06.úno.2013 v 15:06
|
(command "KÓTYSTYL" "O" "STANDARD")
třeba ------------- Vítězslav Seiner Chrudim |
Odeslal: vbehun
Datum odeslání: 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.  ------------- =^..^= |
Odeslal: Seiner
Datum odeslání: 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 |
Odeslal: stejsi
Datum odeslání: 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
|