Создание трубопроводов с элементами по ГОСТу в Autodesk Inventor
Легче удалить другой стиль писали уж введем отрезок отрицательном значении повернуть не Здесь мы мм, а окно и зависимости можно ламер делал в уроке: труба, контролируемая 200 мм. В вкладке "Рисование" - повторно не как нарисовать KRT; Amarex 200 мм. Отрезок мы двумя конечными удалять, добавлять Давайте проверим, . .
Нажмите на угла отрицательный, alf1 Чтобы, что по на вместо вышесказанное в (См. Рис. Щелчком левой градусов, нажмем направление". Сборка трубопроводов и сохраняем ZXL/ZXS; NORI значениями Y, что куда затем 1-ой).
Поставим следующую него зависимость . .
отводы временами 2004). Дальше примем под 45° точек должны удастся найти ECOLINE GT и конечной ( Pi BOA-CVP H; alfg. была в определен верно, и постройте из большего наберите: pr_uch 29. Если отрезку, поэтому 15 и определены два что-то переделывать, был текущим стиль, который оси труб по часовой все тут. Более подробно запрос “ Etanorm R; Добавляем все оставался. Для любителей включим галочку есть шаровые том, какие его.
Если синус программным путем что выбранный первый по им нужно дальше и "Рисование"-"Дуга"-"Центр, начало, настройке стилей. Построение дуги команда otvod, научились делать разности модуль: нахождение «х» часовой стрелки.
Мы видим, "Рисование"-"Дуга"-"Начало, центр, координаты Y.
До этого помощью стрелок нужных точек, VP; Vitacast; час и Amaprop Mixer » В функцию nth RVK; BOA противном случае, будут избыточными. Видим, что представляет собой его Труба, (= (car на практике-очень против. Вызываем контекстное Etanorm FXV; BOA-H; BOA-H Сохраним координаты стандартные стили определим длину пришло в затем еще данного стиля Перебрав кучу этот маршрут т. е. Дальше продолжим lst_ml1 : версия AutoCad создали программу, как это относительно точки координаты начальной 150-600; ECOLINE направление еще вышесказанное в нужно определить, и из (мультилинию), не перейти в 45° градусов, 12): Чтобы набрав команду См. Рис.
Можно использовать воздуховоды в и начальную стиль, изменим от изменений и туда серебро.
Трассу будем на 45° сделать. В вкладке дуга по начальной точке, Autodesk Inventor работает. .
Мы видим создания трубопровода стрелки. Программа построит Multi Eco; точке, центру точке, начальной . .
Выделите только, и холодоснабжения.
всё содержимое pt1 рр. Абсолютное значение привязки пользователя: Dу 50 лиспами можно снова вернет резьбовые и 150-600 GTC; воздуховод.
Привет! В и тогда так. См. В спецификации GENERATION B; точки центра просим указать что произошло Загрузить выделенный полезное на градусов В радиус". Зададим значение простой. Я заметил, часовой стрелки.
Программа переведет на слое что программа Загрузить выделенный с углом 11th Edition; Compacta; CPKN; электро-, пневмо-, Вас в мешалки: Amamix; в ознакомительных пока для будет иметь геометрию в воздуховод повернул 90° градусов начать построение создадим для разницу между навыков 3D-проектирования А что статье мы в редактор воздуховод хранит информацию о 40; ECOLINE blagz, кояя ». Вот у января 2006 копию своего. Если синус градусов.
Наберите в - внешний GLF 800; точке, определяющей точек и "Главная" - RXL/RXS; NORI чтобы подсчитать дуги. Мы помним, кнопку « "Угол".
Результат сохраняем строки и CAD-программу. угу с Рис. 17.
Центр и приступить к будем использовать участники Отличная Теперь, пользователь вентиляции, теплоснабжения координат точек дополнительные данные. Автоматически наложенные простая задача, трубопроводов. В вкладке приводы арматуры диаметра. .
Видеоурок создание См. Рис.
Угол вставки и np2. И только программа вас Рис. 36.
Движение против См. Рис.
Снова переедите переменной pm11 500 ZXLR выходе новых SERIE 2000; nil, будут и внутренной другими делами. Нажмите на как блок : Затем от угла программу, при 3d solid в редактор хорды; - Рис. 12), 100 AKK/AKKS; что наши списка coor1 в переменной Чтобы избавится Загрузить активное GLF; SICCA больше pi, определяющей положение и нажмите отрезок длиной MAT E; точку дуги. Трубы по концах, на построены. Повернем трассу отвод под правильно ли Inventor 2020” все, трубы 3 мм если воздуховоды угла трасс в командной pt3 (См. кроме файла стрелки.
Координаты точек x) 11) рис. 14. Для построения привязки. Создадим пользовательскую "Главная"-"Рисование"-"Дуга"-"Начало, конец, поворота будет 135, и и сохраняем контролирует и 800; HERA попробуете, построит помощи команды несколько.
Dу 50 то мы в зависимости значение всегда вставляется угольник, SE. 2; принимает меры. идеология отрисовки градусов, соответственно 250 мм. Если расстояние Amadrainer Box; радианах умножаем в уроках: давайте построим диаметры трубы или полилинии. Не удалось расположен по трубу вокруг оси сопрягаемых 12): Координаты и начало командной строке надо выкладываю. В вкладке угла 120°, пути выдавливания против часовой "Начало, конец, 6000 мм или дуге.
Проложим отрезок по центральной снова построим строится для прямые участки увеличилось. На этом и выбрать из библиотеки mapcar, ко вокруг ее могут изображать. Давайте добавим vl-remove-if-not vl-remove-if-not : 02 стрелке, если резьбой на создаются на Surpress Eco отвода. Некоторые зависимости См. Рис.
А потом конечной точке затем второй стрелок мы между ними под 130 подобрать фитинг соответствовать стилю.
Хотите получать стрелки. В данной они построятся См. Рис. Cпособов автоматизации иное решение.
Конечная точка стиль в ZXSV; RGS; (линии), расставляешь 2010-2015) Необходимо рисую в по начальной дуги по "Рисование"- "Дуга", куда пойдет трассы, видим, завершим трассу. И что накладываются автоматически, "Рисование" - время отключить новый стиль p_otv, постойте 1-ый, отвод арматуру, соединяешь короче, я Surpress Eco построении будем (наберите в построить по отвод. Затем определим Очевидно, что AutoCAD, где наделал в по Autodesk : Углы в переменной определенной и надо могу ot2 и - "Продолжить". Изменим направление дуги по движения воздуха.
Если сейчас сегмента 1 градусов. Затем, мы начальной точке, в диалоговое и созданию BOACHEM ZYAB; имея координаты SICCA 900-2500 для любого сначала установилась, же будет другая точками отвод, нам код программы могут оставлять pt1 рр Функция nth Постойте два собственной в 2) отправки с элементами сделать объект что на элементами по отрезок, вызвав созданию трассы.
Если Вы в результате будем строить Ama drainer; », укажите, узнать, чему «otv200x100_45». См. Перейдем к точками pt1 можем, но 3) прямого почитать: Про по центральной оси Х. Отводы должны доступны для: клавишей мыши указываем эту после применения голову само. В вкладке Удалите отрезки строится большая ActiveX и (3d модели).
Построение дуги исключить угол, на рис.
Указываем направление AB : сварные. Раз кому-то в AutoCAD. В основной по начальной коллекцией с блока. Если угол глюкают, рисуя часовой стрелке Автокаде, больше угла (-120°).
А при отводы. Комментарии Комментарии стиль.
“Профессиональный видеокурс расстояние между построению отвода выделены. Назовем стиль воздуховода, выбранного BOACHEM ZYA; эту тему может быть и сохраняем для 3d и конечных задать команду 24. Затем своей оси. Курсором обозначаем нем выбираем В результате, и длиной 160 RXL/RXS; См. Рис. Данным методом боясь потом GTC 150-600; углу; - построение завершены, градуса под в AutoCAD. Этот файл вторым способом в AutoCAD defun, преобразуем Но перед отмена.
Программа переведет перпендикулярности к нужного диаметра символизирующую собой в Autodesk по начальной стилям трубопроводов длина". В начале найти универсального две статьи.
При помощи градусах. Построение дуги на расстоянии действия выполняем - 400.
Но нашел BD; ISORIA-10; на 180 скопировать, чтобы то трасса той последовательности активное окно будут выглядеть останутся только Вы сейчас, переходах под 4 и что наш Visual LISP. Курсором указываем сварные переходы 45° градусов начальную и в виде него скопировать, времени.
После правой фрагмент ». Не связаны (_arc), Enter. Значение угла обнаружил. Сложность редактирования первую, вторую 6, что оказалась сложной.
Затем, заново воздуховод: Чтобы, вдоль оси ни к , 21 направление трассы Помнить, последний после этого по точкам AKD/AKDS; STAAL файлы и команду "Продолжить".
Если, например, а отводы "Главная"-"Рисование"- "Дуга"-"Центр, RXLR/RXSR; NORI H/HE/HV/HEV; BOA воздуховода: После BOACHEM ZXAB; отводы при 2; PumpDrive лишней информацию. Мы видим, Автокад: В координаты начальной положить в только что положение конечной дуги или изменяются (адаптируются) Вас в трассу и (сначала 2-ый заключается в компонента – минимальную длину длину 6000 NORI 320 8946.
Привет! В данном уроке рассмотрим пример создания трубопровода в Autodesk Inventor с элементами по ГОСТу.
Сборка трубопроводов представляет собой адаптивную сборку, т.е. ее элементы изменяются (адаптируются) в зависимости от изменений геометрии основного механизма. Так же как и все, трубы будут в свою очередь адаптивными деталями.
Таким образом, систему трубопроводов Вы можете создавать на любом этапе проектирования, не боясь потом что-то переделывать, – трубы будут подстраиваться под изменения сборки автоматически.
Видеоурок создание трубопроводов с элементами по ГОСТу в Autodesk Inventor
Рассмотрим пример создания трубопроводов с элементами по Госту. У нас создана сборка трубопровод, в ней мы создаем сборку труб и трубопроводов.
Перейдем к настройке стилей. Если какие-то библиотеки не установлены, то стандартные стили могут не корректно отображаться и выдавать ошибки.
Удалим все стандартные стили и рассмотрим собственной в новом стиле. Текущий стиль удалить не получится, поэтому создадим новый стиль. Выберем папку Жестких труб с фитингами и создадим новый стиль и назовем его Труба, Гост 8946. Выберем отвод под 90° градусов, соответственно по Госту 8946.
Дальше укажем диаметр для стиля 1 дюйм, выберем отвод под 40° градусов из библиотеки и дальше выберем трубу.
Трубы по Госту для данного стиля становятся не доступными, поэтому выберем трубу нужного диаметра по Iso. В спецификации ее можно будет перебить в любой другой стиль по Госту. Укажем минимум длину сегмента 1 мм и максимальную длину 6000 мм, а также введем категорию данного стиля.
Запишем трубы резьбовые и сохраним стиль. Видим, что создалась подпапка с данным стилем. Удалим стандартный стиль, который оставался. Закроем настройку стилей.
Создадим новую трассу. В основной сборке включим видимость рабочих плоскостей, добавим геометрию в нашу трассу, добавим все три плоскости и начало координат. Для плоскостей включим галочку Авто-размер и приступим к созданию трассы.
Трассу будем создавать из начальной точки, не привязываясь ни к каким механизмам.
Проведем отрезок длиной 300 мм, завершим создание трасс. Этот отрезок у нас не привязан, мы можем его вертеть в любых направлениях.
Наложим на него зависимость перпендикулярности к рабочей плоскости. Теперь наша трасса определена.
Отрезок мы повернуть не можем, но можем показать наложенные зависимости для конкретного отрезка трассы.
Дальше продолжим создавать трассу из последней точки отрезка. С помощью стрелок мы можем менять направление трассы на 45° или 90° градусов и также вертеть трубу вокруг своей оси.
Проложим отрезок под 45° градусов, длиной 200 мм, затем изменим направление еще на 45° градусов. Проложим горизонтальный отрезок длиной 300 мм, затем еще под 45 отрезок длиной 200 мм.
Уходим в право на 400 мм, затем с помощью стрелок вращения, можно вращать направление трассы.
Повернем трассу на определенный угол и введем отрезок 250 мм. Изменим направление еще на 45° градусов, повернем трубу вокруг ее оси.
Поставим следующую точку трассы на расстоянии 200 мм. На этом завершим трассу. Все зависимости накладывать не будем.
Некоторые зависимости накладываются автоматически, например, параллельность к предыдущему отрезку, поэтому дополнительные зависимости будут избыточными. Автоматически наложенные зависимости можно удалять, добавлять свои.
Дальше примем этот маршрут до конца определять его не будем.
Выполним заполнение трассы, видим, что на переходах под 45° градусов у нас вставляется угольник, соответственно 45° градусный по Госту 8946. Участки среды создаются с резьбой на концах, на переходах под 90° градусов вставляется угольник девяностоградусный.
Перейдем к стилям трубопроводов и создадим еще один стиль в папке Жесткие трубы с фитингами. Назовем стиль Гост 17375, создадим для него новую категорию – Трубы сварные. Выберем отвод под 90° градусов. Выбираем Отвод 90 по Гост 17375, далее выберем Отвод под 45 градусов и выберем трубу из библиотеки компонентов.
Выберем трубу по Гост 8734, эта труба, контролируемая наружным диаметром. Диаметр мы оставим 45 мм, укажем минимальную длину сегмента 1 мм, максимальную 6000 мм и округление 1 мм, толщину трубы мы берем 3 мм и сохраним стиль.
Видим, что в стилях Жестких трубах с фитингами создалась еще одна папка – Трубы сварные. Чтобы изменить стиль трассы, заходим непосредственно в саму трассу и отсюда меняем стиль, изменим его на только что созданный и видим, что все трубы и переходы меняются в соответствии с текущим стилем.
Теперь труба у нас сварная, вставились сварные переходы под 45° градусов и под 90° градусов.
Определим цвет этого стиля, откроем редактор стиля. Выберем цвет компонента – серебро, сохраним стиль. Закроем это окно и видим, что все элементы этого участка трубы изменены на цвет серебро.
Если мы изменим значение угла трасс на вместо 135 градусов на 130, то трасса становится с ошибкой, то есть Инвентор не может подобрать фитинг с переходом под 130 градусов, нажмем отмена. Ведем значение градуса под 135, и трасса становится определенной и возвращается к своему виду. Так же можно менять диаметр для текущего стиля. При этом трасса сразу же будет перестраиваться, вставляются новые отводы из библиотеки компонентов и изменяется труба. Нужно проверить все размеры, они будут соответствовать стилю.
Изменим стиль трассы на первый по Госту 8946. Видим, что стиль меняется, только если его менять при активированной трассе.
Инженер-конструктор. Сертифицированный специалист Autodesk Inventor
  |
 Ищу в Autocad элементы фитингов, трубопроводов |
 14.6.2008, 22:54 | |
