Программное создание размерных стилей (Страница 1 из 2)

> kpblc
...
3. Help2004 ->
-3 BYLAYER
-2 BYBLOCK
integer representing 100th of mm  (целое представляет сотую чать миллиметра...)
...

> kpblc
...
2. Для кодов 340... :
(tblobjname "style" "standard")
...
Для кодов ..., 341, -  ... 344
(tblobjname "block" "ESC-01")

> kpblc
DXF 5,6,7 и 342, 343, 344 есть предчуствие граблей... А2004 help -> DXF 5-7 вышли из употребления. ??? При этом в базе данных чертежа А2004 используются именно текстовые имена в 5-7 группах, в 342-344 голяк, отсюда вывод -> надо тестировать на конкретной платформе...
Возможно, эти группы, по разному ведут себя в базе данных и DXF-файле...
"...полагал, что имеется в виду номер ..." не понял... У Bylayer и Byblock нет значения... Integer выставляется для явного указания "толщины" размера, если не используются Bylayer или Byblock... Наверно каждый о своем...

> kpblc
"... какие группы являются обязательными, а какие - нет..." Где? В AutoCAD, в Table "Dimstyle", в секции Tables?

В принципе через объектную модель создать новый стиль совсем не сложно. Необходимо установить размерные системные переменные в требуемое положение и запутить подобную фукнцию

(defun make-DimStyle (NewName)
    (if (/= (getvar "DimStyle") NewName)
        (vla-CopyFrom
            (vla-add (vla-get-DimStyles
                         (vla-get-activedocument
                             (vlax-get-acad-object)
                         )
                     )
                     NewName
            )
            (vlax-ename->vla-object
                (tblobjname "style" (getvar "DimStyle"))
            )
        )
        t
    )
)

Все недостоющее будет взято из текущего стиля.
При совпадении имени текущего и вновь создоваемого стилей (tblobjname ...)возвращает nil, что никуда не годится. Т.к. искать выход лень обошел это ограничение "IF"-ом. В итоге если все ок возвращает nil если имена совпадаеют то T. Вобщем разбирайся сам :)))

> AY
Делал я так, до тех пор, пока не столкнулся с тем, что надо было делать отдельный стиль на угловые размеры, отдельно - на диаметры и т.п. (вручную работы на 2 минуты, а вот программно фигушки).

> Jura
Вот-вот, было подозрение, что ни entmake, ни entmakex не срабатывает почему-то напрямую в таблицы. А про какие vla-расширения тогда был разговор? Или ссылочку можно - хоть где это было (горю, решать надо сейчас, а знаний на нуле).

Чтобы было проще понимать, в чем проблема - см. www.webfile.ru/514212 в течение 7 дней до 12.09.2005 14:45.
Там все для примера, но принцип, я думаю, понятен. Мне надо именно такое сделать.

Я к тому, что "недостающее" не получается, добавить имя в таблицу у меня получалось и через последовательность
(setvar ...)
(vl-cmdf "_.dimstyle" "_save" ...)
Медленно, конечно, но работало. А вот теперь надо на основании одного стиля создать несколько - для углов, радиусов и т.п.

> Jura
Посмотри на файлик (ссылка в > kpblc (2005-09-12 14:45:56)) - там понятно будет.
Разговор именно про угловые размерные стили, не знаю я, как по-другому это назвать.
Про entmake и entmakex: я тоже достаточно сильно удивлен, что им не получается сделать размерный стиль. Вообще никакой.
Может быть, проблема у меня в списке, собственно вопрос: что в списке не так, если (entmake) позволяет сделать новую запись в таблицу "DIMSTYLE"?
Что самое интересное: только что попробовал:

(setq aa (list '(0 . "LAYER") '(2 . "test") '(70 . 0) '(62 . 10) '(6 . "Continuous") '(370 . 25)))
(entmake aa)

Результат - nil. Опять что-то не нравится...
см. > kpblc (2005-09-12 10:28:05)

> Jura
Для отдельного стиля можно создавать подстили специально для отдельных видов размерных примитивов (или мы это как-то не корректно называем?). Об этом промежду прочим и идет речь...
Что касается (entmake ...) - она работает. Вот пример дублирования текущего стиля с новым именем

(setq a (entget (tblobjname "dimstyle" (getvar "DimStyle")))
      b "New-1"
      a (VL-REMOVE-IF
            '(lambda (x)
                 (or
                     (= (car x) -1)
                     (= (car x) 179)
                     (= (car x) 279)
                 )
             )
            a
        )
)
(entmake (subst (cons 2 b) (assoc 2 a) a))

Здесь наблюдается интерестный эффект. Если текущий стиль с которого делается дубль содержит подстили, то они у него пропадают, а у дубля появляются! Так, что все возможно, надо копать. Вероятно эти подстили существуют как отдельные стили (их так вероятно и надо созвавать), а в головном стиле на них только ссылки.

> kpblc
Ваш тест должен звучать так:

((0 . "LAYER") (100 . "AcDbSymbolTableRecord") (100 .
"AcDbLayerTableRecord") (2 . "test") (70 . 0) (62 . 10) (6 . "Continuous") (370
. 25))

Я не зря писал про 100-тую группу...
Енто, про Ваш пример с созданием Слоя...

> AY
ну да, если подстили ссылаются на основной стиль, то они могут ссылаться только на один стиль. Поэтому, с Вашей точкой зрения Вы дублируете существующий, а возможно, с точки зрения программы происходит наоборот... И подстили вешаются на клон... IMHO