Проникающая гидроизоляция бетона
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Построение касательной к двум окружностям

Построение касательной к двум окружностям

Ответ
Поиск в этой теме
Непрочитано 22.08.2006, 04:39
Построение касательной к двум окружностям
Никита В.
 
CAD Operator
 
Samara-Gorodok
Регистрация: 01.11.2005
Сообщений: 389

Задача в следующем: имеется 2 окружности разного диаметра, произвольно расположенные в пространстве, надо провести линию являющуюся касательной к обеим окружностям.

Метод последовательных приближений не предлагать.

П.С. Задача должна быть решена средствами акада в т.ч. и посредством лиспа.
__________________
АвтоКАД это не только электронный кульман,
Но и великий ГЕМОР
Просмотров: 52962
 
Непрочитано 16.11.2006, 16:36
#41
PSW


 
Регистрация: 12.01.2006
Донецк
Сообщений: 30


;*********************************************************
; Касательная к 2 окружностям
;*********************************************************
(defun C:PSW (/ A A1 A2 A200 B C OB R1 R2 T1 T2 T3 TIP U U1 UA)
;*********************************************************
(prompt "\nКасательная к 2-м окружностям...")
(setq A1 (car(entsel "\nВыбери 1-ую окружность: ")))
(setq A2 (entget A1))
(setq TIP (cdr (assoc 0 A2)))
(setq A200 NIL)
(if (= TIP "CIRCLE")
(progn
(setq T1 (cdr (assoc 10 A2)))
(setq R1 (cdr (assoc 40 A2)))
) ;progn
) ;if
;*********************************************************
(setq A1 (car(entsel "\nВыбери 2-ую окружность: ")))
(setq A2 (entget A1))
(setq TIP (cdr (assoc 0 A2)))
(if (= TIP "CIRCLE")
(progn
(setq T2 (cdr (assoc 10 A2)))
(setq R2 (cdr (assoc 40 A2)))
) ;progn
) ;if
;*********************************************************
(If (> R1 R2)
(progn
(setq TT T1)
(setq RR R1)

(setq T1 T2)
(setq R1 R2)

(setq T2 TT)
(setq R2 RR)
)
)
;*********************************************************
(setq c (distance T1 T2))
(setq b (- R2 R1))
(setq a (sqrt (- (* c c) (* b b))))
;*********************************************************
(setq U (angle T1 T2))
(setq uA (atan b a))

(setq T3 (polar T1 (+ U uA) a))

(command "LINE" T1 T3 "")
(setq Ob (entlast))

(setq U1 (angle T2 T3))
(command "MOVE" Ob "" T3 (polar T3 U1 R1))
;*********************************************************
(SetVar "FILEDIA" 1) (princ)
PSW вне форума  
 
Непрочитано 17.11.2006, 06:35 Re: Построение касательной к двум окружностям
#42
Serge Krasnikov

Конструктор, инженер-механик
 
Регистрация: 03.10.2003
Новосибирск
Сообщений: 5,790


Цитата:
Сообщение от Pool
НУ НЕТУ НИКАКОЙ ВТОРОЙ ОКРУЖНОСТИ И ВТОРОЙ ТОЧКИ.

ЕСТЬ ТОЛЬКО ОДНА ОКРУЖНОСТЬ И ОДНА ТОЧКА НА НЕЙ.
Во-о, а здесь вопрос первоначально задан "Построение касательной к двум окружностям"
Касательную в точке на кривой, стандартными можно построить токо xline (IMHO) c дополнительными построениями: сначало xline с перпендикуляром к кривой, а дальше перепендикуляр к этой бесконечной. Настройках нужно включить osnap, пересечение

Цитата:
КАК ИМЕННО В ЭТОЙ ТОЧКЕ (ИЗ ЭТОЙ ТОЧКИ) ПОСТРОИТЬ КАСАТЕЛЬНУЮ, НЕ СТРОЯ РАДИУСНУЮ ЛИНИЮ.
У меня _xline + tan к окружности и линия (любая), и тем более "обкатка" не наблюдаются. Это глюк 2002?

---skip---

Цитата:
Сообщение от Serge Krasnikov
Цитата:
Сообщение от Pool писал
1. Окружность.
Построение касательной из произвольной точки на окружности. Без построения радиальной линии.
Эта возможность была в акадах более старшего поколения. 2.62 однако не помню, а вот в 10 точно была
А сегодня? Начиная с 2002.
.
.
кАнЭчно есть
Serge Krasnikov вне форума  
 
Непрочитано 17.11.2006, 08:27
#43
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,064


Вот, что интересно: заглянул вчера на сайт cadalog.com . Ихний народ со сих пор пишет программы для построения касательных к двум окружностям и они, эти программы, пользуются бешеным спросом и успехом.
Хмурый вне форума  
 
Непрочитано 17.11.2006, 12:19
#44
Syrex


 
Регистрация: 16.05.2006
Сообщений: 31


PSW Спасибо за программу, буду пробывать и изучать
Syrex вне форума  
 
Непрочитано 14.09.2019, 18:35
#45
MaksN


 
Регистрация: 14.09.2019
Сообщений: 7


Чтобы провести касательную к двум произвольно расположенным на плоскости окружностям разного (одинакового) диаметра необходимо:
1. Из центра большей окружности построить окружность диаметром равным:
а) разности диаметров данных окружностей - если нужно построить касательную с одной стороны двух окружностей;
б) сумме диаметров данных окружностей - если нужно построить касательную с разных сторон данных окружностей.
2. Из центра меньшей окружности провести касательную линию к построенной окружности (начальная точка линии будет центр меньшей окружности, вторая - касательная к построенной окружности).
3. Опустить перпендикуляр от одной из вершин линии до одной из данных окружностей (длина которой будет равна радиусу меньшей окружности) и перенести касательную от одной вершины перпендикуляра к другой.

