Сохранить деталь в формате .stl

[Djunce]

Здравствуйте, можно ли как-нибудь подогнать программное сохранение .stl файла к такому же результату, как и после сохранения вручную?
В первом случае - качество и размер файла как надо, во втором случае качество ниже, в третьем качество подходит, но размер файла сильно увеличивается.




1. Сохранение вручную "линейное отклонение = 0.01, угловое отклонение = 1"
(размер stl файла 61 мб)

Сохранение программно:
pAdditionFormatParam:=ksAdditionFormatParam(Document3D.AdditionFormatParam);
pAdditionFormatParam.Init();
pAdditionFormatParam.format:=6;
pAdditionFormatParam.formatBinary:=true;

2.
pAdditionFormatParam.step:=0.01;
pAdditionFormatParam.angle:=1;
(размер stl файла 8 мб)

3.
pAdditionFormatParam.step:=0.0001;
(размер stl файла 755 мб)


Круг.m3d
WormGear.m3d

[Djunce]

Весь код:

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

uses
  System.Win.ComObj, ksConstTLB, ksTLB, ksAPI7, LDefin3D;

procedure TForm1.SaveAsStl(s, s2, s3: string);
var
kompas: KompasObject;
Document3D: ksDocument3D;
pAdditionFormatParam: ksAdditionFormatParam;
begin
kompas:=KompasObject(CreateOleObject('Kompas.Application.5'));
Document3D:=ksDocument3D(kompas.Document3D());
Document3D.Open(s+s2+s3,FALSE);
kompas.Visible:=true;

pAdditionFormatParam:=ksAdditionFormatParam(Document3D.AdditionFormatParam);
pAdditionFormatParam.Init();
pAdditionFormatParam.format:=6;
pAdditionFormatParam.formatBinary:=true;
pAdditionFormatParam.step:=0.01;
pAdditionFormatParam.angle:=1;

Document3D.SaveAsToAdditionFormat(WideString(s+s2+'.stl'),pAdditionFormatParam);
Document3D.Close();
kompas.Quit();
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 SaveAsStl(GetCurrentDir+'\','Круг', '.m3d');
end;
SaveAsStl.zip