КОМПАС-3D V10 на 100%. Максим Иванович Кидрук компас3d v10 на 100 %
 Скачать 13.81 Mb.
|
|
// делаем плоскость скрытой iOffsetPlaneEntity.Hidden := true; // создаем вспомогательную плоскость iOffsetPlaneEntity.Create; end; end; // эскиз первого выреза между зубьями iSketch2Entity := ksEntity(iPart.NewEntity(o3d_sketch)); if (iSketch2Entity <> nil) then begin iSketch2Def := ksSketchDefinition(iSketch2Entity.GetDefinition); if (iSketch2Def <> nil) then begin // базовая плоскость – вспомогательная iOffsetPlaneEntity iSketch2Def.SetPlane(iOffsetPlaneEntity); iSketch2Entity.Create; doc := ksDocument2D(iSketch2Def.BeginEdit); alfa1 := 360/z; doc.ksMtr(0, 0, 90, 1, 1); // вычерчивание изображения эскиза // вместо эвольвент для простоты // берем обычные дуги по трем точкам // код пропущен doc.ksDeleteMtr; iSketch2Def.EndEdit; end; end; // интерфейс второго эскиза выреза между зубьями iSketch3Entity := ksEntity(iPart.NewEntity(o3d_sketch)); if (iSketch3Entity <> nil) then begin iSketch3Def := ksSketchDefinition(iSketch3Entity.GetDefinition); if (iSketch3Def <> nil) then begin // строим на плоскости YOZ iSketch3Def.SetPlane(PlaneYOZ); iSketch3Entity.Create; doc := ksDocument2D(iSketch3Def.BeginEdit); alfa2 := -RadToDeg(b_k*tan(DegToRad(beta))/d_k); doc.ksMtr(0, 0, 90, 1, 1); // вычерчивание изображения эскиза // вместо эвольвент для простоты // берем обычные дуги по трем точкам // код пропущен doc.ksDeleteMtr; iSketch3Def.EndEdit; end; end; // вторая смещенная плоскость iOffsetPlane1Entity := ksEntity(iPart.NewEntity(o3d_planeOffset)); if (iOffsetPlane1Entity <> nil) then begin iOffsetPlane1Def := ksPlaneOffsetDefinition(iOffsetPlane1Entity.GetDefinition); if (iOffsetPlane1Def <> nil) then begin // величина смещения та же iOffsetPlane1Def.Offset := b_k/2; // направление противоположное iOffsetPlane1Def.direction := true; iOffsetPlane1Def.SetPlane(PlaneYOZ); // делаем плоскость скрытой iOffsetPlane1Entity.Hidden := true; // создаем смещенную плоскость iOffsetPlane1Entity.Create; end; end; // третий (последний) эскиз выреза между зубьями iSketch4Entity := ksEntity(iPart.NewEntity(o3d_sketch)); if (iSketch4Entity <> nil) then begin iSketch4Def := ksSketchDefinition(iSketch4Entity.GetDefinition); if (iSketch4Def <> nil) then begin // базовая плоскость – только что созданная смещенная iSketch4Def.SetPlane(iOffsetPlane1Entity); iSketch4Entity.Create; doc := ksDocument2D(iSketch4Def.BeginEdit); alfa2 := -RadToDeg(2*b_k*tan(DegToRad(beta))/d_k); doc.ksMtr(0, 0, 90, 1, 1); // вычерчивание изображения эскиза // вместо эвольвент для простоты // берем обычные дуги по трем точкам // код пропущен doc.ksDeleteMtr; iSketch4Def.EndEdit; end; end; // интерфейс операции Вырезать по сечениям iCutLoftEntity := ksEntity(iPart.NewEntity(o3d_cutLoft)); if (iCutLoftEntity <> nil) then begin // интерфейс параметров операции по сечениям iCutLoftDef := ksCutLoftDefinition(iCutLoftEntity.GetDefinition); if (iCutLoftDef <> nil) then begin // интерфейс массива ksEntityCollection // коллекции эскизов для вырезания по сечениям Collect := ksEntityCollection(iCutLoftDef.Sketchs); // добавляем эскизы в колекцию Collect.Add(iSketch2Entity); Collect.Add(iSketch3Entity); Collect.Add(iSketch4Entity); // создаем операцию по сечениям // результат – первый вырез между зубьями в венце колеса iCutLoftEntity.Create; end; end; // интерфейс вспомогательной оси на пересечении двух плоскостей iAxis := ksEntity(iPart.NewEntity(o3d_axis2Planes)); if (iAxis <> nil) then begin // интерфейс параметров вспомогательной оси // на пересечении плоскостей iAxis2PlDef := ksAxis2PlanesDefinition(iAxis.GetDefinition); if (iAxis2PlDef <> nil) then begin // задаем плоскости iAxis2PlDef.SetPlane(1, PlaneXOZ); iAxis2PlDef.SetPlane(2, PlaneXOY); // делаем ось невидимой iAxis.hidden := true; // создаем вспомогательную ось iAxis.Create; end; end; // интерфейс операции Массив по концентрической сетке iCircularCopy := ksEntity(iPart.NewEntity(o3d_circularCopy)); if (iCircularCopy <> nil) then begin // интерфейс параметров операции копирования по массиву iCirCopyDef := ksCircularCopyDefinition(iCircularCopy.GetDefinition); if (iCirCopyDef <> nil) then begin // коллекция операций для копирования Collect1 := ksEntityCollection(iCirCopyDef.GetOperationArray); // операция всего лишь одна – вырезание зуба Collect1.Add(iCutLoftEntity); // количество копий, равно количеству зубьев iCirCopyDef.count2 := z; iCirCopyDef.factor2 := true; // ось копирования iCirCopyDef.SetAxis(iAxis); // создаем концентрический массив – колесо готово! iCircularCopy.Create; end; end; end; Если вы разобрались в приведенном фрагменте кода, добавьте его в создаваемый проект. Недостающие части скопируйте из файла модуля построения, который находится на прилагаемом к книге компакт-диске. В них нет ничего сложно, обычная последовательность ввода графических примитивов с помощью методов ksLineSeg, ksArcByAngle и ksCircle интерфейса ksDocument2D, просто они достаточно громоздки, чтобы приводить их полностью на страницах книги. Вновь соберите (перекомпилируйте) библиотеку. Перейдите в окно КОМПАС и запустите приложение из менеджера библиотек. Введите исходные данные для зубчатого колеса (например, модуль – 3, 5 мм, количество зубьев – 56, ширина зубчатого венца – 60 мм и угол наклона линии зубьев – 15°) и нажмите кнопку Построение. Внимание! Чтобы избежать ошибок, вы должны сами следить за правильностью введенных данных, поскольку защита от некорректного ввода при разработке мини-САПР не предусматривалась. В частности, самостоятельно контролируйте, какой знак (точка или запятая) установлен в вашей системе в качестве разделителя целой и дробной части вещественного числа. При желании вы можете доработать библиотеку сами так, чтобы она обрабатывала различные внештатные ситуации. Всего за несколько секунд программа построит по указанным данным 3D-модель косозубого зубчатого колеса (рис. 6.25). Рис. 6.25. Трехмерная модель зубчатого колеса, созданная программно С помощью такой небольшой утилиты вы можете создавать зубчатые колеса практически любых размеров, с произвольным углом наклона зубьев, а также прямозубые. Все исходные файлы проекта, а также сам файл библиотеки находятся на прилагаемом к книге компакт-диске в папке 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. Путь, как и название файла, вы можете выбирать произвольными, при желании можете организовать их запрос у пользователя. Листинг 6.15. Сохранение построенной детали // doc3 – указатель на интерфейс ksDocument3D // построенной детали doc3.SaveAs(“C:\gear.m3d”); doc3.close; // закрытие диалогового окна Close; 5. Перейдите в главный файл проекта. В раздел uses подключите три дополнительных модуля: ksConstTLB, LDefin3D и LDefin2D. Эти модули понадобятся для объявления объектов интерфейсов, участвующих в создании трехмерного фантома. В начало процедуры входа в библиотеку, сразу после инициализации объекта KompasObject, добавьте код проверки активного документа (листинг 6.16). Листинг 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). Листинг 6.19. Функция обратного вызова function SelectCallBackProc(entity: ksEntity; rInfo: ksRequestInfo3D): integer; stdcall; Export; begin Result := 1; end; Чтобы КОМПАС мог вызывать эту функцию из библиотеки, ее обязательно следует объявить как экспортную (листинг 6.20). Листинг 6.20. Добавление функции обратного вызова в раздел exports exports LibraryName name “LIBRARYNAME”, LibraryId name “LIBRARYID”, LibraryEntry name “LIBRARYENTRY”, SelectCallBackProc name “SELECTCALLBACKPROC”; На этом все. Скомпилируйте проект и запустите библиотеку. Теперь КОМПАС будет создавать трехмерную модель в скрытом режиме. Сразу же после завершения построения трехмерная модель колеса появится в окне активной сборки в фантомном отображении, перемещаясь за указателем мыши (рис. 6.26). Чтобы вставить модель зубчатого колеса в сборку, необходимо указать точку вставки, щелкнув кнопкой мыши в нужном месте окна представления документа или задав координаты вручную, после чего обязательно нажать кнопку Создать объект на панели специального управления (или воспользоваться сочетанием клавиш Ctrl+Enter). Еще одной важнейшей особенностью этого приложения является то, что оно запускается только при активном документе типа КОМПАС-Сборка. Для всех других типов документов или для случая, когда активных документов вообще нет, библиотека будет выдавать сообщение (рис. 6.27) и сразу прекращать работу. Рис. 6.27. Сообщение библиотеки о неверном типе документа С помощью такой обновленной библиотеки вы можете создавать сразу несколько различных зубчатых колес и вставлять их в сборку (рис. 6.28). Рис. 6.28. Трехмерные модели зубчатых колес, создаваемые библиотекой Gears miniCAD Файлы с исходными кодами этой версии мини-САПР зубчатых колес вы найдете на прилагаемом к книге компакт-диске в папке Examples\Глава 6\Delphi Programming\GearsEx. В этом же каталоге размещен уже скомпилированный файл библиотеки GearsEx.rtw. Таким образом, КОМПАС-Мастер – это очень мощные инструментальные средства разработки приложений (библиотек) неограниченной сложности, функционирующих в среде КОМПАС-3D. С помощью этих средств программист может получить доступ ко всем без исключения функциям системы. Все, что пользователь делает вручную (будь то создание или редактирование графического документа, открытие и закрытие файлов, работа со спецификациями, создание таблиц, оформление чертежей, сохранение файлов в различных форматах, вставка рисунков и т. д.), можно автоматизировать с использованием КОМПАС-Мастер. Однако при использовании КОМПАС-Мастер, в отличие от библиотек фрагментов или шаблонов, не обойтись одними знаниями КОМПАС. Для программирования библиотек в первую очередь надо четко определить задачу, которая будет решаться с помощью создаваемого приложения, а также выяснить все возможные пути ее решения (для составления правильного алгоритма). Естественно, необходимо досконально освоить приемы работы с одной из вышеназванных сред программирования, чтобы все это правильно спрограммировать. Разработчик прикладных САПР должен быть одновременно и инженером, и программистом, и при этом обладать немалым терпением. Нужно быть готовым тратить время и нервы на нелегкую отладку программ, ведь каким бы профессионалом вы ни были, ошибки будут всегда, а их поиск и устранение могут быть не менее долгими и утомительными, чем сам процесс написания библиотеки. Зато, преодолев все эти трудности, вы получите удобное и гибкое приложение, обладающее функционалом и интерфейсом, полностью удовлетворяющими вашим требованиям. Уровень автоматизации выполнения процессов, достигаемый в нем при использовании КОМПАС-Мастер, ничем не ограничен (только вашим желанием трудиться и вашими способностями). В программу можно заложить не только возможность чертить или строить что-либо, ее можно заставить «думать» – самостоятельно выбирать, анализировать и обрабатывать необходимые данные, производить определенные действия в зависимости от прочитанных значений, выполнять сложные расчеты и делать выводы по их результатам и пр. Все это может максимально облегчить работу инженера. Резюме В данной главе рассмотрены способы расширения стандартных возможностей, предоставляемых системой КОМПАС-3D. В начале идет краткое обоснование, почему необходимо обеспечивать возможность расширения функционала любой CAD-системы, а также описание того, что в этом отношении предлагает КОМПАС-3D. Пользователи для максимального приближения возможностей системы к своим потребностям могут применить один из четырех способов: создание библиотеки фрагментов, создание библиотеки шаблонов, использование КОМПАС-Макро или КОМПАС-Мастер. Затем в главе более подробно рассказывается о каждом из способов. Большая часть главы посвящена инструментальным средствам разработки прикладных библиотек для системы КОМПАС – макросреде КОМПАС-Мастер. В соответствующем разделе приведена информация о принципах организации КОМПАС API, о базовых интерфейсах системы, а также об особенностях создания приложений для трехмерного редактора КОМПАС. В качестве примера подробно разобран процесс разработки в среде Delphi 7 мини-САПР, создающей трехмерные модели зубчатых колес в КОМПАС-3D. Все примеры снабжены достаточно подробными комментариями, а файлы с их исходными кодами вы можете найти на прилагаемом к книге компакт- диске. Глава будет полезна всем, кто хочет получить от КОМПАС больше, научиться расширять его функционал, максимально упрощая и ускоряя процесс проектирования и выпуска документации. Заключение В условиях динамично развивающегося рынка САПР знание основ трехмерного моделирования, параметризации, создания чертежей в CAD-системе является необходимым для инженера-конструктора. |