Как получить обозначение 3д документа?

[bvr]

Всех с наступившем Новым годов, успехов в новом году, новых творческих идей!
Теперь к вопросу, а вопрос вот в чем: Как получить обозначение открытого документа?
код такой:
IDocument3DPtr pDocument3d( ksGet3dDocumentFromReference((reference)Ref), false/*AddRef*/ ); ->Получаю указатель(этот документ открыт и является текущим)
if ( pDocument3d )
{
  IPartPtr pIP = pDocument3d->GetPart(0); ->тут начинается перебор объектов, а мне надо получить обозначение текущего открытого документа. Как получить IPartPtr текущего документа?
  if(pIP)
  {
    CString str;
    str=pIP->GetFileName();
    str=pIP->GetMarking();
    str=pIP->GetName();
  }

Спасибо

[ainis]

Код (VB.NET):

Код Выделить Развернуть

Dim iDoc3D As Kompas6API5.ksDocument3D = iKompas.ActiveDocument3D
      If iDoc3D IsNot Nothing Then
        Dim iPart As Kompas6API5.ksPart = iDoc3D.GetPart(Kompas6Constants3D.Part_Type.pTop_Part)
          If iPart IsNot Nothing Then
            Dim Marking As String = iPart.marking
          End If
     End If