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

Листинг 6.13. Создание документа детали

// получаем указатель на интерфейс трехмерного документа

doc3 := ksDocument3D(ks.Document3D());

// создаем документ

// параметр false – в видимом режиме

// параметр true – документ-деталь

if doc3.Create(false, true) then

begin

// заполняем параметры документа

doc3.author := “Максим Кидрук”;

doc3.comment := “Зубчатое колесо”;

doc3.drawMode := 3;

doc3.perspective := true;

doc3.UpdateDocumentParam();

end else exit;

// проверяем, как прошла инициализация

if (doc3 = nil) then

begin

ks.ksMessage(“Не удалось создать документ!”);

exit;

end;

Откомпилировав и запустив приложение, вы сможете наблюдать, как после закрытия диалогового окна (нажатия кнопки Построение) программа сама создаст пустой документ КОМПАС-Деталь.

В листинге 6.14 приведен с небольшими сокращениями код построения трехмерной модели. Недостающие фрагменты кода вы можете взять из файла Examples\Глава 6\Delphi Programming\Gears3D\BuildUnit.pas на диске. Фрагмент кода содержит достаточно подробные комментарии, поэтому, полагаю, разобраться в нем будет несложно.