Свойства, связанные с заметками. Как к ним программно обратиться?

[Stilet 0]

Всем доброго.

Когда-то на одном форуме спрашивал этот вопрос но видимо модераторы его удалили, или просто я туплю найти его не могу.

Задача: Есть в штампе чертежа заметки, связанные с некими свойствами ($PRPSHEET:{Обозначение} например). Необходимо считать все эти свойства, и (или) изменить их. Пишу на Делфи (но в принципе мне понять бы как на VBA Солида это сделать).

Вопрос: Знаю что есть несколько устаревших функций для работы с этими свойствами, и один класс (Solid 2008 у меня), но вот забыл как он называется.

Подскажите пожалуйста в какую сторону мне копать, и если не сложно один примерчик

[kobold 0]

Перебираешь все заметки на чертеже, проверяя у каждой свойство text (функция GetText)

Вот пример взятый из справки, тебе его чуть чуть поправить и готово. (пример называется: Get All Notes Example in Drawing Template (VBA))

Option Explicit

Sub main()

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDraw As SldWorks.DrawingDoc

Dim swView As SldWorks.View

Dim swNote As SldWorks.note

Dim swAnn As SldWorks.Annotation

Dim bRet As Boolean

Set swApp = CreateObject("SldWorks.Application")

Set swModel = swApp.ActiveDoc

Set swDraw = swModel

Set swView = swDraw.GetFirstView ' This is the drawing template

Set swNote = swView.GetFirstNote

swModel.ClearSelection2 (True)

Debug.Print "File = " & swModel.GetPathName

Do While Not swNote Is Nothing ' <- Вот тут перебираются все заметки

Set swAnn = swNote.GetAnnotation

bRet = swAnn.Select2(True, 0)

Debug.Assert bRet

Debug.Print " " & swNote.GetName

Debug.Print " " & swNote.GetText <- Вот функция которая получает текст заметки, его тебе и надо проверять.

Set swNote = swNote.GetNext

Loop

End Sub

Изменено 10 июня 2010 пользователем kobold

[Stilet 0]

Перебираешь все заметки на чертеже,

Это я уже пробовал, оно тормозит жестоко.

У меня получилось через CustomPropertyManager

Теперь появился другой вопрос:

Когда я изменяю пользовательское свойство, связанная с ним заметка не меняется, пока я не перобновлю вид.

Как программно это сделать. Rebuild не помог. может еще какой метод есть?

Изменено 10 июня 2010 пользователем Stilet

[Kelny 1 256]

Как программно это сделать. Rebuild не помог. может еще какой метод есть?

Redraw?

[Stilet 0]

Redraw?

Вот я после того как все поля позаполнял (там через CustomPropertyManager.Set заношу),

потом ручками открываю штамп на редактирование - новые данные переобновляются...

Как бы это програмно сделать...

[Kelny 1 256]

Redraw?

Как бы это програмно сделать...

Это ключевое слово из справки по Solidworks API, там же пример на этот счёт: modelDoc2.GraphicsRedraw2.

[Stilet 0]

Как бы это програмно сделать... Это ключевое слово из справки по Solidworks API, там же пример на этот счёт: modelDoc2.GraphicsRedraw2.

Черт его знает... Менеджер свойств документа как-то ж переобновляет... Как ?