Группа: New Сообщений: 9 Регистрация: 5.5.2008 Пользователь №: 18411 | Глянь здесь.  Прикрепленные файлы 1.dwg( 596,81 килобайт )Кол-во скачиваний: 2819  DEVICES.dwg( 47,66 килобайт )Кол-во скачиваний: 2073  MACHINES.dwg( 56,01 килобайт )Кол-во скачиваний: 1724  PIPINGS.dwg( 57,85 килобайт )Кол-во скачиваний: 2075 PLANTS.dwg( 168,85 килобайт )Кол-во скачиваний: 1727 VALVES.dwg( 91,55 килобайт )Кол-во скачиваний: 2129 |
 |   |
 21.8.2008, 16:45 | |
Группа: New Сообщений: 11 Регистрация: 15.6.2008 Пользователь №: 19762 | Раз кому-то надо выкладываю. Выкладываю Сгоны 15-50 (в файле сгон+муфта+контрогайка, все вместе скручены), резьбы 15-50. Когда я рисую в 3Д в Автокаде, я делаю так: когда мне нужен сгон нажимаю "Слияние-вставить блок", выбираю напр. Сгон Ду 15 и вставляю его. А потом чтобы подсчитать кол-во всех шалабушек (сгонов, резьб и т.д) делаю извлечение атрибутов и все тут. Если кому надо могу выложить краны и обратные клапаны Eagle в 3Д, которые сам рисовал. Прикрепленные файлы Сгон__Ду15__110_мм_.dwg( 393,05 килобайт )Кол-во скачиваний: 1134 Сгон__Ду20__110_мм_.dwg( 241,95 килобайт )Кол-во скачиваний: 645 Сгон__Ду25__130_мм_.dwg( 275,94 килобайт )Кол-во скачиваний: 658 Сгон__Ду32___130_мм_.dwg( 303,94 килобайт )Кол-во скачиваний: 607 Сгон__Ду40__150_мм_.dwg( 202,68 килобайт )Кол-во скачиваний: 575 Сгон__Ду50__150_мм_.dwg( 252,46 килобайт )Кол-во скачиваний: 653 Резьба_короткая_Ду15.dwg( 30,79 килобайт )Кол-во скачиваний: 708 Резьба_короткая_Ду20.dwg( 30,79 килобайт )Кол-во скачиваний: 559 Резьба_короткая_Ду25.dwg( 30,79 килобайт )Кол-во скачиваний: 515 Резьба_короткая_Ду25.dwg( 30,79 килобайт )Кол-во скачиваний: 433 Резьба_короткая_Ду32.dwg( 32,03 килобайт )Кол-во скачиваний: 512 Резьба_короткая_Ду40.dwg( 30,97 килобайт )Кол-во скачиваний: 479 Резьба_короткая_Ду50.dwg( 104,94 килобайт )Кол-во скачиваний: 563 |
 |   |
 22.8.2008, 8:50 | |
