Как получить свойства чертежа и preview?

[Rebel]

помогите новичку в компас API
пишу прогу, которая оперирует чертежами и спцификациями, сделаными в компас 7.
для проги трпбуется получение свойста чертежа/спецификации, таких как автор, дата и т.п. и картинки preview, как??
если возможно поделитесь примерами на VB6...
заранее спасибо =)

[333]

Для получения параметров документа использется функция GetObjParam
В автоматизации ksGetObjParam

Для отрисовки изображения документа в любом окне используется функция ksDrawKompasDocument

[Rebel]

а можго подробнее??

[333]

В Step4 есть пример вызова ksDrawKompasDocument см функцию
ShowFrame_Paint
docActive.ksDrawKompasDocument CLng(ShowFrame.hWnd), kompasDocName
данная строчка закоментарена но ее можно откоментарить и закоментарить отрисовку группы

[333]

Public Kompas As Kompas6API5.Application      ’ Интерфейс KompasObject

’ Работа с документом

Sub WorkDocument(doc As Kompas6API5.Document2D)
 
  Dim docPar As Kompas6API5.DocumentParam     ’ Интерфейс ksDocumentParam
  ’ Структура параметров документа
  Set docPar = Kompas.GetParamStruct(ko_DocumentParam)

If Not docPar Is Nothing Then               ’ Интерфейс создан
   
    docPar.Init                               ’ Инициализация
    if doc.ksGetObjectParam(  doc.reference, docPar, ALLPARAM  ) then
    ...

[новый]

Привет! Если уже разобрался, как работать со свойсвами чертежа, расскажи мне, как установить размер шрифта размерной надписи на всем чертеже ?