[dymas]

Доброе время суток!
Люди помогите потскажите как построить разветку перехода с прямоугольного сечения на круглое Очень надо !!!

[Visla]

Рекомендую воспользоваться Компасом 5.11 или выше. Я сталкивался с такой проблемкой именно через компас и решил. Можно получить чертеж детали и развертку.

[vk]

Можно Инвентором воспользоваться. Он умеет делать развертки.

[Fogel]

строй круг и свой прямоугольник, затем строй 4 треугольника между сторонами прямоугольника и квадрантами круга, оставшиеся части разбивай сеткой и разворачивай все это добро на плоскость. Муторно, но зато осуществимо в голом автокаде... А так задача решаема в Механиксе, ежелив есть Можешь скинуть - построим.

[dymas]

В Inventor 7 не получилось сделать такую развертку, а меканикса нету!
:cry: Fogel Если не сложно посмотри Буду очень признателен. :roll:
[ATTACH]1117535619.dwg[/ATTACH]

[Fogel]

Сделал автокаде без всякой механизации
[ATTACH]1117598070.dwg[/ATTACH]

[dymas]

Спасибо огромное Fogel !!!
Я понимаю что достал Вас, но не могли бы вы показать именно последовательность Ваших действий чтобы я сам мог по этому шаблону сделать еще развертки
Вопрос жизни и смерти !!!

[Fogel]

Достать меня трудно - у меня двести душ пользователей, посему сильно развит здоровый пофигизм
Я ж вроде бы расписал... С треугольниками ясно, кажется, с сеткой - ставь переменную surftab1 такой какое количество секторов в развертке ты хочешь (чем больше - тем лучше, но мороки больше), потом _rulesurf (поверхность соединения) соедини точку стоящую в вершине развертки с дугой окружности (предварительно отстриженой).
Осталось данную поверхность положить на плоскость. Взорви ее и разворачивай последовательно все элементы на ХУ. Вот в этом моменте и начинается извращение - способов много, но все одинаково заморочные, тыкать каждый элемент... В общем я себе быстренько накидал лиспик который и сделал все эти дела, но он такой сырой и глючный (сделал на векторной геометрии, в результате при вертикально стоящем элементе, вылетает по ошибке) что мне стыдно
Надо бы на будущее его доделать, чтоб всю сетку и самостоятельно...

Код:

[Выделить все]

(defun c:unrolling()
;(if(null geom3d) (ARXload "c:/Program Files/Acad2000/geom3d.arx"))
;функция предназначена для разворота объектов в пространстве до совпадения заданной
;плоскости с плоскостью XY
(SETQ OBJECT (SSGET))
;ввод координат опорных точек
	(SETQ A0 (getpoint "\nУкажите первую точку на объекте (первая точка поворота)"))
	(SETQ X0 (NTH 0 A0))	
	(SETQ Y0 (NTH 1 A0))
	(SETQ Z0 (NTH 2 A0))
	(SETQ A1 (getpoint "\nУкажите вторую точку на объекте (вторая точка поворота)"))
	(SETQ X1 (NTH 0 A1))	
	(SETQ Y1 (NTH 1 A1))
	(SETQ Z1 (NTH 2 A1))
	(SETQ A2 (getpoint "\nУкажите третью точку на объекте (по правилу буравчика)"))
	(SETQ X2 (NTH 0 A2))	
	(SETQ Y2 (NTH 1 A2))
	(SETQ Z2 (NTH 2 A2))
;отключение привязок и режимов слежения
	(setq oldosnap (getvar "OSMODE"))
	(setq oldortho (getvar "ORTHOMODE"))
	(setq oldcmd (getvar "CMDECHO"))
	(setvar "OSMODE" 0)
	(setvar "ORTHOMODE" 0)
	(setvar "CMDECHO" 0)
;вычисление угла плоскости заданной 3 точками и плоскости ХУ
		(SETQ A (- (* (- Y1 Y0) (- Z2 Z0)) (* (- Y2 Y0) (- Z1 Z0))))
		(SETQ B (- (* (- Z1 Z0) (- X2 X0)) (* (- X1 X0) (- Z2 Z0))))
		(SETQ C (- (* (- X1 X0) (- Y2 Y0)) (* (- X2 X0) (- Y1 Y0))))
		(SETQ D (+ (* X0 (- Y2 Y0) (- Z1 Z0)) (* Y0 (- X1 X0) (- Z2 Z0)) (* Z0 (- X2 X0) (- Y1 Y0))))
		(SETQ D (- D (* X0 (- Y1 Y0) (- Z2 Z0)) (* Y0 (- Z1 Z0) (- X2 X0)) (* Z0 (- X1 X0) (- Y2 Y0))))
	(IF (/= C 0) (SETQ UGOL (/ C (SQRT (+ (* A A) (* B B) (* C C))))))
	(IF (/= C 0) (SETQ UGOL (* -180  ( ATAN (/ (SQRT (- 1 (* UGOL UGOL))) UGOL)))))
	(IF (/= C 0) (SETQ UGOL ( / UGOL PI)) (SETQ UGOL 90))
	(IF (< Z2 Z0) (SETQ UGOL (- UGOL)))
	(SETQ FLAG (getstring "\nУголо поворота менее 90 градусов? (да/нет)"))
	(IF (/= FLAG "") (SETQ UGOL (- UGOL 180)))
;сообщает угол поворота
;	(alert (rtos UGOL 2 4))
;вычисление точек поворота на плоскости ХУ
	(IF (/= Z0 0) (SETQ AX (- X0 (/ (- X2 X0)(- (/ Z2 Z0) 1)))) (SETQ AX X0))
	(IF (/= Z0 0) (SETQ AY (- Y0 (/ (- Y2 Y0)(- (/ Z2 Z0) 1)))) (SETQ AY Y0))
	(SETQ A0 (LIST AX AY 0))
	(IF (/= Z1 0) (SETQ BX (- X1 (/ (- X2 X1)(- (/ Z2 Z1) 1)))) (SETQ BX X1))
	(IF (/= Z1 0) (SETQ BY (- Y1 (/ (- Y2 Y1)(- (/ Z2 Z1) 1)))) (SETQ BY Y1))
	(SETQ A1 (LIST BX BY 0))
;рисует ось поворота
;	(COMMAND "_line" A0 A1 "")
;разворачивает выборку относительно вычисленой оси
	(COMMAND "_rotate3d" OBJECT "" A0 A1 ugol)
;восстанавливает все переменные
	(setvar "OSMODE" oldosnap)
	(setvar "ORTHOMODE" oldortho)
	(setvar "CMDECHO" oldcmd)

	)

