[Pilot]

Почему в ответ на:

(setvar "dimstyle" "style_name")

Автокад ругается:

AutoCAD variable setting rejected:
"dimstyle" "style_name"

[Pilot]

Сам спросил - сам ответил:

Она (переменная) только для чтения.

[Эдуард]

Как-то так
где stn - имя стиля

Код:

[Выделить все]

  (vl-load-com)
(defun actdimst	(stn)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (if
    (tblsearch "dimstyle" stn)
     (vla-put-ActiveDimStyle
       adoc
       (vla-item (vla-get-DimStyles adoc) stn)
     ) ;_ end of vla-put-ActiveDimStyle
  ) ;_ end of if
  (princ)
) ;_ end of defun

[Pilot]

Или так:

(command "-dimstyle" "_r" "style_name")

[sasha_lif]

на кнопочку повесил макрос

Код:

[Выделить все]

^C^C-dimstyle;_r;30

Все хорошо, меняет размерный стиль.
Но проблема, после работы макроса выскакивает окошко Text Window (то , что по F2 вызывается) , как сделать что бы окно не появлялось?

Ага, если хорошо поискать, то уже есть и решение:
Тюнинг Cad систем

Код:

[Выделить все]

^C^C_menuecho;2;-dimstyle;_r;30;menuecho;0;

Спасибо, Vova

[Holon]

Код:

[Выделить все]

 (SETVAR "DIMASZ" 40)			;Arrow size 
  (SETVAR "DIMCLRD" 3)			;(Green)(BYBLOCK)  Dimension line and leader color 
  (SETVAR "DIMCLRE" 3)			;(Green)(BYBLOCK)  Extension line color 
  (SETVAR "DIMCLRT" 7)			;(white)  Dimension text color 
  (SETVAR "DIMDLI" 0)			;Dimension line spacing 
  (SETVAR "DIMEXE" 20)			;Extension above dimension line 
  (SETVAR "DIMEXO" 30)			;Extension line origin offset 
  (SETVAR "DIMGAP" 20)			;Gap from dimension line to text 
  (SETVAR "DIMSOXD" 0)			;(Off) Suppress outside (SETVAR "DIMASZ" 40)			;Arrow size 
  (SETVAR "DIMCLRD" 3)			;(Green)(BYBLOCK)  Dimension line and leader color 
  (SETVAR "DIMCLRE" 3)			;(Green)(BYBLOCK)  Extension line color 
  (SETVAR "DIMCLRT" 7)			;(white)  Dimension text color 
  (SETVAR "DIMDLI" 0)			;Dimension line spacing 
  (SETVAR "DIMEXE" 20)			;Extension above dimension line 
  (SETVAR "DIMEXO" 30)			;Extension line origin offset 
  (SETVAR "DIMGAP" 20)			;Gap from dimension line to text 
  (SETVAR "DIMSOXD" 0)			;(Off) Suppress outside dimension lines 
(SETVAR "DIMTAD" 1)			;Place text above the dimension line 
  (SETVAR "DIMTIH" 0)			;(Off)Text inside extensions is horizontal 
  (SETVAR "DIMTSZ" 0)			;Tick size 
  (SETVAR "DIMTXT" 40)			;Text height

Вот так намного гибче, если я правильно понял задачу, размерного стиля может и неоказаться в моделе!

[Кулик Алексей aka kpblc]

http://autolisp.ru/2009/11/02/dimstyle-create/ не подойдет?