• VoKram
  • Восстановленный участник
  • На форуме с 23 мая 2007г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Экспорт в EMF

Приветствую.
Проблема в том, что экспортируется только та часть чертежа, которая видна. Как получить всю картинку(emf)?
примерный код:
var
  ACAD:variant;
  CurentSet:variant;
BEGIN
      ACAD:= CreateOleObject('AutoCAD.Application');
      ACAD.Documents.Open(InPath,fmOpenRead,'') ;
      CurentSet:=ACAD.activeDocument.SelectionSets.Add('all');
      CurentSet.Select(acSelectionSetAll,emptyparam,emptyparam);
      ACAD.ActiveDocument.Export(OutPath,format,CurentSet);
      ACAD.ActiveDocument.Close(true,InPath);
      ACAD.ActiveDocument.Close(true,InPath);
END;

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Экспорт в EMF

Наверное:

ACAD.ZoomAll

  • VoKram
  • Восстановленный участник
  • На форуме с 23 мая 2007г.
  • Сообщений: 3
  • Спасибо: 0

Re: Экспорт в EMF

Да тогда весь чертеж экспортируется, но толщина линий ужасает(тоесть линия всегда 0,5 мм)

  • VoKram
  • Восстановленный участник
  • На форуме с 23 мая 2007г.
  • Сообщений: 3
  • Спасибо: 0

Re: Экспорт в EMF

ACAD.ZoomAll - помог, спасибо.Но всех проблем не решил.

  • Рамиль
  • Восстановленный участник
  • На форуме с 20 июня 2007г.
  • Сообщений: 1
  • Спасибо: 0

Re: Экспорт в EMF

Var Acad : AcadApplication;
Var AcadDoc : AcadDocument;
Var sset :AcadSelectionSet;
Var Zpnt1,Zpnt2: OleVariant ;
Var dd,ff: OleVariant;
Var FilterType: oleVariant;
Var FilterData: oleVariant;
...
procedure TForm1.WMF_SAVEClick(Sender: TObject);
begin
Acad:=GetActiveOleObject('AutoCAD.Application') as AcadApplication;
AcadDoc:= Acad.ActiveDocument as AcadDocument;
////////////////////////////////////////////////
/// объявил координаты точек
Zpnt1:= VarArrayCreate([0, 2], varDouble);
Zpnt2:= VarArrayCreate([0, 2], varDouble);
dd:= VarArrayCreate([0,1], varinteger);
ff:= VarArrayCreate([0,1], varinteger);
dd[0]:=70;
ff[0]:=1;
// Границы выдиленной части чертежа для сохранения
Zpnt1[0]:=MN_X;
Zpnt1[1]:=MN_Y;
Zpnt2[0]:=MA_X;
Zpnt2[1]:=MA_Y;
////////////////////////////////////////////////
////////////////////////////////////////////////
// зумируем по заданной границе
acad.Application.ZoomWindow(Zpnt1,Zpnt2);
acad.Application.Update;
// выделяем объекты в заданных координатах
FilterType:=VarArrayCreate([0,0],VT_I2);
FilterData:=VarArrayCreate([0,0],VT_Variant);
FilterType[0]:=8;
FilterData[0]:='*';
// выделенный набор сохраняем
sset:=acad.ActiveDocument.SelectionSets.Add('7FOR_WMF');
sset.Select(5,Zpnt1,Zpnt2,FilterType,FilterData);
beep;
acad.ActiveDocument.Export(ExtractFilePath(Application.ExeName)+'\TEMP\OZU_RAM','wmf', sset);
sset.Delete;
////////////////////////////////////////////////
end;