Листинг 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);