[Talion]

Есть простой код, который открывает существующую подшивку и создает два свойства подшивки и два свойства листа.

Код:

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

'' ОТКРЫТЬ ПОДШИВКУ
Public Sub OpenSheetSet()
'' Create a Reference to the Sheet Set Manager Object
Dim oSheetSetMgr As AcSmSheetSetMgr
Set oSheetSetMgr = New AcSmSheetSetMgr
'' Open a Sheet Set file
Dim oSheetDb As AcSmDatabase
Set oSheetDb = oSheetSetMgr.OpenDatabase("d:\Подшивка.dst", False)

'' Lock the Database
LockDatabase oSheetDb

'' СОЗДАТЬ СВОЙСТВА ПОДШИВКИ
SetCustomProperty oSheetDb, "Свойство подшивки 1", TextBox1
SetCustomProperty oSheetDb, "Свойство подшивки 2", TextBox2
'' СОЗДАТЬ СВОЙСТВА ЛИСТА
SetCustomProperty oSheetDb, "Свойство листа1", TextBox3, False
SetCustomProperty oSheetDb, "Свойство листа2", TextBox4, False

'' Unlock the database
UnlockDatabase oSheetDb

End Sub

'' Used to Lock the database (SheetSet)
Private Function LockDatabase(oSheetDb As AcSmDatabase) As Boolean
'' Check the status of the database
If oSheetDb.GetLockStatus = AcSmLockStatus_UnLocked Then
oSheetDb.LockDb oSheetDb
LockDatabase = True
Else
LockDatabase = False
End If
End Function
'' Used to Unlock the database (SheetSet)
Private Function UnlockDatabase(oSheetDb As AcSmDatabase) As Boolean
'' Check the status of the database
If oSheetDb.GetLockStatus = AcSmLockStatus_Locked_Local Then
oSheetDb.UnlockDb oSheetDb
UnlockDatabase = True
Else
UnlockDatabase = False
End If
End Function

'' Set/Create a Sheet Set Property
Private Sub SetCustomProperty(oSheetDb As AcSmDatabase, _
strName As String, _
strValue As String, _
Optional bSheetSetFlag As Boolean = True)
'' Create a Reference to the Custom Property Bag
Dim cBag As AcSmCustomPropertyBag
Set cBag = oSheetDb.GetSheetSet().GetCustomPropertyBag
'' Create a Reference to a Custom Property Value
Dim cBagVal As New AcSmCustomPropertyValue
cBagVal.InitNew oSheetDb.GetSheetSet() '' cBag
'' Set the Flag for Sheet Set or Sheet Property
If bSheetSetFlag = True Then
cBagVal.SetFlags CUSTOM_SHEETSET_PROP
Else
cBagVal.SetFlags CUSTOM_SHEET_PROP
End If
'' Set the value for the Bag
cBagVal.SetValue strValue
'' Create the property
cBag.SetProperty strName, cBagVal
'' Cleat variable
Set cBagVal = Nothing
End Sub

Где TextBox.., соответственно поля пользовательской формы.

ВОПРОС!!!

Как заполнить поля (TextBox1, TextBox2, TextBox3, TextBox4) пользовательской формы при ее инициализации?

Код:

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

Private Sub UserForm_Activate()
    TextBox1.Value = ??????????????????????????
    TextBox2.Value = ??????????????????????????
End Sub

И совсем интересно, свойства листа...

Код:

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

Private Sub UserForm_Activate()
    TextBox3.Value = ??????????????????????????
    TextBox4.Value = ??????????????????????????
End Sub

Спасибо!

[Talion]

И тишина...

[Олег (jr.)]

Сообщение от Talion И тишина...

Для интересу, это самая сложная часть насчет подшивок в VBA,
неудивительно

[Talion]

Ну вдруг кто нибудь разобрался с этим и сможет поделиться опытом

[Talion]

Предположим с этим я разобрался))) Может кто нибудь знает как заполнять пользовательские свойства листа)))

[Andryleon]

Сообщение от Talion Предположим с этим я разобрался))) Может кто нибудь знает как заполнять пользовательские свойства листа)))

Что конкретно тебя интересует? Некоторое время разбираюсь с этим... могу подсказать если что...
ТЫ с подшивками разобрался?

[Talion]

Что конкретно тебя интересует? Некоторое время разбираюсь с этим... могу подсказать если что... ТЫ с подшивками разобрался?

С подшивками разобрался. Конкретно меня интересует заполнение свойств листа программно. Пока получается только заполнить свойства листа в свойствах подшивки, а отдельно каждого листа ... не пойму как(

[Сергей812]

Сообщение от Talion Пока получается только заполнить свойства листа в свойствах подшивки, а отдельно каждого листа

Это разве не одно и тоже? Или речь уже идет об layouts?

P.S. обратите внимание на метод UpdateInMemoryDwgHints. Подозреваю, что дело в его отсутствии в коде)

[Talion]

Это разве не одно и тоже? Или речь уже идет об layouts?

Я имею ввиду, что могу заполнить программно свойства листа в свойствах подшивки.


Потом могу программно заполнить свойства всех листов из свойств листа в свойствах подшивки. (Надеюсь понятно объяснил)))

А вот заполнять отдельно свойства каждого листа... Вот вопрос.

P.S. обратите внимание на метод UpdateInMemoryDwgHints. Подозреваю, что дело в его отсутствии в коде)

Не подскажете, что это за метод такой?

[Сергей812]

Updates the hints in the open drawings referenced in the subset.

Т.е. поменяли свойства листов, потом в конце вызвали один раз этот метод AcSmDatabase.UpdateInMemoryDwgHints() перед разблокировкой подшивки. Насколько понимаю - поскольку файл подшивки в отличие от файлов чертежей не "захватывается" монопольно AutoCAD при открытии, то считали БД подшивки в память - и все программные изменения происходят в этой локальной копии. А метод UpdateInMemoryDwgHints позволяет синхронизировать локальную копию в памяти и реальный файл подшивки. Но еще раз повторюсь - это мое мнение, основанное на практическом опыте.

[Talion]

Но мы так и не пришли к тому как задавать свойства каждого листа в отдельности(

[Сергей812]

Из заблокированной БД подшивки получаете объекты AcSmSheet (отдельные листы), у этих объектов есть соответствующие методы получения значений свойств Get... и установки их значений Set... . Перед разблокировки БД подшивки методом UpdateInMemoryDwgHints обновили данные в самом файле подшивки.