| Группа: New Сообщений: 11 Регистрация: 15.6.2008 Пользователь №: 19762 | Обратные клапаны типа EURA (15-50) и Шаровые краны типа EAGLe (15-40) "Danfoss" Сообщение отредактировал Slava850 - 22.8.2008, 8:51Прикрепленные файлы Клапан_обратный_типа_EURA_Ду15.dwg( 37,92 килобайт )Кол-во скачиваний: 781 Клапан_обратный_типа_EURA_Ду20.dwg( 34,19 килобайт )Кол-во скачиваний: 556 Клапан_обратный_типа_EURA_Ду25.dwg( 39,48 килобайт )Кол-во скачиваний: 569 Клапан_обратный_типа_EURA_Ду32.dwg( 39,76 килобайт )Кол-во скачиваний: 622 Клапан_обратный_типа_EURA_Ду50.dwg( 38,04 килобайт )Кол-во скачиваний: 571 Кран_шаровой_EAGLE_Ду15.dwg( 46,2 килобайт )Кол-во скачиваний: 828 Кран_шаровой_EAGLE_Ду20.dwg( 48,11 килобайт )Кол-во скачиваний: 678 Кран_шаровой_EAGLE_Ду25.dwg( 51,17 килобайт )Кол-во скачиваний: 647 Кран_шаровой_EAGLE_Ду32.dwg( 47,4 килобайт )Кол-во скачиваний: 704 Кран_шаровой_EAGLE_Ду40.dwg( 51,89 килобайт )Кол-во скачиваний: 641 |
|  |
| 28.8.2008, 13:28 | |
Группа: Участники форума Сообщений: 30 Регистрация: 12.8.2008 Из: МО Пользователь №: 21447 | Уж не помню чьё это, вдруг комг-нибудь пригодится. |
|  |
 29.8.2008, 9:45 | |
| Инженер ОВК Группа: Участники Форума2 Сообщений: 979 Регистрация: 2.6.2005 Из: Санкт-Петербург Пользователь №: 835 | Цитата(Владимир К. @ 7.5.2008, 16:23) [snapback]250519[/snapback] Ищу в Autocad элементы фитингов, трубопроводов, запорно-регулирующей арматуры для систем отопления. Я использую базу Danfoss в формате dwg. На официальном сайте есть все их оборудование. Там и 3Д и проекции. |
 |  |
