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

Автор Frost, 25.09.08, 09:18:04

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

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