То же самое написал nmr, но только для касательной с одной стороны обеих окружностей.
MaksN вне форума  
 
Непрочитано 14.09.2019, 21:45
#46
Fogel

люблю мастерить
 
Регистрация: 21.01.2005
Челябинск
Сообщений: 7,598


В общем случае есть четыре варианта построений, как выбирать будем?
Чем не устраивает штатная привязка "касательная" что так тянет самому посчитать? (Но да, понятное желание)
Fogel вне форума  
 
Непрочитано 15.09.2019, 09:57
#47
Дмитррр

НЛО
 
Регистрация: 09.07.2007
Тутошние мы.
Сообщений: 3,136


Цитата:
Сообщение от MaksN Посмотреть сообщение
Чтобы провести ...
13 лет думал?
__________________
Я ведь - огонь, и холод и... обман.
Я - радугой пронизанный... туман
Дмитррр вне форума  
 
Непрочитано 16.09.2019, 07:05
#48
MaksN


 
Регистрация: 14.09.2019
Сообщений: 7


Цитата:
Сообщение от Fogel Посмотреть сообщение
Чем не устраивает штатная привязка "касательная" что так тянет самому посчитать? (Но да, понятное желание)
Штатной привязкой "касательная" можно получить весьма приближенную касательную линию к двум окружностям, если от одной к другой окружности строить касательную: после 5-го, 6-го раза длина касательных будет одинакова, начиная с 17-го, 18-го раза и координаты вершин начнут совпадать.

Цитата:
Сообщение от Дмитррр Посмотреть сообщение
13 лет думал?
Только недавно столкнулся с такой задачей. Прочел то что nmr написал и решил немного упрощенно написать то же самое и добавить для касательных с разных сторон окружностей.
MaksN вне форума  
 
Непрочитано 16.09.2019, 07:27
#49
No M.P.

Инженер-конструктор
 
Регистрация: 24.08.2007
Волгоград
Сообщений: 763
<phrase 1=


Как вариант - параметрические зависимости в autocad.
__________________
Никогда не стоит недооценивать предсказуемость глупости
No M.P. вне форума  
 
Непрочитано 16.09.2019, 07:39
#50
MaksN


 
Регистрация: 14.09.2019
Сообщений: 7


Цитата:
Сообщение от No M.P. Посмотреть сообщение
Как вариант - параметрические зависимости в autocad.
Параметрическими зависимостями не получается. Двигает с места окружность.