[Святослав]

Если надо, расчет есть в Екселе. Ничего мудреного.

[dymas]

Святослав

Скиньте на мыло ПЛИЗ!

[dymas]

Спасибо fogel за прогу, но к сожалению я профан в лиспе. Поэтому строил развертку постаринке. И вот ведь какая штука не совпал мой результат с Вашим. Длины участков совпали, а вот углы между ними нет. Может посмотрите где ошибка

[dymas]

чуть не забыл
[ATTACH]1117686774.dwg[/ATTACH]

[getr]

Пример построения есть в "Справочник по инженерно-строительному черчению"/Рускевич Н.Л.,Ткач Д.И.,Ткач М.Н. на стр.111.
На сайте Геннадия Поспелова http://www.cadhlp.kulichki.com есть сборник CADHELP 40105, в котором есть программа (transition) для построения разверток переходников.Выдает сразу готовый чертеж.Задаешь лиш толщину листа,длину переходника и размеры прямоугольного и круглого отверстий.
Послал по почте отдельные файлы программы,если умеешь(а если нет,-то кто нибудь поможет) создай свою кнопку для запуска проги.

[Fogel]

Сообщение от dymas И вот ведь какая штука не совпал мой результат с Вашим. Длины участков совпали, а вот углы между ними нет. Может посмотрите где ошибка

Проверил свое решение - сходится. Как я понимаю вы находили истинную длину отрезка сменой плоскостей. Что дальше - я не совсем понял. Откуда берутся углы между лучами? Просто паралельным переносом? Тогда не верно. Я обычно рисовал окружность с центром в начале прямой - радиус получается равным истинной длине, но лежит в горизонтальной плоскости. Перетаскиваете этот круг на развертку, рисуете второй (шаг между секторами) и один сектор готов Проверка простейшая: Если длина кривой равна четверти длины окружности, то все правильно...
Можем подробно обсудить все это в привате, дабы не утомлять уважаемую публику

[dymas]

Fogel
писал Вам в приват но вы не ответили пробую опять сюда
строю прямую провожу окружность с радиусум истинной длины переношу эту окружность на развертку (центр окружности в угол основания трегольника) а вот с чем эта окружность должна пересечься ума не преложу Подскажите мне темному Я уже весь измучился :cry:

[Fogel]

Извините, но дела насущные не позволили мне таскать нотебяку с собой. А окружность должна пересекаться со второй такой окружностью с радиусом равным шагу развертки (сторона противоположная вершине).

[dymas]

Fogel спасибо огромное !!! Вы очень помогли !!!