VetCAD

Программа для создания круглых или прямоугольных труб в виде 3Dsolid на имеющейся траектории

    0 оценок

©tarbv (S. Peterburg, Petrobalt)

размещено: 21 Марта 2004
Сначала вы должны проложить ось трубы в виде 3dpoly, взорвать ее (или нарисовать ось линиями)
и сделать получившимся кускам fillet радиусом, равным радиусу погиба трубы.

Загрузите файл pipe&vent.lsp (Tools-autolisp-load или можно просто бросить его из проводника на чертеж).
Дайте команду po или vs и задайте параметры трубы или вентиляции (как-бы прямоугольной трубы) соответстветственно.
Чтобы одеть трубу давайте команду qq для круглых труб или vv для труб вентиляции.
Можно одевать отдельные части, а можно весь трубопровод сразу.
Так как прямоугольные трубы несимметричны, возможно, погибы вентиляции будут отрисовываться
не в той плоскости что нужно, тогда введите 1 в ответ на запрос программы, погиб отрисуется заново в другой плоскости.

Чтобы поставить на круглую трубу пару плоских фланцев, дайте команду hh и укажите любую точку на оси трубы. Программа спросит от какого конца трубы вы хотите откладывать расстояние до зеркала
фланца. Укажите конец трубы или зеркало другого фланца, если такой уже есть. Затем введите величину этого расстояния (если вы хотите поставить один, т.е. концевой фланец, укажите здесь ноль).
Программа нарисует пару фланцев или один концевой соответственно.
Также она подрежет концы (конец для одного фланца) трубы под сварку на глубину, равную толщине стенки.
Чтобы было легче (например для разбивки на фланцы длинной трубы) привязываться к зеркалам
фланцев, программа создает дополнительную окружность в плоскости зеркала одного из фланцев.
Чтобы поставить концевой фланец на колено, нарисуйте сначала прямую перпендикулярно плоскости
сечения колена, затем вставьте пару фланцев, указав расстояние на которое нужно выдвинуть
зеркало фланца от плоскости сечения колена, удалите лишний фланец.
Размеры фланцев будут соответствовать текущим параметрам трубы, заданным ранее командой "po".
В данной программе заданы размеры под стандарт DIN, чтобы это изменить или добавить еще фланцев
внесите изменения в текст программы в указанном в примечаниях к ней месте.
Чтобы восстановить перпендикуляр к произвольно ориентированному концу трубы
используйте команду "pip".
Чтобы приделать колено к одному из концов трубы, используйте команду "ee".

Программа недоработана, возможны мелкие глюки.

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 1-8 из 8
Aleksandr, cassoon@one.lv , 29 апреля 2004 в 23:48
#1
Ochen mne pomoglo, v neskolkih projektas.
Bilo bi neploho echo zadavat i otrisovivat kreplenija s zadannim intervalom.
Pavel , 21 февраля 2005 в 19:19
#2
А гед файл-то? Если его удалили, то и ссылку надо убрать!
Самвел , 02 июля 2005 в 16:28
#3
програмка хорошая. только есть недостатки. 1-команда "hh" не работает. 2-колена в плане не чертит, приходится переключаться в вид "назад". 3-отсутсвуе колена для квадратных труб. а в целом очень не плохо.
sip , 03 ноября 2005 в 09:15
#4
ни фига не работает
SyntheticMan , 29 ноября 2005 в 10:48
#5
Потрясающая штука! Рулит во всю!
Бывают конечно глюки, но это мелочь.
Автору памятник!
Александр .Москва. , 05 января 2006 в 08:37
#6
Вопрос к авторам. Скажите эта программа работает только из под английского АвтоКада?. Уменя русский и при вводе команды на преобразование линий в трубу идут сообщения "неизвестная команда". Хотя до этого все идет по Вашей инструкции.
Михаил gmw , 30 августа 2010 в 13:17
#7
Согласен с SyntheticMan - Автору -памятник. Для простых
трубопроводов это отличная замена платных программ. На трехмерную ось "одел" трубы, фланци, отводы. Мелкие глюки легко стираем... Все выглядит на 5 из 5 возможных. Спасибо!
dsemn , 03 ноября 2011 в 12:49
#8
ДоБрый день. у меня в акаде 2010 русская версия не хочет работать. Где-то в интернете я прочитал, что чтоб перевести лисп из англ версии в русскую, необходимо перед каждой командой поставить значок "_" Я это сделал. Тепрь единственное, что не нравится автокаду это строка программы "(SETQ MIDPT (MID_POINT END_PT_1 END_PT_2))"
На это он мне пишет "ОШИБКА: NO FUNCTION DEFINITION: mid_point"

что делать!?
zip

0.1 МБ

СКАЧАТЬ