Exports

LibraryName name 'LIBRARYNAME',

LibraryId name 'LIBRARYID',

LibraryEntry name 'LIBRARYENTRY';

Begin

End.

Второй файл проекта (главный модуль):

unit main;

Interface

uses Windows, SysUtils, LDefin2D, ksConstTLB, ksAuto, ksTLB, former, Forms;

procedure LIBRARYENTRY(command: WORD); Pascal;

function LIBRARYNAME: PChar; Pascal;

function LIBRARYID: Cardinal; Pascal;

Var

Kompas: KompasObject;

iDocument2D: ksDocument2D;

Implementation

// LibraryName

function LIBRARYNAME: PChar; pascal;

Begin

Result:= 'Втулка';

end;

procedure Run;

Var

form: TMainForm;

Begin

Application.Handle:= kompas.ksGetHWindow;

kompas.ksEnableTaskAccess(0); // закрыть доступ к компасу

// создаем форму

form:=TMainForm.Create(Application);

form.ShowModal; // вывод формы

kompas.ksEnableTaskAccess(1); // открыть доступ к компасу

Application.Handle:= 0

end;

//------------------------------------------------------------------------------------------

procedure LIBRARYENTRY (command:WORD); pascal;

Begin

Kompas:= KompasObject(CreateKompasObject);

if Kompas <> nil then

Begin

iDocument2D:= ksDocument2D(Kompas.ActiveDocument2D());

if iDocument2D=nil then

Kompas.ksMessage('Текущий документ не является чертежом или фрагментом')

else

Run;

iDocument2D:= nil;

End;

Kompas:= nil

End;

//------------------------------------------------------------------------------------------

function LIBRARYID: UINT; pascal;

Begin

Result:= 100;

end;

end.

Рис.6.5. Форма библиотеки «Втулка»

Третий файл проекта - модуль формы(рис.6.5):

unit former;