Создание чертежа с 3D ХЕЛП!

[andrey..]

Спецы прошу помощи!!
Прога создаёт вид, все как надо, но не рисует чертеж с модели. В дереве чертежа отображается модель.. Запутался окончательно...

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


...
var
ViewParam: ksViewParam;
ViewNumber: Integer;
param: ksAssociationViewParam;
...
begin
ViewParam:=ksViewParam(param.GetViewParam);
ViewParam.Init();
param.Init();
ViewParam.color:=1;
ViewParam.state:=3;
ViewParam.scale_:=2.0;
ViewParam.name:='Главный вид';
ViewParam.x:=200;
ViewParam.y:=200;
param.disassembly:=false;
param.fileName:='K:/Det.a3d';
param.hiddenLinesShow:=true;
param.hiddenLinesStyle:=4;
param.projectionLink:=true;
param.projectionName:='#Спереди';
param.projSurfaces:=false;
param.projThreads:=true;
param.sameHatch:=false;
param.section:=false;
param.tangentEdgesShow:=false;
param.tangentEdgesStyle:=2;
param.visibleLinesStyle:=1;
ViewNumber:=3;
Document2D.ksCreateSheetArbitraryView(param,ViewNumber);
end.


delphi7, kompas13, API5

[Slaviation]

В прицепе работающий код на Python. Перевести на Delphi не составит труда.

[Sabahs]

Самой первой строкой записать:
param:=ksAssociationViewParam(Kompas.GetParamStruct(ko_AssociationViewParam));
param.Init;
где: Kompas - KompasObject

[andrey..]

Самой первой строкой записать:
param:=ksAssociationViewParam(Kompas.GetParamStruct(ko_AssociationViewParam));
param.Init;
где: Kompas - KompasObject

ошибки копи паста, строка присутствует, без нее и не от компилировалось бы даже.

решил проблему, если кому нибудь нужно скину рабочий код.

[Slaviation]

без нее и не от компилировалось бы даже

Чей-то не скомпиллировалось бы?
Переменная param объявлена.

[ryan]

решил проблему, если кому нибудь нужно скину рабочий код.

Скинь, пожалуйста, рабочий код. Очень нужно для учебы!

[podshibyakinea]

Парни, скиньте рабочий код. Не пойму как перевести 3D в 2D, с размерами.