Всем доброго дня!
Александр Ривилис, разобрался, работает.
Переменную dimSt нужно объявлять как
Object (первый раз (#20) пробовал с Variant на Object не хватило времени)
С "
ThisDrawing" и "
acadDoc" само собой и чтобы не было путаницы, в рабочем коде оставлю "
ThisDrawing"
' Устанавливаем признак аннотативности у размерного стиля
' заданного именем dimStyleName (если он есть)
Sub DimAnnotateOn(dimStyleName As String)
On Error GoTo Skip
Dim dimSt As Object
Set dimSt = ThisDrawing.DimStyles(dimStyleName)
Dim data(5) As Integer
Dim value(5) As Variant
data(0) = 1001: value(0) = "AcadAnnotative"
data(1) = 1000: value(1) = "AnnotativeData"
data(2) = 1002: value(2) = "{"
data(3) = 1070: value(3) = 1
data(4) = 1070: value(4) = 1
data(5) = 1002: value(5) = "}"
dimSt.SetXData data, value
Skip:
End Sub
' Удаляем признак аннотативности у размерного стиля
' заданного именем dimStyleName (если он есть)
Sub DimAnnotateOff(dimStyleName As String)
On Error GoTo Skip
Dim dimSt As Object
Set dimSt = ThisDrawing.DimStyles(styleName)
Dim data(0) As Integer
Dim value(0) As Variant
data(0) = 1001: value(0) = "AcadAnnotative"
dimSt.SetXData data, value
Skip:
End Sub
Не смотря на решение моего вопроса, программным путем, в своем рабочем коде оставлю следующее решение:
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
acadApp.Visible = True
Set acadDoc = acadApp.Documents.Add("Путь к файлу шаблона\iso-25.dwt")
P.S. при создании ответа не видно порядковых номеров предыдущих сообщений.
