Комментарии на: Создание размерного стиля

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Mon, 16 Dec 2019 08:19:13 +0000

Спасибо Browning Zed, который выполнил вменяемое тестирование на https://forum.dwg.ru/showthread.php?p=1842474 ! В исходный пост внесены корректировки, на мой код в комментариях можно не смотреть.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Sun, 15 Dec 2019 17:17:16 +0000

Слегка пришлось подправить _lispru-get-or-create-dimblock :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

(vl-load-com)

(defun _lispru-get-or-create-dimblock (name / err dimblk)
;|
* Получение ename-указателя или создание блока с переданным именем
* Если name попадает под стандартные наименования:
"" || "_DOT" || "_DOTSMALL" || "_DOTBLANK" || "_ORIGIN" ||
|| "_ORIGIN2" || "_OPEN" || "_OPEN90" || "_OPEN30" ||
|| "_CLOSED" || "_SMALL" || "_NONE" || "_OBLIQUE" ||
|| "_BOXFILLED" || "_BOXBLANK" || "_CLOSEDBLANK" || "_DATUMFILLED" ||
|| "_DATUMBLANK" || "_INTEGRAL" || "_ARCHTICK"

* То используется механизм через (setvar / getvar). В противном случае получается
* указатель на имеющийся блок с таким именем. Если такого блока нет, он создается
* пустым.
* Примеры вызова:
(_lispru-get-or-create-dimblock "qwert")
(_lispru-get-or-create-dimblock "archtick")
|;
(cond ((wcmatch (strcase (vl-string-left-trim "_" name))
(strcat """,DOT,DOTSMALL,DOTBLANK,ORIGIN,ORIGIN2,"
"OPEN,OPEN90,OPEN30,CLOSED,SMALL,"
"NONE,OBLIQUE,BOXFILLED,BOXBLANK,CLOSEDBLANK,"
"DATUMFILLED,DATUMBLANK,INTEGRAL,ARCHTICK"
) ;_ end of strcat
) ;_ end of wcmatch
(if (vl-catch-all-error-p
(setq err (vl-catch-all-apply
(function (lambda ()
(setq dimblk (getvar "dimblk"))
(if (= dimblk "")
(setq dimblk ".")
) ;_ end of if
(setvar "dimblk" (strcat "_" (vl-string-left-trim "_" name)))
(setvar "dimblk" dimblk)
(setq res (tblobjname "block" (strcat "_" (vl-string-left-trim "_" name))))
) ;_ end of lambda
) ;_ end of function
) ;_ end of vl-catch-all-apply
) ;_ end of setq
) ;_ end of vl-catch-all-error-p
(setq res (tblobjname "block" (getvar "dimblk")))
) ;_ end of if
(if res
(cdr (assoc 330 (entget res)))
) ;_ end of if
)
((tblobjname "block" name) (cdr(assoc 330 (entget (tblobjname "block" "_archtick")))))
(t
(vla-add (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vlax-3d-point '(0. 0. 0.))
name
) ;_ end of vla-add
(cdr (assoc 330 (entget (tblobjname "block" name))))
)
) ;_ end of cond
) ;_ end of defun

Функция может вернуть nil, если планируется использовать залитую стрелку: у этого блока мне пока не удалось получить указатель. Поэтому при entmake / entmakex придется пройтись по списку и "выкинуть" точечные пары, у которых второй элемент nil. vl-remove-if-not, к примеру, и вперед.

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Fri, 07 Jun 2013 05:00:15 +0000

Хорошо, уговорили

От: Gontarski

Gontarski — Fri, 07 Jun 2013 04:34:36 +0000

В приведенном выше примере я как раз и настраиваю. Подчеркиваю - НАСТРАИВАЮ СУЩЕСТВУЮЩИЙ размерный стиль!!! Устанавливаю для него новый текстовый стиль с именем "Текстовый_Стиль2".

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 06 Jun 2013 07:37:41 +0000

Отлично. Повторюсь: задача - настроить размерный стиль. Еще раз подчеркиваю - НАСТРОИТЬ!!! Установить засечки, их размер, установить текстовый стиль, аннотативность и т.п. Причем все (ну или какая-то часть) этих настроек должна отличаться от настроек предыдущего стиля.

От: Gontarski

Gontarski — Tue, 04 Jun 2013 07:53:38 +0000

>Я не знаю, почему, но факт остается фактом: ActiveX-методов настройки (не создания, а именно >настройки!) размерного стиля не существует

Это не факт, это Ваше предположение.

'изменение размерных стилей
Public Sub testDimStyle()
Dim acDimStyle As AcadDimStyle
Set acDimStyle = ThisDrawing.DimStyles.Item(0)

ThisDrawing.ActiveDimStyle = acDimStyle
Call ThisDrawing.SetVariable("DIMTXSTY", "Текстовый_Стиль2")
acDimStyle.copyFrom ThisDrawing

End Sub

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Tue, 29 Jun 2010 09:27:37 +0000

Так обратно-то надо вернуть
Насчет "перевода" значений системных переменных (убил бы локализаторов!):
Команда: DIMBLK

Новое значение DIMBLK, или . если по умолчанию < "Нет">:

Команда: (setvar "dimblk""_ArchTIck")
"_ArchTIck"

Команда: DIMBLK

Новое значение DIMBLK, или . если по умолчанию < "ДвЗасечка">:

Почему функция вернула nil - пока не понял, надо разбираться.

От: Makswell

Makswell — Tue, 22 Jun 2010 05:27:28 +0000

По функции _lispru-get-or-create-dimblock. Во фрагменте кода не понятно, почему подряд идут 2 setvar'а? В первом как бы получается нет никакого смысла? (setq dimblk (getvar "dimblk")) (setvar "dimblk" (strcat "_" (vl-string-left-trim "_" name)) ) (setvar "dimblk" dimblk) И ещё. В моём русском Автокаде 2008 твой код в частности ведёт себя так: _$ (_lispru-get-or-create-dimblock "archtick") nil _$ (getvar "dimblk") "Засечка" _$