[LAPA]

Возможно ли с помощью VBA вытащить параметры объектов, которые созданы в СПДС?

[crosandr]

Сообщение от MCAD Например тут

Этот хелп актуален для акад 2011 и спдс 6?

[Konstruktiv54]

Сообщение от MCAD 'В методе Query первый параметр - одно или несколько (через точку с запятой) имён классов. 'Второй параметр - имена и значения свойств. Если он определён, будут выбраны только те 'объекты, в которых есть такие свойства, а их значения совпадают с введёнными в Query. ' 'Значения параметров можно посмотреть в скрипте объекта: ' strTheName = "19425-74"; ' strTheType = "Profile"; ' strTheSubType = "I-Shape";

Можно ли с помощью Query обрабатывать область значений?
Set spdsobjects = server.Query("McCOM2.SymFrame", "Inv = SEARCHINV") вот стандартная запись, а я думал над вот таким
Set spdsobjects = server.Query("McCOM2.SymFrame", "Inv > min" и "Inv < min")

----- добавлено через ~4 ч. -----
или подскажите как правильно добавить элементы в коллекцию с помощью цикла?

[doctorraz]

Сообщение от MCAD Для кого писали коментарии??? 'В методе Query первый параметр - одно или несколько (через точку с запятой) имён классов. 'Второй параметр - имена и значения свойств. Если он определён, будут выбраны только те 'объекты, в которых есть такие свойства, а их значения совпадают с введёнными в Query. ' 'Значения параметров можно посмотреть в скрипте объекта: ' strTheName = "19425-74"; ' strTheType = "Profile"; ' strTheSubType = "I-Shape"; Общий случай получения свойств с объектов:

подскажите пожалуйста есть ли возможность одним Query, сразу собрать объекты со всего документа (модели и листов) в коллекцию

[doctorraz]

Как работать с классом BOM??
хотя бы как его получить?

[doctorraz]

Сообщение от doctorraz подскажите пожалуйста есть ли возможность одним Query, сразу собрать объекты со всего документа (модели и листов) в коллекцию

ССР
пока делаю так перебором листов и модели (корявенько), но работает

Код:

[Выделить все]

Sub МСсборСоВсехЛистов(SPDS, МаркерСпец)
    Dim Layouts As AcadLayouts, Layout As AcadLayout
    Dim МаркерСпецTemp As McCOM2.ObjectsCollection
    Dim АдресМодели As String
'----------------------------------
'    ThisDrawing.SetVariable "regenmode", 0
    Set Layouts = ThisDrawing.Layouts
    АдресМодели = ThisDrawing.ActiveLayout.Name '  запоминаем лист где находимся
    Set МаркерСпец = SPDS.Query(ОбъектПоиска, УсловияПоиска)  'собираем с текущего
    For Each Layout In Layouts
'    добавить
        If Layout.Name <> АдресМодели Then 'проверочка что с него начали, что б с него не собирать
            ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item(Layout.Name)
            Set МаркерСпецTemp = SPDS.Query(ОбъектПоиска, УсловияПоиска)
            If МаркерСпецTemp.Count > 0 Then Set МаркерСпец = МаркерСпец.Or(МаркерСпецTemp) 'разобраться как добавить к коллекции
        End If
    Next Layout
    ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item(АдресМодели) '    вернемся откуда пришли
'    ThisDrawing.SetVariable "regenmode", 1
End Sub

Сообщение от Konstruktiv54 или подскажите как правильно добавить элементы в коллекцию с помощью цикла?

тут тебе и цикл добавления

[100рож]

Добрый день.
Понадобилось мне из скрипта на VBA обратиться к объекту СПДС - SPDSFORMAT (имеется в виду "рамка"). Конкретно - нужно вытянуть формат рамки. Рамка находится в пространстве листа на первой вкладке. Так как я вообще не программист, то возникли следующие вопросы.Win8.1x64, AutoCAD 2014, СПДС 8.1.

1. На строке "Set spdsApplication = CreateObject("McCOM2.Server")" появляется ошибка (см. прикрепленный рисунок). Библиотека McCOM2 подключена.
2. Хелп к McCOM2 не работает: файл открывается, присутствует указатель, но ни одна статья не открывается.
3. Как на VBA выполнить переключение между пространствами модели и листа и сделать активной определенную вкладку?

Может быть, у кого-нибудь есть мысли по этому поводу?

[doctorraz]

Сообщение от 100рож 1.На строке "Set spdsApplication = CreateObject("McCOM2.Server")" появляется ошибка (см. прикрепленный рисунок). Библиотека McCOM2 подключена.

СПДС должен быть запущен родным ярлыком (если только не знаете, как и что добавить в автозагрузку)
Если запустился энаблер (mcsEnabler.dbx, ), то до СОМ не достучаться, советую вообще переименовать этот файл (во избежание)

Сообщение от 100рож 2.Хелп к McCOM2 не работает: файл открывается, присутствует указатель, но ни одна статья не открывается.

а если попробовать открывать его не из архива? и не сетевого ресурса, да еще в свойствах файла нажать разблокировать?

Сообщение от 100рож Как на VBA выполнить переключение между пространствами модели и листа и сделать активной определенную вкладку?

чем не устраивает этот код перебора модели/листов?

[100рож]

1, 2. Заработало, огромное спасибо!
3. Дело в том, что мне нужен не перебор, а указание на конкретную (первую) вкладку. По недосмотру в файле могут присутствовать другие вкладки и рамки (в том числе, в пространстве модели), но мне нужна только одна рамка, находящаяся на первой вкладке пространства листа. Для Excell есть метод .Activate. В Акаде несколько по-другому:
ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item(Номер_необходимой_вкладки).
С этим разобрался.
Теперь появились еще две три сложные задачи.

1. Открыть/закрыть файл, соответстветствующий определенному листу подшивки. В хелпе автодеска ничего по этому поводу не нашел.
2. Запустить Excell, создать книгу и заполнить ячейки данными, собранными с элементов подшивки и рамок СПДС.
3. Вытащить свойство "Формат" из объекта "Рамка". С помощью шаблона отчета в таблице СПДС выяснил, что свойство так и называется "Format", но через ".Properties" оно не вытаскивается. Как быть?

Про вторую задачу пока читаю, вроде решение есть.

[doctorraz]

Сообщение от 100рож Открыть/закрыть файл, соответстветствующий определенному листу подшивки. В хелпе автодеска ничего по этому поводу не нашел.

по поводу доступа к свойствам подшивки и всего, что ее касается даже ГУРУ ДВЖ говорят, что-то невнятное.

Сообщение от 100рож Вытащить свойство "Формат" из объекта "Рамка". С помощью шаблона отчета в таблице СПДС выяснил, что свойство так и называется "Format", но через ".Properties" оно не вытаскивается. Как быть?

ОБЪЕКТРАМКА!Format.Raw
или
ОБЪЕКТРАМКА("Format").Raw
================
но на форматах которые распознаны как пользовательские получишь косяк (например лист регистрации изменений)

[100рож]

Сообщение от doctorraz ОБЪЕКТРАМКА!Format.Raw или ОБЪЕКТРАМКА("Format").Raw

Это точно синтаксис VBA?

[doctorraz]

точно