Вписать в прямоугольник
Есть ли в автокаде комманда позволяющая вписать выбранный примитив в прямоугольник ?
Заранее спасибо.
#2 Ответ от Helga 16 декабря 2006г. 14:15:21
Re: Вписать в прямоугольник
Modify —> 3D operation —> Align
#3 Ответ от Владимир Громов 16 декабря 2006г. 15:27:49
Re: Вписать в прямоугольник
> Helga
Можно ли объект «_point» («точка») вписать в прямоугольник с помощью команды «_align» («выровнять»)?
#4 Ответ от Helga 16 декабря 2006г. 16:19:29
Re: Вписать в прямоугольник
> Владимир Громов
Нет, но можно очень постараться и: задать PDMODE <> 0 или 1; поставить точку; точку сохранить в блок; при вставке блока поставить птичку «Указать на экране» в разделе Масштаб; вырубить все привязки и полдня тулить эту точку в прямоугольник; еще полдня потратить на размышления типа: «А зачем мне это надо было?». Может тему в раздел Юмор перенести или тут оставим? Мож еще кто пару вариантов подкинет 🙂
#5 Ответ от Владимир Громов 16 декабря 2006г. 21:44:40
Re: Вписать в прямоугольник
Самое простое, наверное, вписать в прямоугольник отрезок.
#6 Ответ от ttt 17 декабря 2006г. 14:55:10
Re: Вписать в прямоугольник
> [Re:] supremum
Если надо вписать что-нибудь во что-нибудь, то самая «прозрачная» для мозгов команда — Skale с опцией Reference.
А команда Align — это для изощрённых (если не извращенных) мозгов, испорченных 3D-графикой. Раньше она лежала рядом с прямоугольниками, а в последней версии Автокада команду Align перенесли к параллепипедам, как правильно заметила Helga. Для работы с этой командой надо уметь в воображении вращать тела. Например, мысленно раздеть человека (это самое простое) или повернуть в воображении куб, чтобы его диагональ спроектировалась в точку, а контур спроектировался . В какую фигуру? 🙂 Если угадал, то можешь переходить к Align, извращенец.
#7 Ответ от ttt 17 декабря 2006г. 15:05:16
Re: Вписать в прямоугольник
Вообразил, что пишу Sсale, а написал Skale.
#8 Ответ от Денис Флюстиков 17 декабря 2006г. 15:34:07
Re: Вписать в прямоугольник
Параллелограмм можно вписать в параллелограмм с другими размерами (в прямоугольник, как частный случай) с помощью утилитки «Align_Den»:
http://dwg.ru/dnl/538
#9 Ответ от Helga 17 декабря 2006г. 21:32:55
Re: Вписать в прямоугольник
> ttt
Здесь где-то было написано про вид 3D и пространственное воображение? Для того чтобы привязать начальные позиции двух точек к их конечным позициям абсолютно не нужны мозги убитые 3D графикой, тем более что в 2D команда Align не просто выравнивает, но еще и масштабирует и вращает, т.е. заменяет собой сразу три команды: Move, Rotate, Scale причем две последние с использованием прараметра Reference. Вы действительно считаете что использвание этих трех команд так прозрачно?
#10 Ответ от ttt 18 декабря 2006г. 00:09:03
Re: Вписать в прямоугольник
> [Re:] Helga
Ну, что Вы, Helga! Для меня прозрачно, если не более одной команды за раз. Да и то я люблю, кода для «прозрачности» в команде есть предварительный просмотр конечного результата. Тогда мои мозги не мешают рукам, и даже могут отвлечься на воображаемые манипуляции с вышеупомянутым кубом и др. телами 🙂
#11 Ответ от supremum 20 декабря 2006г. 11:26:12
Re: Вписать в прямоугольник
Чего то мои неизвращенные мозги не догоняют.
У меня есть, к примеру, треугольник. Мне надо описать его прямоугольником. Причем тут команда МАССШТАБ .
#12 Ответ от Владимир Громов 20 декабря 2006г. 11:42:49
Re: Вписать в прямоугольник
> supremum
Да, и как вписать в прямоугольник круг? Добиться только касания к двум или трем сторонам?
#13 Ответ от kpblc 20 декабря 2006г. 11:50:51
Re: Вписать в прямоугольник
> supremum
Чего-то странно. В первом посте надо было вписать, сейчас — описать. Определенности хоцца однако 🙂 Для описания плоского примитива можно попробовать такое:
(defun c:around (/ adoc ent minp maxp) (vl-load-com) (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))) ) ;_ end of vla-StartUndoMark (if (and (setq ent (car (entsel))) (setq ent (vlax-ename->vla-object ent)) ) ;_ end of and (vl-catch-all-apply '(lambda () (vla-getboundingbox ent 'minp 'maxp) (command "_.rectang" (vlax-safearray->list minp) (vlax-safearray->list maxp) ) ;_ end of command ) ;_ end of lambda ) ;_ end of vl-catch-all-apply ) ;_ end of if (vla-endundomark adoc) (princ) ) ;_ end of defun
100% работоспособность не проверял. И вот еще, для нескольких примитивов:
(defun c:around (/ adoc selset lst-getboundingbox pt) (defun lst-getboundingbox (lst) ;; Получение габаритного контейнера списка vla-указателей на объекты ;; Автор: Евгений Елпанов ;; https://www.caduser.ru/forum/topic22552.html (if (and lst (listp lst)) ((lambda (x) (list (apply (function mapcar) (cons (function min) (mapcar (function car) x)) ) ;_ end of apply (apply (function mapcar) (cons (function max) (mapcar (function cadr) x)) ) ;_ end of apply ) ;_ end of list ) ;_ end of lambda (vl-remove-if (function null) (mapcar (function (lambda (x / minp maxp) (if (not (vl-catch-all-error-p (vl-catch-all-apply (function vla-getboundingbox) (list x 'minp 'maxp) ) ;_ end of vl-catch-all-apply ) ;_ end of vl-catch-all-error-p ) ;_ end of not (list (vlax-safearray->list minp) (vlax-safearray->list maxp) ) ;_ end of list ) ;_ end of if ) ;_ end of lambda ) ;_ end of function lst ) ;_ end of mapcar ) ;_ end of vl-remove-if ) ) ;_ end of if ) ;_ end of defun (vl-load-com) (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))) ) ;_ end of vla-startundomark (if (and (setq selset (ssget "_:L")) (setq pt (lst-getboundingbox (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) ) ;_ end of mapcar ) ;_ end of lst-getboundingbox ) ;_ end of setq ) ;_ end of and (command "_.rectang" (car pt) (cadr pt)) ) ;_ end of if (vla-endundomark adoc) (princ) ) ;_ end of defun
Построение чертежа «Квадрат, треугольник, круг» в масштабе в программе AutoCAD
Тема: Построение чертежа «Квадрат, треугольник, круг» в масштабе.
Цель работы: Научиться чертить объекты и переводить их в другие масштабы.
1. Изучите методические рекомендации по проведению лабораторной работы.
2. Построить чертеж «квадрат, треугольник, окружность», перевести его в масштаб 10 и нанести размеры.
3. Подготовьте форму отчета.
Оборудование и инструменты:
Методика выполнения работы.
1. Открыть форматку А4.
2. Начертить квадрат со стороной 4.472.
3. Выбираем команду редактирования «Масштаб» => выделяем рамкой мышкой квадрат => Enter => и выбираем масштаб 10.
4. Формат => размерные стили => редактировать => масштаб измерений ставим 0.1 => точность 0.000 => ОК => закрыть => установить.
5. Включив привязку «Середина», => строим отрезок из нижнего левого угла квадрата до середины верхней стороны квадрата => а затем до нижнего правого угла квадрата.
6. Строим отрезок из нижнего левого угла квадрата до середины правой стороны квадрата.
7. Строим окружность => рисование => круг => 3 точки касания.
8. Наносим размеры.
Наименование и цель практической работы.
Оборудование и инструменты.
Как вписать прямоугольник в прямоугольник
Интересно было бы узнать, что это за практическая необходимость. Обычно размеры чего-нибудь стандартизованы неким рядом чисел. На практике можно было в екселе за полдня составить таблички всех возможных вариантов и не париться с корявыми формулами. Тем более 4 решения формулы по сути это одно и то же решение (при такой то ширине — такая то высота).
Регистрация: 31.03.2012
Сообщений: 899
Mauriat
Дык вон у меня уже и графики есть для любых А и В, дальше решил не копать.
Получается вы правы.
BIM, С#, AutoCAD, LISP
Регистрация: 15.03.2006
Сообщений: 657
Практическая необходимость есть для расстановки диагональных элементов.
Только ради этого лезть в эксель или маткад не вижу необходимости, сейчас делаю методом подгонки по чертежу Ильнура в 112-м посте.
Доли миллиметра особого значения не имеют.
__________________
«Молодой человек, Вы не представляете всей широты поставленной перед Вами задачи.» © Панкратова Г.Е.
Регистрация: 27.04.2008
Сообщений: 3,285
Сообщение от xmih
Интересно было бы узнать, что это за практическая необходимость. Обычно размеры чего-нибудь стандартизованы неким рядом чисел. На практике можно было в екселе за полдня составить таблички всех возможных вариантов и не париться с корявыми формулами. Тем более 4 решения формулы по сути это одно и то же решение (при такой то ширине — такая то высота).
Да, принимая А=1,( В не более, например 5) можно построить екселе трехмерный график существования С и как следствие Д(большей стороны вписанного прямоугольника).
__________________
С уважением sbi
Последний раз редактировалось sbi, 05.04.2012 в 10:56 .
Регистрация: 31.03.2012
Сообщений: 899
А еще можно построить вечный двигатель.
Регистрация: 27.04.2008
Сообщений: 3,285
Сообщение от John_Galt
А еще можно построить вечный двигатель.
Вам и карты в руки, красивая поверхность решения получится.
__________________
С уважением sbi
Сообщений: n/a
Сообщение от sbi
красивая поверхность решения получится
Можно теперь взять треугольник и вписать в него другой треугольник. и полюбоваться на красоту
Регистрация: 31.03.2012
Сообщений: 899
VVapan4ik
НЕЕЕ эт не интересно уже.
Надо что нибудь с Геометрией Лобачевского замутить, или в 4-х мерном пространстве.
Регистрация: 12.03.2011
Сообщений: 770
Из последних 13 сообщений можно сделать вывод, что тема себя исчерпала?
ЕСКД, ПОС, ППР, ПОД, №87
Регистрация: 19.01.2012
Сообщений: 38
Сообщение от kha
Только ради этого лезть в эксель или маткад не вижу необходимости, сейчас делаю методом подгонки по чертежу Ильнура в 112-м посте.
Доли миллиметра особого значения не имеют.
А почему бы не воспользоваться решением AlexV пост #71?
Там вроде параметрированно уже.
Зачем подгонять, если есть абсолютно точное решение?
Регистрация: 23.09.2014
Сообщений: 1
Здравствуйте.
По производственной необходимости возникла такая задача. думал что-то подобное сделать в Ёкселе. но математику учил сто лет назад. Формулы сложные.
Но давно работаю в акаде. Правда параметризацию освоил буквально на днях.
А нужно мне это вот для чего:
Представьте, что вам нужно сварить из труб квадратного или прямоугольного сечения раму. Вот рама сварена. Теперь надо вварить по диагонали трубу для жесткости. а трубу удобнее резать под прямым углом.
И так, что мы имеем:
— внутренний размер рамы (ширина, высота)
-ширину трубы, которую надо вварить. При чём труба отрезана под 90 градусов с каждой стороны
Необходимо определить только ДЛИНУ диагональной трубы так, чтобы она четко вписалась своими углами внутрь рамы.
И вот что у меня получилось.
ИТАК описание к файлу.
1. Получилось сделать только четверть прямоугольника. но поскольку объект симметричен, то этого хватит. Ибо центры основного и вписанного прямоугольника совпадают.
2. Вносимые параметры: половина ширины вписываемой трубы, половина внутренней ширины рамы, половина внутренней высоты рамы.
3. Получаем половину длины вписываемой трубы (берём с чертежа) и умножаем на 2.
В ИТОГЕ: необходимая длина диагональной трубы.
| DWG 2010 | Прям.dwg (66.6 Кб, 1298 просмотров) |
КРУГ (команда)
найти
Отображаются следующие запросы.
Центральная точка
Построение окружности по центральной точке и значению радиуса или диаметра.
Следует ввести значение или указать точку.
Следует ввести значение или указать вторую точку.
3Т (Три точки)
Построение окружности по трем принадлежащим ей точкам.
3 точки касания
Создание окружности, касающейся трех объектов.
2Т (Две точки)
Построение окружности по двум конечным точкам ее диаметра.
ККР (Касательная, Касательная, Радиус)
Построение окружности заданного радиуса касательно к двум объектам.
Иногда по условиям, заданным в команде, можно построить несколько окружностей. Программа рисует круг указанного радиуса, точки касания которого расположены ближе всего к точкам выбора.
Понятия, связанные с данным
- Окружности
- Криволинейные объекты