----- добавлено через ~47 мин. -----
В AutoCAD-Mechanical есть команда для построения касательной к двум окружностям - Построение вспомогательной линии по касательной к двум окружностям
В обычном AutoCAD этой команды нет.
MaksN вне форума  
 
Непрочитано 16.09.2019, 08:40
#51
No M.P.

Инженер-конструктор
 
Регистрация: 24.08.2007
Волгоград
Сообщений: 763
<phrase 1=


Цитата:
Сообщение от MaksN Посмотреть сообщение
Параметрическими зависимостями не получается. Двигает с места окружность.
Так верните окружности на место. Касательная, прилипшая к окружностям будет менять угол.
__________________
Никогда не стоит недооценивать предсказуемость глупости
No M.P. вне форума  
 
Непрочитано 16.09.2019, 09:06
#52
MaksN


 
Регистрация: 14.09.2019
Сообщений: 7


Цитата:
Сообщение от No M.P. Посмотреть сообщение
Так верните окружности на место. Касательная, прилипшая к окружностям будет менять угол.
Если вернуть окружность на место, то меняется местоположение второй окружности.
MaksN вне форума  
 
Непрочитано 16.09.2019, 09:14
#53
koMon


 
Регистрация: 26.09.2017
Сообщений: 407


Цитата:
Сообщение от MaksN Посмотреть сообщение
Двигает с места окружность.
есть ограничитель Fix, который может окружность(и) зафиксировать от перемещения
koMon вне форума  
 
Непрочитано 16.09.2019, 09:23
#54
MaksN


 
Регистрация: 14.09.2019
Сообщений: 7


Цитата:
Сообщение от koMon Посмотреть сообщение
есть ограничитель Fix, который может окружность(и) зафиксировать от перемещения
тогда меняется радиус окружности
MaksN вне форума  
 
Непрочитано 16.09.2019, 09:30
#55
No M.P.

Инженер-конструктор
 
Регистрация: 24.08.2007
Волгоград
Сообщений: 763
<phrase 1=


Дотяните ручками (grips) до исходного значения. Касательная, прилипшая к окружностям будет менять угол .
__________________
Никогда не стоит недооценивать предсказуемость глупости
No M.P. вне форума  
 
Непрочитано 16.09.2019, 10:01
#56
koMon


 
Регистрация: 26.09.2017
Сообщений: 407


Цитата:
Сообщение от MaksN Посмотреть сообщение
тогда меняется радиус окружности
на радиус также можно поставить параметрический ограничитель
koMon вне форума  
 
Непрочитано 16.09.2019, 11:19
#57
gumel


 
Регистрация: 20.04.2011
Сообщений: 214


Цитата:
Сообщение от MaksN Посмотреть сообщение
Штатной привязкой "касательная" можно получить весьма приближенную касательную линию к двум окружностям, если от одной к другой окружности строить касательную: после 5-го, 6-го раза длина касательных будет одинакова, начиная с 17-го, 18-го раза и координаты вершин начнут совпадать.
Да ладно! Как так то?
Автокад, используя штатные привязки, строит эту касательную весьма точно! Откуда у вас столько итераций?
gumel вне форума  
 
Непрочитано 16.09.2019, 12:18
#58
valerik88


 
Регистрация: 02.07.2016
Сообщений: 195


Касательные так можно построить
Миниатюры
Нажмите на изображение для увеличения
Название: 1.gif
Просмотров: 27
Размер:	1.66 Мб
ID:	217904  
valerik88 вне форума  
 
Непрочитано 16.09.2019, 12:26
| 1 #59
gumel


 
Регистрация: 20.04.2011
Сообщений: 214


Цитата:
Сообщение от valerik88 Посмотреть сообщение
Касательные так можно построить
это не касательные!..
gumel вне форума  
 
Непрочитано 16.09.2019, 12:31
| 1 #60
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,400
<phrase 1=


Цитата:
Сообщение от valerik88 Посмотреть сообщение
Касательные так можно построить
это не касательные
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Построение касательной к двум окружностям

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск