ADN Club > VBA
Создание (изменение) размерного стиля в AutoCad из vba Access
Vladimir:
Добрый день!
Хочу внести изменения в размерный стиль AutoCad программным путем.
Для опытов использую код взятый на просторах Инета
--- Код - Visual Basic [Выбрать] --- Dim oDict As Variant Set oDict = acadDoc.Dictionaries.Item("ACAD_MLEADERSTYLE") Dim i As Long For i = 0 To oDict.Count - 1 Dim oObj As Variant Set oObj = oDict.Item(i) If oObj.ObjectName = "AcDbMLeaderStyle" Then Dim oMLS As Object Set oMLS = oObj MsgBox "Name = " & oMLS.Name & vbCrLf & _ "Annotative = " & oMLS.Annotative & vbCrLf & _ "ContentType = " & oMLS.ContentType & vbCrLf & _ "LeaderLineType = " & oMLS.LeaderLineType, vbInformation, "MLeader Styles" End If Next i Проблема в следующем ....
через окно сообщений вижу только один размерный стиль "Standard"
В watches наблюдаю следующее:
В Dictionaries не вижу существующих размерных стилей кроме "Standard", а в DimStyles - есть существующие стили но без свойств, то есть я не могу обращаться к стилю и изменить его свойства.
Подскажите, в чем ошибка и куда копать?
Александр Ривилис:
Приветствую на форуме. Приложи еще и файл чертежа, над которым ты работал.
Александр Ривилис:
P.S.: Вообще-то DimStyle и MLeaderStyle - это разные вещи. И хранятся они в разных местах. И методы внесения изменений в DimStyle и в MLeaderStyle разные.
Vladimir:
Доброго времени суток!
Александр Ривилис,
файл AutoCad во вложении.
(создавал при запущеном каде)
--- Код - Visual Basic [Выбрать] ---Set acadApp = GetObject(, "AutoCAD.Application") If Err Then Err.Clear Set acadApp = CreateObject("AutoCAD.Application") If Err Then MsgBox Err.Description Exit Sub End If End If acadApp.Visible = True Set acadDoc = acadApp.ActiveDocument ' Подключение к активному файлу AutoCad 'Set acadDoc = acadApp.Documents.Add 'Создание нового файла AutoCad
--- Цитата: Александр Ривилис от 23-09-2014, 00:04:52 ---P.S.: Вообще-то DimStyle и MLeaderStyle - это разные вещи. И хранятся они в разных местах. И методы внесения изменений в DimStyle и в MLeaderStyle разные.
--- Конец цитаты ---
Вот с этого места поподробнее...
Ссылку или пример.
Александр Ривилис:
--- Цитата: Vladimir от 23-09-2014, 05:09:48 ---Вот с этого места поподробнее...
Ссылку или пример.
--- Конец цитаты ---
DimStyle: http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-3227408C-75A9-434C-BD3F-B189A2BE098A
MLeaderStyle: http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-14AC2D0B-EBFC-44B9-982D-9112539F8DE8
А теперь уточни что именно ты собираешься из этого менять?
Навигация
Перейти к полной версии