CAD Fórum : nastavení kótovacího stylu v LISPu https://www.cadforum.cz/forum/ Sat, 16 May 2026 20:08:56 +0000 Thu, 07 Feb 2013 10:02:39 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=16606 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[nastavení kótovacího stylu v LISPu : Ano, ano. Pomohl jste mi. Děkuji....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=76013&title=nastaveni-kotovaciho-stylu-v-lispu#76013 Autor: stejsi
Předmět: 16606
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
]]> Thu, 07 Feb 2013 10:02:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=76013&title=nastaveni-kotovaciho-stylu-v-lispu#76013 <![CDATA[nastavení kótovacího stylu v LISPu : teď, jak si znova čtu dotaz, tak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=76003&title=nastaveni-kotovaciho-stylu-v-lispu#76003 Autor: Seiner
Předmět: 16606
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.]]> Wed, 06 Feb 2013 21:41:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=76003&title=nastaveni-kotovaciho-stylu-v-lispu#76003 <![CDATA[nastavení kótovacího stylu v LISPu : Možná ani není třeba LISP (stačilo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75989&title=nastaveni-kotovaciho-stylu-v-lispu#75989 Autor: vbehun
Předmět: 16606
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.
]]> Wed, 06 Feb 2013 15:32:59 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75989&title=nastaveni-kotovaciho-stylu-v-lispu#75989 <![CDATA[nastavení kótovacího stylu v LISPu : (command &#034;KÓTYSTYL&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75988&title=nastaveni-kotovaciho-stylu-v-lispu#75988 Autor: Seiner
Předmět: 16606
Zasláno: 06.úno.2013 v 15:06

(command "KÓTYSTYL" "O" "STANDARD")
třeba]]> Wed, 06 Feb 2013 15:06:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75988&title=nastaveni-kotovaciho-stylu-v-lispu#75988 <![CDATA[nastavení kótovacího stylu v LISPu : No, kdyby nic jiného, tak přece...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75986&title=nastaveni-kotovaciho-stylu-v-lispu#75986 Autor: Seiner
Předmět: 16606
Zasláno: 06.úno.2013 v 15:01

No, kdyby nic jiného, tak přece musí fungovat (command "KÓTYSTYL" ....)
]]> Wed, 06 Feb 2013 15:01:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75986&title=nastaveni-kotovaciho-stylu-v-lispu#75986 <![CDATA[nastavení kótovacího stylu v LISPu : Dobrý den, byl by prosím někdo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75985&title=nastaveni-kotovaciho-stylu-v-lispu#75985 Autor: stejsi
Předmět: 16606
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.
]]> Wed, 06 Feb 2013 14:56:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=16606&PID=75985&title=nastaveni-kotovaciho-stylu-v-lispu#75985