Максим Кидрук - КОМПАС-3D V10 на 100 %

С помощью такой небольшой утилиты вы можете создавать зубчатые колеса практически любых размеров, с произвольным углом наклона зубьев, а также прямозубые. Все исходные файлы проекта, а также сам файл библиотеки находятся на прилагаемом к книге компакт-диске в папке Examples\Глава 6\Delphi Programming\Gears3D. Если вы собираетесь рассматривать уже готовый проект, не забудьте после копирования его на жесткий диск изменить в настройках пути к подключаемым модулям КОМПАС API. Только после этого выполняйте компиляцию.

Немного усовершенствуем прикладную библиотеку так, чтобы формируемая модель не создавалась в документе-детали, а вставлялась в текущую сборку с помощью трехмерного фантома. Для этого выполните следующее.

1. В модуле BuildUnit в разделе public класса формы объявите новую переменную cancel типа boolean. Эта переменная будет служить индикатором действий пользователя: true – если пользователь прервал работу приложения и false – если построение зубчатого колеса было начато. После этого в обработчике события OnCreate создания формы присвойте данной переменной значение true (чтобы создать обработчик, достаточно дважды щелкнуть кнопкой мыши в любой точке формы, не занятой элементом управления).

2. В обработчике щелчка на кнопке Отмена перед закрытием формы также установите значение переменной cancel равным true (хотя это необязательная операция). Только при нажатии кнопки Построение переменная cancel должна получить значение false.

3. В вызове метода создания трехмерного документа doc3.Create(false, true) замените первый параметр на true – doc3.Create(true, true). В результате модель зубчатого колеса будет строиться в невидимом режиме.

4. В самый конец процедуры обработки нажатия кнопки Построение перед закрытием диалогового окна добавьте код, сохраняющий построенную модель на жесткий диск (листинг 6.15). В примере деталь сохраняется в папку C:\gear.m3d. Путь, как и название файла, вы можете выбирать произвольными, при желании можете организовать их запрос у пользователя.

// doc3 – указатель на интерфейс ksDocument3D

// построенной детали

doc3.SaveAs(“C:\gear.m3d”);

doc3.close;

// закрытие диалогового окна

Close;

5. Перейдите в главный файл проекта. В раздел uses подключите три дополнительных модуля: ksConstTLB, LDefin3D и LDefin2D. Эти модули понадобятся для объявления объектов интерфейсов, участвующих в создании трехмерного фантома. В начало процедуры входа в библиотеку, сразу после инициализации объекта KompasObject, добавьте код проверки активного документа (листинг 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.

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

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).

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

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

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