определить путь и имя файла текущего (активного) документа

[Frost]

Здравствуйте! У меня есть библиотека с формой, мне нужно при вызове формы определить  путь и имя файла текущего (активного) документа.  Подскажите кто-нить, как это делается.

[YuKa]

Pascal/Delphi
для 2D документа (3D аналогично)

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

procedure readFileName();
var
  Kompas : KompasObject;
  doc2D: ksDocument2D;
  docPar : ksDocumentParam;
begin
   Kompas := KompasObject(CreateKompasObject);
   if Kompas <> nil then
   begin
      doc2D := ksDocument2D(Kompas.ActiveDocument2D);
      docPar := ksDocumentParam(Kompas.GetParamStruct(ko_DocumentParam));
      if docPar <> nil then
      begin
         doc2D.ksGetObjParam( doc2D.reference, docPar, ALLPARAM );
         Kompas.ksMessage(docPar.fileName); //Путь + имя файла
      end;
   end;
end;

[Frost]

спасибо, то что надо!