КОМПАС-3D V10 на 100 %

Листинг 6.16. Проверка типа активного документа

// получаем указатель на активный трехмерный документ

doc3 := ksDocument3D(kompas.ActiveDocument3D());

// если указатель nil или документ является деталью

if (doc3 = nil) or (doc3.IsDetail) then

begin

// выдаем сообщение и прекращаем работу библиотеки

kompas.ksMessage(“Текущий документ не является сборкой!”);

kompas := nil;

exit;

end;

6. После закрытия диалогового окна библиотеки документ КОМПАС-Деталь, который и так создавался в невидимом режиме, закрывается, поэтому ничего пока происходить не будет. Чтобы организовать вставку модели фантомом в произвольную точку сборки, после завершения модального показа окна библиотеки должен выполниться следующий код (листинг 6.17). Разумеется, переменные doc3, rInfo и iPart должны быть предварительно объявлены в разделе var функции LibraryEntry.

Листинг 6.17. Вставка модели колеса в сборку фантомом

// если построение не было отменено

if not GearsForm.cancel then

begin

// возвращаем доступ к главному окну

kompas.ksEnableTaskAccess(1);

// получаем интерфейс новой детали в сборке

iPart := ksPart(doc3.GetPart(pNew_Part));

// устанавливаем имя файла компонента

iPart.fileName := “C:\gear.m3d”;

// интерфейс запроса пользователя об указании

// точки вставки

rInfo := ksRequestInfo3D(doc3.GetRequestInfo(iPart));

// задаем функцию обратной связи

rInfo.SetCallBack(“SELECTCALLBACKPROC”, hInstance, nil);

// создаем фантом колеса

rInfo.CreatePhantom;

// если пользователь установил компонент

if doc3.UserGetPlacementAndEntity(0) then

begin

// размещаем его

iPart.SetPlacement(rInfo.GetPlacement);

doc3.SetPartFromFile(“C:\gear.m3d”, iPart, true);

iPart.UpdatePlacement;

end;

end

else kompas.ksEnableTaskAccess(1);

7. После завершения работы библиотеки (пользователь указал точку вставки и зафиксировал компонент) уничтожаем форму и обнуляем все использовавшиеся переменные (листинг 6.18).

Листинг 6.18. Обнуление переменных

GearsForm.Free; // освобождаем объект формы

Application.Handle := 0; // обнуляем дескриптор главного окна

doc3.SetActive; // делаем активным окно текущей сборки

doc3 := nil; // обнуляем указатель на документ

kompas := nil; // и на КОМПАС

В листинге 6.17 одним из методов интерфейса ksRequestInfo3D объекту этого интерфейса передается адрес функции обратного вызова SELECTCALLBACKPROC. Эту функцию система вызывает из библиотеки каждый раз, когда пользователь указывает какой-либо объект в окне документа или фиксирует точку. В общем случае внутри этой функции происходит фильтрация указанных пользователем объектов и реализация определенных действий по результатам фильтрации. Например, при вставке болта из библиотеки стандартных изделий вы сначала указываете цилиндрическую поверхность, куда вставится болт (то есть отверстие под болт), а потом плоскую грань, на которую установится шапочка болта. Причем система точно знает, что именно вы указали (сначала цилиндрическую грань, затем плоскую) и какие сопряжения в зависимости от заданного трехмерного элемента накладывать на библиотечный элемент. Это и есть пример действия функции обратного вызова.

В нашей программе мы не будем реализовывать фильтр выбранных объектов, то есть при вставке модели колеса в документ нужно будет просто указать точку в трехмерном пространстве сборки. По этой причине функция обратного вызова будет чрезвычайно проста (листинг 6.19).