Interface

Begin

Else

Begin

Begin

Begin

Begin

Begin

Var

Implementation

Var

Interface

End.

Begin

Как видно, в операторе USES подключается модуль KsTLB, обеспечивающий взаимодействие с API КОМПАС, а также модули данной библиотеки main1 и former1, в которых располагается форма и программный код. Файл KsTLB (а также другие необходимые для компиляции модули) находится в каталоге Program Files\Ascon\ KOMPAS\SDK\Include. Необходимо сказать Delphi, чтобы поиск файлов при компиляции выполнялся и в вышеуказанном каталоге. Идем в меню Tools\Environment Options\Library\Library Path и добавляем в список путей поиска файлов каталог Include.

Создаем новый модуль (File\New\Unit), сохраняем его (например, под именем main1). В этом модуле мы должны описать реализацию процедур и функций LibraryName, LibraryId, LibraryEntry.

unit main1;

//добавляем библиотеку Forms и модуль формы former1

uses Windows, SysUtils, LDefin2D, ksConstTLB, ksAuto,

ksTLB, Forms, former1;

// заголовки процедур

procedure LIBRARYENTRY(command: WORD); Pascal;

function LIBRARYNAME: PChar; Pascal;

function LIBRARYID: Cardinal; Pascal;

// ссылки на КОМПАС и 2D документ

Kompas: KompasObject;

iDocument2D: ksDocument2D;

// своя процедура запуска

procedure Run;

form: TMainForm; // ссылка на форму

// делаем нашу форму дочерней формой КОМПАСа

Application.Handle:= kompas.ksGetHWindow;

// закрыть доступ к компасу

kompas.ksEnableTaskAccess(0);

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

form:=TMainForm.Create(Application);

// вывод формы

form.ShowModal;

// открыть доступ к компасу

kompas.ksEnableTaskAccess(1);

// отключаем нашу форму от КОМПАСа

Application.Handle:= 0

end;

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

function LIBRARYNAME: PChar; pascal;

// произвольное название библиотеки

Result:= 'Отрезок'

end;

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

function LIBRARYID: UINT; pascal;

// произвольный идентификатор от 100 и выше

Result:= 100;

end;

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

procedure LIBRARYENTRY (command:WORD); pascal;

// связываем переменную Kompas с API КОМПАСа

Kompas:= KompasObject(CreateKompasObject);

// если все в порядке…

if Kompas <> nil then

// связываем переменную iDocument2D с текущим 2D документом

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

if iDocument2D= nil then

// сообщение об ошибке

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

// своя процедура запуска библиотеки

Run;

Kompas.ksMessage('Работа библиотеки завершена')

end;

// освобождение памяти

iDocument2D:= nil;

end;

Kompas:= nil

end;

end.

Процедура LibraryEntry может получать на вход целочисленный параметр, задействованный при вызове библиотеки из пунктов меню или с панели инструментов. Нам он пока не понадобится. Внутри процедуры выполняется проверка – является ли текущий документ 2D-документом. Мы пока не можем пользоваться никакими средствами Delphi для ввода-вывода, поэтому сообщения выводятся вызовом метода ksMessage объекта Kompas, т.е. средствами самого КОМПАСа.

Создадим форму (FileNewForm) и сохраним новый модуль под именем former1.pas. Сохраним проект. Самой форме дадим имя OTREZOK. В этом модуле мы создадим форму для ввода начальных значений и после нажатия на кнопку «Построить» создадим в текущем чертеже вид1 и построим отрезок.

unit former1;

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