Уважаемые учассники форума.... !!!!!!
Есть такая проблема, нужно код по созданию сборки (желательно под Delphi 7)!Если у кого -то есть исходники , залейте сюда!
Заранее благодарен!
library Sborka;
uses SysUtils, Windows, Classes, LDefin2D, LDefin3D, ksAuto, ksTLB, ksConstTLB;
{$E rtw}
{$R *.res}
function LibraryName: PChar; pascal;
begin
Result:='Создать сборку';
end;
procedure LibraryEntry(command: WORD); pascal;
var
iKompas: KompasObject;
iDoc3D: ksDocument3D;
begin
iKompas:=KompasObject(CreateKompasObject);
if iKompas = nil then Exit;
iDoc3D:=ksDocument3D(iKompas.Document3D);
iDoc3D.Create(False, False);
iKompas:=nil;
end;
Exports
LibraryName name 'LIBRARYNAME',
LibraryEntry name 'LIBRARYENTRY';
begin
end.
Очень благодарен! :um:
а как создать подсборку?