[lex0101]

Господа, асы Лиспа, подскажите пожалуйста, как программно создать новый размерный стиль?
Пробую через entmake и entmakex, но ниче не получается, т.к. в кодах DXF не очень силен.
Может есть еще каке варианты, подскажите кто знает

[Profan]

Как пример:

Код:

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

 
(defun set_rp ()
; Задание размерных переменных.
(setvar "cmdecho" 0)
(command "_osnap" "_none")
(command "_snap" "_off")
(command "_STYLE" "RAZMER" "romans" "" "" "" "_N" "_N" "_N")
(setvar "DIMASO" 1) ; Ассоциативные размеры включены 
(setvar "DIMUNIT" 2) ; Десятичная система единиц
(setvar "DIMASZ" 2) ; Размер стрелки (засечки)
(setvar "DIMBLK" "_Oblique") ; Вместо стрелок - засечки ("Oblique")
(setvar "DIMDEC" 0) ; Число знаков после запятой
(setvar "DIMTXSTY" "RAZMER") ; Стиль размерного текста
(setvar "DIMTXT" 2) ; Высота размерного текста
(setvar "DIMTOFL" 1) ; Размерная линия всегда рисуется между выносными линиями
(setvar "DIMTIH" 0) ; Размерный текст параллелен размерной линии (внутри)
(setvar "DIMTOH" 0) ; Размерный текст параллелен размерной линии (снаружи)
(setvar "DIMTIX" 1) ; Размерный текст всегда размещается между выносными линиями
(setvar "DIMDLE" 2) ; Размерная линия выступает за выносную на 2 единицы
(setvar "DIMTAD" 1) ; Текст размещается над размерной линией
(setvar "DIMGAP" 1) ; Текст выше размерной линиии на 1 единицы
(setvar "DIMEXO" 2) ; Смещение выносных линий относительно заданных точек равно нулю
(setvar "DIMEXE" 2) ; Выносные линии выступает за размерные на 2 единицы
(setvar "DIMTMOVE" 2) ; Размерный текст перемещается свободно
(command "_DIMSTYLE" "_SAVE" "PROKAT")
(setvar "DIMEXE" 0) ; Выносные линии выступает за размерные на 0 единиц
(setvar "DIMSE1" 1)
(setvar "DIMSE2" 1)
(command "_DIMSTYLE" "_SAVE" "Цепочка")
(command "_DIMSTYLE" "_R" "PROKAT")
)

[lex0101]

не совсем то, что надо. прописать стилю нужные параметры дело десятое.
Главное - это затащить в чертеж или программно создавать каждый раз размерный стиль.

но все равно большое спасибо

свою проблему решил другим способом:
в чертеже в ручную создал размерный стиль, со всеми нужными параметрами, затем получил его свойства через
(entget (tblobjname "dimstyle" (getvar "dimstyle")))получил длиный список, лишнее из него вырезал, ипрописал в лиспе

entmakex (list '(0 . "DIMSTYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbDimStyleTableRecord") '(2 . "MYDIM") '(70 . 0) '(40 . 0.0) '(41 . 2.5) '(42 . 0.625) '(43 . 3.75) '(44 . 1.25) '(73 . 0) '(74 . 0) '(77 . 1) '(78 . 8) '(140 . 3.0) '(141 . 2.5) '(143 . 0.0393701) '(147 . 0.625) '(171 . 3) '(172 . 1) '(176 . 256) '(177 . 256) '(178 . 256) '(271 . 0) '(272 . 0) '(274 . 3) '(283 . 0) '(284 . 8) '(371 . -1) '(372 . -1)))и теперь вроде как работает

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

http://autolisp.ru/2009/11/02/dimstyle-create/ ?