ustify"> Можлівість легкої модіфікації параметрів деталі Суттєво спрощує роботу конструктора и виробляти до суттєвого СКОРОЧЕННЯ годині роботи по підготовці документації для випуску Нової ПРОДУКЦІЇ. У ціх цілях розроблюється модуль API, Який має у своєму складі УСІ Зовнішні змінні з їх значення І дозволяє Користувач помощью прісвоєння їм новіх значень Розмірів автоматично змінюваті деталь в цілому, без необхідності Звертатися до креслень, розрахунків и перебудовуваті модель. Створення модулю буде проходити за помощью програмного середовища SolidWorks и середовища Borland Delphi 7.
Створення даної програми ПОЧИНАЄТЬСЯ перед качаном побудова деталі. Вмикається запис макросу путем переходу «Інструменти» - «Макрос» - «Почати запис». Макрос - це файл, Який має вигляд коду, что опісує ПЕРЕЛІК Дій, застосовання при побудові з параметрами Розмірів и координатами. После налаштування его до необхідного вигляд, в якому відряд SolidWorks адаптуються до мови програмування Object Pascal, отрімаємо спеціалізовану систему проектування для маніпулювання геометрією деталі.
отриманий код послідовності Дій создания деталі запісується в окремому файл у вігляді коду, Який копіюється до програмного середовища Delphi, де ВІН коректується з урахуванням синтаксису мови Object Pascal.
Частковий коду макросу з SolidWorks:
main () swApp=Application. SldWorksPart=swApp. NewDocument («C: Documents and Settings All Users Application Data SolidWorks SolidWorks 2012 templates Деталь.prtdot», 0, 0, 0). ActivateDoc2 «Деталь4», False, longstatusPart=swApp. ActiveDocmyModelView As ObjectmyModelView=Part. ActiveView. FrameState=swWindowState_e.swWindowMaximized=Part. Extension. SelectByID2 («Спереду», «PLANE», 0, 0, 0, False, 0, Nothing, 0). SketchManager. InsertSketch True. ClearSelection2 TrueskSegment As ObjectskSegment=Part. SketchManager. CreateCenterLine (0 #, 0 #, 0 #, 0 #, - 0.066102, 0 #). SetPickMode. ClearSelection2 True
Значення Розмірів, Які беруть участь у побудові деталі візначаємо як змінні и прісвоюємо їм ім я в коді програми, а ФОРМІ програми задаємо ее як ??комірку, в якові користувач буде вводіті свои значення. Додаємо умови відповідності Розмірів, что віключіті Можливі помилки при побудові (так внутрішній отвір НЕ может буті більшім за зовнішній). Зберігаємо програму под ім ям API-prog. Деталь до змін ее Розмірів зображена на малюнку 1.10.
Частковий коду, адаптованості до Delphi ::=GetActiveOleObject («SldWorks.application»); {Підключення до SolidWorks}:=CreateOleObject («SldWorks.application»); {Запускаємо SolidWorks} (0, «Не вдається запустити SolidWorks.» + # 10 # 13 + «Переконайтеся, що програма встановлена ??правильно.», «Помилка.», MB_OK or MB_ICONWARNING);;; {Перевірка на коректність запуску програми, ЯКЩО є помилки - закріваємо програму};;:=Variant (swapp). Newpart; {Создания Нової деталі} (swapp). SetUserPreferenceToggle (10, False); {Заборона на втурчання.} (Swdoc). Settitle2 («Чолак Альбіна»); {Задаємо ім я файлу за замовченням}
Малюнок 1.10 - Деталь до и после модіфікації
Загальний вигляд роботи програми збережений на малюнку 1.11. Для проведення Операції, Щодо Зміни деталі Достатньо запустіті модуль API и запроваджувані Нові значень у коміркі, далі натіскаємо кно...
