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.

No, kdyby nic jiného, tak přece musí fungovat (command "KÓTYSTYL" ....)

(command "KÓTYSTYL" "O" "STANDARD")
třeba

Možná ani není třeba LISP (stačilo by makro).P.S.Taky přes ikonku - viz obrázek.

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.

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