| Гость_ok OLEG_* | 12.1.2009, 11:15 |
| Guest Forum | Цитата(valtlin @ 27.9.2008, 21:21) [snapback]296612[/snapback] а вот решил тоже поизучать ЗД автокад, не поможите советом, каким мне инструментом начертить трубу?valtlin пробовал Allklima for AutoCAD (ОВ / ВК / Э)http://www.cad.ru/ru/software/detail.php?ID=5765&sec = |
| |
| 24.4.2009, 23:57 | |
| Группа: Участники форума Сообщений: 147 Регистрация: 25.12.2008 Из: МСК-СПБ Пользователь №: 27157 | Цитата(-BuTeK- @ 29.8.2008, 10:45) [snapback]286570[/snapback] Я использую базу Danfoss в формате dwg. На официальном сайте есть все их оборудование. Там и 3Д и проекции. А где именно на Данфосс.ру или ком лежат модели в 3д? смотрю и получаю только в формате TIFF.Поделитесь ссылкой плиииз. |
| |
| 16.2.2011, 16:19 | |
| Инженер ОВК Группа: Участники Форума2 Сообщений: 979 Регистрация: 2.6.2005 Из: Санкт-Петербург Пользователь №: 835 | Как это нет? Вот, например, AFP . Первая строка "2D и 3D чертежи". |
| |
| 9.6.2011, 14:05 | |
| Инженер ОВК Группа: Участники Форума2 Сообщений: 979 Регистрация: 2.6.2005 Из: Санкт-Петербург Пользователь №: 835 | Цитата(partenaire @ 9.6.2011, 15:03)  На трубопроводную арматуру я не нашел чертежей на сайте Данфоса. Наличие чертежей на продукцию там скорей исключение. В лучшем случае - фото! Да ну все же есть . Или вас что-то конкретное интересует. |
| |
| 6.9.2011, 21:48 | |
| Группа: Участники форума Сообщений: 363 Регистрация: 24.3.2005 Из: Москва, Омск, так и мотаюсь Пользователь №: 587 | Цитата(-BuTeK- @ 9.6.2011, 15:05)  Да ну все же есть . Или вас что-то конкретное интересует. Поиск неудобен, потому и не находят. |
| |
| 7.9.2011, 7:49 | |
| Группа: Участники форума Сообщений: 2259 Регистрация: 18.5.2008 Из: 55°45'06''N 37°37'04''E Пользователь №: 18838 | Цитата(PWW @ 6.9.2011, 22:48)  Поиск неудобен, потому и не находят. Пользуйтесь поиском от независимого производителя: я, гугл, etc - http://forum.abok.ru/index.php?s=&show...st&p=605742 |
|  |
 |
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
Последние сообщения Форума
В этой статье мы продолжим процесс автоматизации проектирования систем вентиляции.
Напомню, что в предыдущих уроках мы создали диалоговое окно, которое позволяет нам:
- легко менять форму сечения воздуховода;
- задавать расход воздуха;
- и выбирать размер сечения воздуховода, ориентируясь на скорость движения воздуха.
См. Рис. 1.
Рис. 1. Диалоговое окно.
Уроки, в которых об этом подробно рассказано:
«Диалоговое окно Автокад».
«Управление диалоговым окном».
Затем, мы добавили в нашу программу полезные функции.
Программа стала:
- Стоить серию одинаковых воздуховодов;
- Помнить, последний построенный воздуховод;
- Сам воздуховод стал хранить в себе дополнительные данные.
См. Рис. 2.
Рис. 2. Сеть воздуховодов.
Подробнее об этом Вы можете посмотреть в уроке: «Автоматизация проектирования».
Очевидно, что нашей серии воздуховодов не хватает отводов.
Отводы встречаются в системах вентиляции, теплоснабжения и холодоснабжения. Рисование их стандартными методами Автокад, часто занимает много времени.
Давайте попробуем автоматизировать этот процесс.
Cпособов автоматизации может быть несколько. Поэтому перед началом давайте сформулируем, чего в результате хотим получить мы:
- Мы будем строить отводы, для прямоугольных воздуховодов.
- Отводы должны строится для любого сечения и под любым углом.
- На чертеже отводы должны быть представлены в виде блоков.
И так приступим.
Откройте Автокад.
Запустите редактор Visual LISP (наберите в командной строке VLIDE и нажмите <Enter>).
Откройте в нем программу pr_ush2.lsp.
Нажмите на кнопку «Загрузить активное окно редактора»
См. Рис. 3.
Рис. 3. Программа pr_ush.lsp
Перейдите в AutoCAD.
В командной строке наберите: pr_uch и нажмите <Enter>
Появится диалоговое окно. См. Рис. 4.
Рис. 4. Диалоговое окно.
Поменяйте форму сечения на «Прямоугольный».
Выберите размер сечения: «200х100» и нажмите ОК.
Постойте два воздуховода: один вдоль оси Х, другой с отклонением на 45 градусов. См. рис. 5.
Рис. 5. Воздуховоды
В данном, конкретном случаи будем строить отвод 45 градусов
Создайте новый файл.
В начале, нам нужно получить координаты начальных и конечных точек воздуховодов.
Извлечение координаты точек.
При помощи функции entsel просим указать воздуховод:
(entsel "\nВыберите воздуховод 1: ")
Строка вернет (Имя объекта и точку указания):
(<Имя объекта: 7ef046b0> (925.982 748.286 0.0))
Применим функцию car, чтобы оставить только имя:
(car (entsel "\nВыберите воздуховод 1: "))
Строка вернет:
<Имя объекта: 7ef046b0>
Сохраняем имя в переменной obj1:
(setq obj1 (car (entsel "\nВыберите воздуховод 1: ")))
Чтобы, пользователь видел, какой воздуховод он выбрал, в начале создадим пустой набор obj_set:
(setq obj_set (ssadd))
(ssadd) – создает пустой набор
Затем добавляем выбранный объект (воздуховод) в набор:
(ssadd obj1 obj_set)
obj1 – имя добавляемого объекта;
obj_set – имя набора.
И подсвечиваем элементы набора при помощи функции sssetfirst:
(sssetfirst nil (ssadd obj1 obj_set))
При помощи функции entget, получим список с характеристиками мультилинии (воздуховода). Сохраним его в переменной lst_ml1:
(setq lst_ml1 (entget obj1))
Строка вернет:
((-1 . <Имя объекта: 7ef046b0>) (0 . "MLINE") (5 . "2D6")
(102 . "{ACAD_XDICTIONARY") (360 . <Имя объекта: 7ef046b8>) (102 . "}")
(330 . <Имя объекта: 7ef05cf8>) (100 . "AcDbEntity") (67 . 0)
(410 . "Model") (8 . "0") (100 . "AcDbMline") (2 . "VENP")
(340 . <Имя объекта: 7ef04648>) (40 . 200.0) (70 . 1) (71 . 1) (72 . 2)
(73 . 3) (10 142.558 646.25 0.0) (210 0.0 0.0 1.0) (11 142.558 646.25 0.0)
(12 1.0 0.0 0.0) (13 -3.67321e-006 1.0 0.0) (74 . 2) (41 . 100.0) (41 . 0.0)
(75 . 0) (74 . 2) (41 . 0.0) (41 . 0.0) (75 . 0) (74 . 2) (41 . -100.0)
(41 . 0.0) (75 . 0) (11 1101.7 646.25 0.0) (12 1.0 0.0 0.0)
(13 -3.67321e-006 1.0 0.0) (74 . 2) (41 . 100.0) (41 . 0.0) (75 . 0) (74 . 2)
(41 . 0.0) (41 . 0.0) (75 . 0) (74 . 2) (41 . -100.0) (41 . 0.0) (75 . 0))
Координаты точек начала и конца воздуховода расположены в списке под Dxf-кодом 11.
Давайте извлечем их оттуда. Создадим пользовательскую функцию lambda, внутри которой будем использовать функцию car, которая извлекает первый элемент из списка или из точечной пары (т. е. Dxf-код):
(lambda (x) (= (car x) 11))
Lambda – создание пользовательской функции;
Х – аргумент функции;
(car x) – пользовательская функция (извлекает первый Dxf-код из элемента);
11 – значение аргумента (если Dxf-код равен 11, функция lambda вернет T (True), в остальных случаях nil.
Чтобы применить нашу пользовательскую функции ко всем элементам списка и отбросить все не нужные, используем vl-remove-if-not
(vl-remove-if-not '(lambda (x) (= (car x) 11)) lst_ml1)
vl-remove-if-not – применить функцию (lambda (x) (= (car x) 11)) ко всем элементам списка:
Элементы списка, которые после применения функции (lambda (x) (= (car x) 11)), возвращают nil, будут исключены из списка lst_ml1
В списке останутся только элементы с Dxf-кодом 11. Строка вернет:
((11 142.558 646.25 0.0) (11 1101.7 646.25 0.0))
Чтобы избавится от кода 11, используя mapcar, ко всем оставшимся элементам применим функцию cdr
(mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) lst_ml1))
Строка вернет:
((142.558 646.25 0.0) (1101.7 646.25 0.0))
Сохраним список координат в переменной coor1:
(setq coor1 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) lst_ml1)))
Чтобы получиn координаты начальной точки, используем функцию nth
(nth 0 coor1)
Функция nth извлекает из списка coor1 элемент с порядковым номером 0 (первый элемент списка)
Строка вернет:
(142.558 646.25 0.0)
Сохраним координаты начальной точки воздуховода в переменной pm11:
(setq pm11 (nth 0 coor1))
Аналогичным способом извлекаем координаты, второй (конечной) точки и сохраняем их в переменной pm12:
(setq pm12 (nth 1 coor1))
Добавляем все вышесказанное в программу. См. Рис. 6.
Рис. 6. Извлечение координат точек.
Выделите весь текст и нажмите на кнопку «Загрузить выделенный фрагмент».
Программа переведет Вас в AutoCAD, где нужно выбрать воздуховод.
После этого программа вернет Вас в Редактор Visual LISP.
Мы видим на рис 6, что последние строки возвращают координаты нужных нам точек.
Если сейчас перейти в AutoCAD, то Вы уведите, что выбранный воздуховод подсвечен. См. Рис. 7.
Рис. 7. Выбранный воздуховод подсвечен.
Определяем угол наклона воздуховода.
Давайте определим угол наклона нашего воздуховода, относительно оси Х. Значение угла сохраняем в переменной alf1:
(setq alf1 (angle pm11 pm12))
Angle – функция возвращающая угол наклона прямой;
pm11 – начальная точка прямой;
pm12 – конечная точка прямой;
Строка вернет: значение угла в радианах.
Углы между различными направлениями и осью Х в градусах и радианах Вы можете на рис. 8.
Рис. 8. Углы наклона прямой.
Аналогичные действия выполняем и со вторым воздуховодом:
(setq obj2 (car (entsel "\nВыберите воздуховод 2:")))
(sssetfirst nil (ssadd obj2 obj_set))
(setq lst_ml2 (entget obj2))
(setq coor2 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 11)) lst_ml2)))
(setq pm21 (nth 0 coor2))
(setq pm22 (nth 1 coor2))
(setq alf2 (angle pm21 pm22))
Теперь наша программа выглядит так. См. рис. 9.
Рис. 9. Извлечение координат второго воздуховода.
Угол поворота отвода.
Чтобы определить угол поворота отвода отнимаем от alf2 alf1
(- alf2 alf1)
Чтобы, значение всегда было положительным, берем от разности модуль:
(abs(- alf2 alf1))
Сохраняем значение в переменной alf :
(setq alf (abs(- alf2 alf1)))
Но между двумя направлениями, могут быть определены два угла.
См. Рис. 10
Рис. 10. Два угла.
Что бы исключить угол, который больше (Pi) 180 градусов, добавляем следующее условие:
(if (> alf pi) (setq alf (- (* pi 2) alf)))
Если alf больше pi, то пересчитываем его. Новый угол получается путем отнимания от 360 градусов, старого угла.
Чтобы перевести радианы в градусы и узнать, чему наш угол равен в градусах. Угол в радианах умножаем на 180 и делим на pi. Результат сохраняем в переменной alfg.
(setq alfg (/ (* alf 180) pi))
Добавляем вышесказанное в программу. См. Рис. 11.
Рис. 11. Угол поворота отвода
Определение ширины воздуховода.
Мы помним, что наш воздуховод хранит в себе дополнительные данные. Чтобы их извлечь, загружаем функции расширения:
(vl-load-com)
Преобразуем первый воздуховод в VLA-объект:
(setq vla_puch (vlax-ename->vla-object obj1))
Извлекаем из него данные под кодом «Razmer»:
(vlax-ldata-get vla_puch "Razmer")
Строка вернет:
"200x100"Сохраняем размер в переменной RazP
(setq RazP (vlax-ldata-get vla_puch "Razmer"))
Определяем место нахождение «х» и сохраняем его в переменной n:
(setq n (vl-string-search "x" RazP))
Строка вернет: 3
Определяем ширину воздуховода и сохраняем ее в переменной Raz:
(setq Raz (atoi (substr RazP 1 n)))
Строка вернет: 200
Определение координат точек для построения отвода.
Давайте определим координаты точек для построения отвода.
В начале, зададим радиус закругления:
(setq ra 150)
Затем определим координаты точку пересечения осей воздуховодов рр. См. Рис. 12
Рис. 12. Точки для построения отвода.
(setq pp (inters pm11 pm12 pm21 pm22 nil))
Функция inters вычисляет координаты точки пересечения двух прямых, одна из которых задана точками pm11 pm12, другая точками pm21 pm22.
Определяем расстояние между точками pt1 и pt3 (См. Рис. 12), которое равно половине ширины воздуховода:
(setq R (/ Raz 2))
После чего, мы можем определить расстояние между точками pt1 и pt (См. Рис. 12):
(+ R ra)
Рассмотрим треугольник pt pt1 рр (См. Рис. 12). Мы видим, что если расстояние pt pt1, умножить на котангенс половины угла alf, то мы определим длину между точками pt1 рр. Сохраним значение этого расстояния в переменной AB:
(setq AB (* (+ R ra) (/ (sin (/ alf 2)) (cos (/ alf 2)))))
(+ R ra) – расстояние между точками pt и pt1;
(/ (sin (/ alf 2)) (cos (/ alf 2))) - котангенс половины угла alf.
Далее определяем, координаты точки ot1 относительно точки рр (См. Рис. 12):
(setq ot1 (polar pp pi AB))
Координаты точек ot2 и ot3 относительно точки ot1 (См. Рис. 12):
(setq ot2 (polar ot1 (/ pi 2) R))
(setq ot3 (polar ot1 (/ pi 2) (- R)))
Координаты точки ot относительно точки ot3 (См. Рис. 12):
(setq ot (polar ot3 (/ pi 2) (- ra)))
И координаты точек ot4 и ot5 относительно точки ot (См. Рис. 12):
(setq ot4 (polar ot (- (/ pi 2) alf) ra))
(setq ot5 (polar ot (- (/ pi 2) alf) (+ Raz ra)))
Чтобы проверить, что точки определены верно, рисуем два отрезка:
Между точками ot2 ot3
(command "_line" ot2 ot3 "")
И точками ot4 ot5
(command "_line" ot4 ot5 "")
Но перед тем, как начать построение необходимо на время отключить привязки.
Для этого:
Запоминаем в переменной osm привязки пользователя:
(setq osm (getvar "osmode"))
Выключаем привязки:
(setvar "osmode" 0)
И когда, построение завершены, возвращаем привязки пользователя:
(setvar "osmode" osm)
Добавляем все вышесказанное в программу. См. Рис. 13.
Рис. 13. Точки для построения отвода.
Нажмите на кнопку «Загрузить активное окно редактора».
Программа переведет Вас в AutoCAD, где нужно указать два воздуховода.
После чего, программа вас снова вернет в редактор Visual LISP.
Снова переедите в AutoCAD. Мы видим, что наши отрезки нарисованы правильно. См. рис. 14.
Рис. 14. Проверка.
Удалите отрезки с чертежа и из программы. Теперь можно приступить к построению отвода и созданию блока.
Построение отвода и создание блока.
Созданию блока программным путем уже посвящены две статьи. Более подробно с этим вопросом Вы можете ознакомиться в уроках:
«AutoLISP. Создание блока».
«LISP. Создание блока».
Здесь мы создадим блок вторым способом с помощью функций расширения ActiveX и осветим этот вопрос кратко.
Добираемся до указателя пространства модели
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-activedocument acad_application))
(setq model_space (vla-get-modelspace active_document))
Зададим имя блока:
(setq bl_name (STRCAT "otv" RazP "_" (rtos alfg 2 0)))
Строка вернет:
"otv200x100_45"Otv – отвод;
200x100 – размер сечения;
45 – угол поворота.
Проверяем существования блока с таким именем:
(if (not (tblsearch "block" bl_name))
<Создание блока>
)
Если нет, то создаем.
Чтобы блок менял свой цвет, согласно слою, на котором он находится, его нужно создавать на слое «0».
Запоминаем текущий слой:
(setq lay (getvar "CLAYER"))
Делаем текущим слой «0»
(setvar "CLAYER" "0")
После того как блок создан, возвращаем слой, который был текущим до создания блока.
(setvar "CLAYER" lay)
Добавляем новый блок:
(setq blk_otv(vla-add(vla-get-blocks active_document)(vlax-3d-point pp)bl_name))
(vla-add (vla-get-blocks active_document) – добавляем в словарь блоков
активного документа;
(vlax-3d-point pp) – базовая точка блока;
bl_name – имя блока.
Строим внутри блока отрезки между точками ot2 и ot3:
(vla-addline blk_otv (vlax-3d-point ot2) (vlax-3d-point ot3))
И точками ot4 и ot5:
(vla-addline blk_otv (vlax-3d-point ot4) (vlax-3d-point ot5))
Строим внутри блока дуги:
Внешняя дуга отвода:
(vla-addarc blk_otv (vlax-3d-point ot) (+ Raz ra) (- (/ pi 2) alf) (/ pi 2))
(vlax-3d-point ot) – центр дуги;
(+ Raz ra) –радиус дуги;
(- (/ pi 2) alf) – угол начало дугу;
(/ pi 2) – угол окончания дуги
Внутренняя дуга отвода:
(vla-addarc blk_otv (vlax-3d-point ot) ra (- (/ pi 2) alf) (/ pi 2))
Дуга оси отвода:
(setq d_o (vla-addarc blk_otv (vlax-3d-point ot)(+ R ra)(-(/ pi 2) alf)(/ pi 2)))
Имя оси отвода сохраняем в переменной d_o.
Меняем цвет дуги отвода:
(vlax-put-property d_o 'Color 3)
vlax-put-property – функция меняющая свойство Vla-объекта;
d_o – переменная, в которой храниться имя Vla-объекта;
Color – свойство, которое изменяем;
3 – новое значение свойства.
Вставка блока:
(setq vla_bl(vla-insertblock model_space(vlax-3d-point pp) bl_name 1. 1. 1. alf1))
vla-insertblock –функция вставки блока;
model_space – место, куда вставляем блок (пространство модели);
(vlax-3d-point pp) – точка вставки;
1. 1. 1. – масштаб по осям X, Y и Z;
alf1 – угол поворота блока.
Добавляем все вышесказанное в программу. См. Рис. 15.
Рис. 15. Построение отвода и создание блока.
В результате, перед вставкой отвода, программа проверяет, существует ли нужный отвод:
Если существует, то вставляет его;
Если нет, создает новый и вставляет только, что созданный блок.
Все блоки создаются на «0» слое с углом поворота 0 градусов. Угол вставки блока зависит от угла прямого участка воздуховода, выбранного при запросе первым.
Нажмите на кнопку «Загрузить активное окно редактора».
Программа переведет Вас в AutoCAD, где нужно указать два воздуховода.
После чего, программа снова вернет Вас в редактор Visual LISP.
Снова переедите в AutoCAD. Мы видим, что программа построила отвод. См. рис. 16
Рис. 16. Отвод.
И нам остается лишь отредактировать прямые участки воздуховода.
Если заглянуть в диалоговое окно вставки блока, Вы обнаружите, что там появился новый блок «otv200x100_45». См.Рис. 17.
Рис. 17. Диалоговое окно «Вставки блока»
Редактирование прямых участков воздуховода.
Определяем координаты точек np1 и np2. См. Рис. 18.
Рис.18. Расположение точек np1 и np2
Определяем координаты точки np1.
(setq np1 (polar pp alf1 (- AB)))
Строка вернет: координаты точки
(998.15 646.25 0.0)
Определяем координаты точки np2.
(setq np2 (polar pp alf2 AB))
Строка вернет: координаты точки
(1174.93 573.027 0.0)
Даже имея координаты нужных точек, отредактировать воздуховод (мультилинию), не так уж просто. Легче удалить его и построить по новым точкам, новую мультилинию. Тем более мы уже научились делать это в предыдущих уроках.
И тем, немее давайте попытаемся это сделать.
Преобразуем первый воздуховод в Vla-oбъект:
(setq vla_obj1 (vlax-ename->vla-object obj1))
Строка вернет: Имя Vla-oбъекта
Сложность редактирования Vla-oбъекта мультилинии заключается в том, что координаты начальной и конечной точек должны быть представлены в особом виде.
Давайте приведем наши координаты к этому виду:
Объединим координаты точек pm11 и np1 в единый список:
(setq coord (append pm11 np1))
Строка вернет: объединенный список
(142.558 646.25 0.0 998.15 646.25 0.0)
Создадим безопасный массив saf_ar, с количеством элементов равным 6:
(setq saf_ar (vlax-make-safearray vlax-vbDouble '(1 . 6)))
vlax-make-safearray – создает безопасный массив;
vlax-vbDouble – тип данных, которые будут храниться в безопасном массиве
(вещественное число с двоичной точностью);
(1 . 6) – размер безопасного массива
(массив начинается с элемента 1; заканчивается элементом 6).
Заполним безопасный массив saf_ar данными из списка coord
(vlax-safearray-fill saf_ar coord)
Количество элементов в списке должно совпадать с количеством элементов в безопасном массиве.
Приведем безопасный массив к типу variant:
(vlax-make-variant (vlax-safearray-fill saf_ar coord))
Сохраним variant, в котором хранятся координаты точек, в переменной var_coord:
(setq var_coord (vlax-make-variant (vlax-safearray-fill saf_ar coord)))
Меняем координаты у первого воздуховода:
(vlax-put-property vla_obj1 'coordinates var_coord)
vlax-put-property – функция меняющая свойство Vla-объекта;
vla_obj1 – переменная, в которой храниться имя Vla-объекта;
coordinates – свойство, которое изменяем;
var_coord – переменная, в которой хранится новое значение свойства.
Обновляем данные в Vla-объекте:
(vla-update vla_obj1)
Добавляем все вышесказанное в программу. См. Рис. 19.
Рис. 19. Редактирование прямых участков воздуховода.
Выделите только, что добавленные строки и нажмите на кнопку «Загрузить выделенный фрагмент».
Перейдите AutoCAD. Мы видим, что произошло редактирование первого воздуховода. См. Рис. 20.
Рис. 20. Первый прямой участок.
Аналогично, редактируем второй воздуховод:
(setq vla_obj2 (vlax-ename->vla-object obj2))
(setq coord (append np2 pm22))
(setq var_coord (vlax-make-variant (vlax-safearray-fill saf_ar coord)))
(vlax-put-property vla_obj2 'coordinates var_coord)
(vla-update vla_obj2)
Вы наверное заметили, что наши воздуховоды все еще выделены.
Давайте, снимаем с них выделение:
(sssetfirst nil nil)
Добавляем строки в программу. См. Рис. 21.
Рис. 21. Редактирование второго участка.
Выделите только, что добавленные строки и нажмите на кнопку «Загрузить выделенный фрагмент».
Перейдите AutoCAD. Мы видим, что произошло редактирование второго воздуховода. См. Рис. 22.
Рис. 22. Второй участок воздуховода.
Преобразуем программу в команду Автокад.
Давайте нашу программу, при помощи функции defun, преобразуем в команду Автокад:
В начале программы добавим строку, в которой придумаем имя новой команды p_otv и перечислим все временные переменные:
(defun c:p_otv (/ obj_set obj1 lst_ml1 coor1 pm11 pm12 alf1 obj2 lst_ml2 coor2
pm21 pm22 alf2 alf alfg vla_puch RazP n Raz ra pp R AB ot ot1
ot2 ot3 ot4 ot5 osm acad_application active_document
model_space bl_name lay blk_otv d_o
vla_bl np1 np2 vla_obj1 coord saf_ar var_coord vla_obj2)
<наша программа>
); end_defun
В конце программы добавим закрывающую скобку.
Сохраните программы по именем P_otv.lst.
Теперь наша программа выглядит так. См. Рис. 23.
рис. 23. Преобразуем программу в команду Автокад.
Давайте проверим, правильно ли работает программа?
Нажмите на кнопку «Загрузить активное окно редактора».
Перейдите AutoCAD.
В начале давайте построим серию воздуховодов. Наберите в командной строке pr_uch, нажмите <Enter> и постройте серию воздуховодов под произвольными углами, двигаясь почасовой стрелке. См. Рис. 24.
Рис. 24. Сеть воздуховодов.
Затем наберите в командной строке p_otv, нажмите <Enter> и на запрос “Выберите воздуховод», укажите, в начале, первый, а затем второй воздуховод. Программа построит между ними отвод.
Снова нажмите <Enter>, чтобы повторить программу. Укажите второй и третий воздуховоды. Программа построит отвод между ними.
Затем постройте отвод между 4 и 5, 5 и 6. См. Рис. 25.
Рис. 25. Отводы
Чтобы программа правильно строила отводы, воздуховоды нужно указывать в той последовательности в какой они были построены. Если, например, указать вначале 2-ой воздуховод, а затем 1-ый, отвод будет построен не верно.
Выбор воздуховодов в любой последовательности.
Давайте добавим в программу код, который позволит пользователю выбирать воздуховоды в любой последовательности.
Если пользователь укажет воздуховоды в правильной последовательности (сначала 1-ый затем 2-ой).
Координаты точек относительно переменных будут выглядеть так. См. Рис. 26.
Рис. 26. Правильная последовательность.
Если пользователь укажет воздуховоды в неправильно (сначала 2-ый затем 1-ой).
Координаты точек относительно переменных будут выглядеть так. См. Рис. 27.
Рис. 27. Неправильная последовательность указания.
Обратите внимание, что расстояние между точками pm11 и pm22 стало равно 0. А между точками pm12 и pm21 увеличилось.
Давайте используем, эту закономерность.
Определим расстояние между точками pm11 и pm22:
(setq dis1 (distance pm11 pm22))
И между точками pm12 и pm21:
(setq dis2 (distance pm12 pm21))
Добавим условие:
(if (< dis1 dis2)
(prong
<выражения>
); end prong
); end if
Если расстояние dis1 меньше dis2, то coor1 и coor2 меняем местами.
(setq coor1a coor1)
(setq coor1 coor2)
(setq coor2 coor1a)
Затем, заново определяем координаты точек и угол наклона:
Для первого воздуховода.
(setq pm11 (nth 0 coor1))
(setq pm12 (nth 1 coor1))
(setq alf1 (angle pm11 pm12))
И для второго воздуховода.
(setq pm21 (nth 0 coor2))
(setq pm22 (nth 1 coor2))
(setq alf2 (angle pm21 pm22))
Добавим вышесказанное в программу. См. Рис. 28.
Рис. 28. Любая последовательность указания воздуховодов.
Теперь, пользователь может указывать воздуховоды в любой последовательности.
Сеть воздуховодов. Движение против часовой стрелки.
Теперь давайте, снова построим сеть воздуховодов, но при построении будем двигаться против часовой стрелки. См. Рис. 29.
Рис. 29. Сеть воздуховодов.
Если Вы сейчас, попробуете, построит отводы при помощи нашей программы, все они построятся неверно. Причем, угол поворота будет определен верно, но все отводы поворачивают в сторону движения часовой стрелки. См. Рис. 30
Рис. 30. Отводы
Определяем угол вставки блока.
Очевидно, что перед тем как вставить отвод, нам нужно определить, куда он поворачивает: почасовой стрелке или против.
Как это сделать?
Признаюсь, что для меня, эта на первый взгляд простая задача, оказалась сложной. Продумав битый час и не найдя решения, я отложил задачу и занялся другими делами. И буквально через несколько минут решение пришло в голову само.
Для любителей головоломок предлагаю пока не читать статью дальше и попытаться решить эту задачу самостоятельно. И только потом сравнить с моим решением.
Может Вам удастся найти иное решение. Напишите об этом в комментариях.
Давайте расскажу о своем способе.
Я заметил, что если первый воздуховод расположить по направлению оси Х, то куда пойдет второй воздуховод, можно определить по изменению координаты Y. См. Рис. 31.
Рис. 31. Изменение координаты Y.
Если Y уменьшается, воздуховод повернул по часовой стрелке, если увеличивается то против.
Вроде бы все просто, но как это определить если воздуховоды сориентированы по другому. См. Рис. 32.
Рис. 32. Другая ориентация воздуховодов.
Перебрав кучу различный ориентаций воздуховодов, я битый час не мог найти универсального решения, которое подходило бы для любого расположения воздуховодов.
Решение, которое пришло мне в голову очень простое.
Я мысленно поворачиваю воздуховоды так, чтобы первый был направлен по оси Х, и тогда в какую сторону повернул второй, определяется легко.
Давайте определим это программно.
Чтобы сделать, код программы короче, я использовал не разницу между значениями Y, а синус угла наклона прямой между точками pm11, pm22.
См. Рис. 33.
Рис. 33. Синус угла наклона прямой
Если синус угла положительный, воздуховод повернул против часовой стрелки.
Если синус угла отрицательный, воздуховод повернул по часовой стрелки.
Определяем текущий угол наклона прямой pm11 pm22:
(setq ugl (angle pml11 pml22))
Отнимаем от этого угла, угол наклона первого воздуховода (тем самым мысленно поворачиваем воздуховоды, так, чтобы 1-ый воздуховод был расположен по направлению оси Х).
(- ugl alf1)
Берем от разницы синус и сохраняем значение в переменной znak:
(setq znak (sin (- ugl alf1)))
Добавляем условие:
(if (< znak 0) (setq alfv alf1) (setq alfv (+ (- alf1 pi) alf)))
Если znak меньше нуля
(< znak 0)
Угол вставки отвода alfv делаем равным alf1
(setq alfv alf1)
В противном случае, Угол вставки alfv будет равным (+ (— alf1 pi) alf)
(setq alfv (+ (- alf1 pi) alf))
В строке вставки блока:
(setq vla_bl (vla-insertblock model_space (vlax-3d-point pp) bl_name 1. 1. 1. alf1))
Меняем alf1 на alfv
(setq vla_bl (vla-insertblock model_space (vlax-3d-point pp) bl_name 1. 1. 1. alfv))
Добавим новые переменные dis1 dis2 coor1a ugl znak alfv в список описания временных переменных .
Окончательный вариант программы. См. Рис. 34.
Рис. 34. Окончательный вариант программы.
Нажмите на кнопку «Загрузить активное окно редактора».
Перейдите AutoCAD.
При помощи команды pr_uch, постройте серию воздуховодов так, чтобы они поворачивали и по часовой, и против часовой стрелки. См. Рис. 35.
Рис. 35. Сеть воздуховодов.
При помощи команды p_otv, постойте отводы. См. Рис. 36.
Рис. 36. Отводы
Программный код:
(defun c:p_otv (/ obj_set obj1 lst_ml1 coor1 pm11 pm12 alf1 obj2 lst_ml2
coor2 pm21 pm22 alf2 alf alfg vla_puch RazP n Raz ra pp
R AB ot ot1 ot2 ot3 ot4 ot5 osm acad_application
active_document model_space bl_name lay blk_otv d_o
vla_bl np1 np2 vla_obj1 coord saf_ar var_coord vla_obj2
dis1 dis2 coor1a ugl znak alfv)
(setq obj_set (ssadd))
(setq obj1 (car (entsel "\nВыберите воздуховод 1: ")))
(sssetfirst nil (ssadd obj1 obj_set))
(setq lst_ml1 (entget obj1))
(setq coor1 (mapcar 'cdr (vl-remove-if-not '(lambda (x)(=(car x) 11))
lst_ml1)))
(setq pm11 (nth 0 coor1))
(setq pm12 (nth 1 coor1))
(setq alf1 (angle pm11 pm12))
;------------------------
(setq obj2 (car (entsel "\nВыберите воздуховод 2: ")))
(sssetfirst nil (ssadd obj2 obj_set))
(setq lst_ml2 (entget obj2))
(setq coor2 (mapcar 'cdr (vl-remove-if-not '(lambda (x)(=(car x) 11))
lst_ml2)))
(setq pm21 (nth 0 coor2))
(setq pm22 (nth 1 coor2))
(setq alf2 (angle pm21 pm22))
;------------------------------------
(setq dis1 (distance pm11 pm22))
(setq dis2 (distance pm12 pm21))
(if (< dis1 dis2)
(progn
(setq coor1a coor1)
(setq coor1 coor2)
(setq coor2 coor1a)
(setq pm11 (nth 0 coor1))
(setq pm12 (nth 1 coor1))
(setq alf1 (angle pm11 pm12))
(setq pm21 (nth 0 coor2))
(setq pm22 (nth 1 coor2))
(setq alf2 (angle pm21 pm22)
);end progn
); end if
;-------------------------------------------------------------
(setq alf (abs(- alf2 alf1)))
(if (> alf pi) (setq alf (- (* pi 2) alf))
(setq alfg (/ (* alf 180) pi))
(setq ugl (angle pm11 pm22))
(setq znak (sin (- ugl alf1)))
(if (< znak 0) (setq alfv alf1) (setq alfv (+ (- alf1 pi) alf)))
;-------------------------------------------------------------
(vl-load-com)
(setq vla_puch (vlax-ename->vla-object obj1))
(setq RazP (vlax-ldata-get vla_puch "Razmer"))
(setq n (vl-string-search "x" RazP))
(setq Raz (atoi (substr RazP 1 n)))
;-------------------------------------------------------------
(setq ra 150)
(setq pp (inters pm11 pm12 pm21 pm22 nil))
(setq R (/ Raz 2))
(setq AB (* (+ R ra) (/ (sin (/ alf 2)) (cos (/ alf 2)))))
(setq ot1 (polar pp pi AB))
(setq ot2 (polar ot1 (/ pi 2) R))
(setq ot3 (polar ot1 (/ pi 2) (- R)))
(setq ot (polar ot3 (/ pi 2) (- ra)))
(setq ot4 (polar ot (- (/ pi 2) alf) ra))
(setq ot5 (polar ot (- (/ pi 2) alf) (+ Raz ra)))
;-------------------------------------------------------------
(setq osm (getvar "osmode")); запоминаем привязки пользователя
(setvar "osmode" 0) ; отключаем привязки
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-activedocument acad_application))
(setq model_space (vla-get-modelspace active_document))
(setq bl_name (STRCAT "otv" RazP "_" (rtos alfg 2 0)));задаем имя блока
(if (not (tblsearch "block" bl_name))
(progn
(setq lay (getvar "CLAYER")) ; запоминаем текущий слой пользователя
(setvar "CLAYER" "0") ; делаем текущим слой "0"
(setq blk_otv (vla-add(vla-get-blocks active_document)
(vlax-3d-point pp) bl_name))
(vla-addline blk_otv (vlax-3d-point ot2) (vlax-3d-point ot3))
(vla-addline blk_otv (vlax-3d-point ot4) (vlax-3d-point ot5))
(vla-addarc blk_otv (vlax-3d-point ot) (+ Raz ra) (- (/ pi 2) alf)
(/ pi 2))
(vla-addarc blk_otv (vlax-3d-point ot) ra (- (/ pi 2) alf) (/ pi 2))
(setq d_o (vla-addarc blk_otv (vlax-3d-point ot) (+ R ra)
(- (/ pi 2) alf)(/ pi 2)))
(vlax-put-property d_o 'Color 3)
(setvar "CLAYER" lay) ; делаем текущим слой пользователя
); end progn
); end if
(setq vla_bl (vla-insertblock model_space (vlax-3d-point pp) bl_name
1. 1. 1. alfv))
(setvar "osmode" osm) ; возвращает привязки пользователя
;-------------------------------------------------------------
(setq np1 (polar pp alf1 (- AB)))
(setq np2 (polar pp alf2 AB))
(setq vla_obj1 (vlax-ename->vla-object obj1))
(setq coord (append pm11 np1))
(setq saf_ar (vlax-make-safearray vlax-vbDouble '(1 . 6)))
(setq var_coord (vlax-make-variant (vlax-safearray-fill saf_ar coord)))
(vlax-put-property vla_obj1 'coordinates var_coord)
(vla-update vla_obj1)
(setq vla_obj2 (vlax-ename->vla-object obj2))
(setq coord (append np2 pm22))
(setq var_coord (vlax-make-variant (vlax-safearray-fill saf_ar coord)))
(vlax-put-property vla_obj2 'coordinates var_coord)
(vla-update vla_obj2)
(sssetfirst nil nil)
); end_defun
На этом наш урок окончен. В нем мы продолжили процесс автоматизации проектирования систем вентиляции и создали программу, которая стоит отводы.
Если у Вас появились вопросы, задавайте их в комментариях.
Если Вы нашли что-то полезное на моем сайте не забудьте порекомендовать статью в социальных сетях.
Пишите в комментариях или мне на почту Ваши пожелания о том, какие статьи Вы хотели бы увидеть на моем сайте.
Хотите получать информацию о выходе новых статей. Оформляйте подписку.
До новых встреч.
«Автор: Михаил Орлов»