Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Не работают системные переменые dimblk1 и dimblk2
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Почему при указании в командной строке: dimblk1 . не меняются маркеры размеров в текущем размерном стиле? Также не работает програмный код:
ThisDrawing.SetVariable "DIMBLK1", "."
эффекта никакого.
Каким образом програмным способом настроить вид стрелок размеров?
Все мои программы в VBA для быстрой настройки размеров не работают не знаю почему.
Попробуй задать DIMSAH=1
> LeonidSN
Я может чего путаю по слабости ума:
Sub Change_DimProp() Dim selObj As AcadEntity Dim pickPt As Variant On Error GoTo What_a ThisDrawing.Utility.GetEntity selObj, pickPt, vbNewLine & "Select A Dimension To Change Arrow Type >> " If selObj.ObjectName Like "*Dimension" Then selObj.Arrowhead1Type = acArrowDot '@'(acArrowDotSmall, acArrowDotBlank) selObj.Arrowhead2Type = acArrowDot Else MsgBox "This isn't dimension", vbCritical, "You missed, buddy" End If Debug.Print selObj.ObjectName ThisDrawing.Regen acAllViewports What_a: MsgBox Err.Description End Sub
У меня чё-то не получается тоже, может стереотипное мышление
лиспера?
~'J'~
Sub Change_DimProp()
Dim selObj As AcadDimRotated
Dim pickPt As Variant
[b] ThisDrawing.SetVariable "DIMSAH", 1[/b]
On Error GoTo What_a
ThisDrawing.Utility.GetEntity selObj, pickPt, vbNewLine & "Select A Dimension To Change Arrow Type >> "
If selObj.ObjectName Like "*Dimension" Then
selObj.Arrowhead1Block = "CIR" 'имя пользовательского блока
selObj.Arrowhead2Block = "CIR"
Else
MsgBox "This isn't dimension", vbCritical, "You missed, buddy"
End If
Debug.Print selObj.ObjectName
ThisDrawing.Regen acAllViewports
What_a:
MsgBox Err.Description
'ThisDrawing.SetVariable "DIMSAH", 1
'ThisDrawing.SetVariable "DIMBLK1", "CIR"
'ThisDrawing.SetVariable "DIMBLK2", "CIR"
'MsgBox "OK, buddy! Enter new dimension"
End Sub> LeonidSN
Ну, голова!
Как всегда на высоте, спасибо усёк
Thanks, buddy
~'J'~
Дорогие коллеги! Всё это прекрасно работает в отношении конкретных размеров на чертеже, а моя задача поменять свойства размерного стиля: AcDimStyle!
Попробовал я использовать системную переменую DIMSAH но не получилось ничего что надо былобы:
Command: dimsah
Enter new value for DIMSAH <OFF>: 1
Command: dimblk1
Enter new value for DIMBLK1, or . for default <"">: .
Command: dimblk2
Enter new value for DIMBLK2, or . for default <"">: .
Посмотрел настройки текущего стиля размеров: не настроилось CLOSEDFILLED
Попробовал настроить CLOSEDBLANK:
Command: dimblk1
Enter new value for DIMBLK1, or . for default <"">: CLOSEDBLANK
Command: dimblk2
Enter new value for DIMBLK2, or . for default <"">: CLOSEDBLANK
Получилось.
Попробовал настроить CLOSEDFILLED:
Command: dimblk1
Enter new value for DIMBLK1, or . for default <"ClosedBlank">: .
Command: dimblk2
Enter new value for DIMBLK2, or . for default <"ClosedBlank">: .
Значение по умолчанию в командной строке изменилось (при следующем запуске команды: Command: dimblk1
Enter new value for DIMBLK1, or . for default <"">: . не говорится что значение CLOSEDFILLED) однако при рисовании размеров заштрихованые стрелки не появляются. Почему?
> Миша
Дорогой коллега!
Ни черта не пойму!!!
Все работает как ЗВЕРЬ!!!
Попробуй запустить закомментированную часть макроса.
Или так:
Enter new value for DIMBLK1, or . for default <"">: MyBlock
Нет, ну в самом деле! Ведь хочется помочь, а не пойму как?
Не обижайся, пожалуйста, просто задумайся над своими вопросами.
Извините, заработало.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Не работают системные переменые dimblk1 и dimblk2
Форум работает на PunBB, при поддержке Informer Technologies, Inc
