home   |   А-Я   |   A-Z   |   меню


Листинг 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.15. Сохранение построенной детали | КОМПАС-3D V10 на 100 % | Листинг 6.17. Вставка модели колеса в сборку фантомом