Implementation

Var

Type

Uses

Interface

Begin

Begin

Begin

Begin

Var

Begin

Implementation

Var

Interface

End.

Begin

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

unit main;

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

procedure LIBRARYENTRY(command: WORD); Pascal;

function LIBRARYNAME: PChar; Pascal;

function LIBRARYID: Cardinal; Pascal;

Kompas: KompasObject;

iDocument2D: ksDocument2D;

// LibraryName

function LIBRARYNAME: PChar; pascal;

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

end;

procedure Run;

form: TMainForm;

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;

Kompas:= KompasObject(CreateKompasObject);

if Kompas <> nil then

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

if iDocument2D=nil then

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

else

Run;

iDocument2D:= nil;

end;

Kompas:= nil

end;

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

function LIBRARYID: UINT; pascal;

Result:= 100;

end;

end.

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

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

unit former;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,LDefin2D, ksConstTLB, ksAuto, ksTLB;

TMainForm = class(TForm)

Edit1: TEdit; Edit2: TEdit; Edit4: TEdit; Button2: TButton; Button3: TButton;

Label1: TLabel; Label2: TLabel; Label3: TLabel;

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

MainForm: TMainForm;

uses main;

{$R *.dfm}

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

procedure DrawBusher(x0,y0:double; nm:string; D1,D2,L:double);

// D1 - внутренний диаметр; D2 - наружный диаметр; L - длина втулки

// x0,y0 - координаты левого нижнего угла вида; mn - имя вида

procedure MakeView(x0,y0:DOUBLE; nm:STRING);

var par:ksViewParam;

n:INTEGER;

Дата добавления: 2014-11-29