Измерение угла (Страница 1 из 2)
Друзья! Почему нет функции измерения углов (мне нужно измерить угол между двумя прямыми)? В худшем случае точка пересечения находится в далекой галлактике (угол между прямыми около 0град)
Расстояние -есть, площадь объем -тоже есть, а угла нет.
Мне говорят что можно угловым размером найти угол между двумя прямыми, но это я и сам знаю.
#2 Ответ от kma 10 июля 2008г. 10:19:38
Re: Измерение угла
при измерении угла двух прямых в ком. строке будет написан угол :), если ты это хотел узнать
#3 Ответ от rocker 10 июля 2008г. 10:27:51
Re: Измерение угла
> kma
Если я не ошибаюсь, то значение угла в ком. строке будет выведено после выбора опции Text.
#4 Ответ от kma 10 июля 2008г. 10:31:40
Re: Измерение угла
выделил одну прямую, потом вторую, и в ком. строке получишь текст с углом
#5 Ответ от rocker 10 июля 2008г. 10:42:41
Re: Измерение угла
> kma
Все правильно, спасибо, так в классическом ACAD-e.
#6 Ответ от Михайлов Юрий 10 июля 2008г. 11:27:08
Re: Измерение угла
Я конечно дико извиняюсь, но меня наверное не поняли. Я не понял что значит «при измерении угла двух прямых» где это найти.
2. непонятно как у тебя такое происходит «выделил одну прямую, потом вторую, и в ком. строке получишь текст с углом»
У меня 2007, может в нем этого нет?
3. Речь идет о панели INQUIRY.
#7 Ответ от Hrenn 10 июля 2008г. 11:33:19
Re: Измерение угла
на это требуется лиспик составить. всего-то и делов.
#8 Ответ от Михайлов Юрий 10 июля 2008г. 11:46:15
Re: Измерение угла
> Hrenn
Я не умею. Как это сделать?
Помогите кто может, кто может-помогите.
#9 Ответ от VVA 10 июля 2008г. 15:07:40
Re: Измерение угла
#10 Ответ от Atol 10 июля 2008г. 15:15:26
Re: Измерение угла
> Михайлов Юрий
А чем тебе команда простановки Углового размера не нравиться?
#11 Ответ от Михайлов Юрий 11 июля 2008г. 10:04:52
Re: Измерение угла
> Толстов Евгений (Atol)
У меня встречное предложение: Предлагаю разработчику AUTODESK убрать панель INQUIRY. 1.Расстояние измерять с помощью линейного размера.
2. Площадь, объем, вес измерять с помощью мат. и геом.формул и калькулятора.
3. Координаты точек — с помощью миллиметровой бумаги.
#12 Ответ от Михайлов Юрий 11 июля 2008г. 10:08:20
Re: Измерение угла
Коллеги! Я добрые люди написали код!Спасибо большое. Преклоняюсь перед Вашими знаниями.
Я так подумал, что если хорошо знать ЛИСП, то можно понасоздавать себе комманд очень полезных, например, построение касательных окружностей, дут ( с заданием нужного радиуса), прямых, да так чтобы и фантомы отрисовывало.
Я в Автокаде 2-й год, но все равно, сложную геометрию с сопряжениями, переходами рисую в КОМПАСЕ v8. А там функционал примитивов больше. Я до этого 7 лет в Компасе на заводе «зоря»-«машпроект» отработал.
С уважением, Михайлов Юра, 29 лет, ООО «Николаевкоммундорпоект» , г.Николаев, Украина.
#13 Ответ от LeonidSN 11 июля 2008г. 11:59:27
Re: Измерение угла
> Михайлов Юрий
Может не стоит так уж наезжать на AUTODESK по этому поводу?
Мне и моим коллегам, например, обычно хватает команды _dimangular для определения угла между двумя прямыми. Если очень хочется использовать панель INQUIRY, то там есть команда _list, которая дает угол для одной прямой. Измерь обе и посчитай разницу.
То что ты предлагаешь, есть улучшение или расширение возможностей AutoCAD, но не повод для его критики.
В работе AUTODESK есть немало реальных недостатков, найди их и выскажись.
#14 Ответ от Vova 11 июля 2008г. 18:23:54
Re: Измерение угла
при измерении угла двух прямых в ком. строке будет написан угол :), если ты это хотел узнать
выделил одну прямую, потом вторую, и в ком. строке получишь текст с углом
Поясни, как это делается
LeonidSN пишет:
. _dimangular для определения угла между двумя прямыми. Если очень хочется использовать панель INQUIRY, то там есть команда _list, которая дает угол для одной прямой. Измерь обе и посчитай разницу
Не надо забывать, что по умолчания команда считает угол с точностьп до целого градуса. (тогда как линейный размер считает до 4-го знака). Мы на этом чуть не поимели большие убытки, так как исполнитель этого не знал. По команде List. Угол зависит от направления, в котором были сделаны линии. Так что этот способ без математики не катит.
Вот этим я пользуюсь много лет
; File: ABL.LSP, Angle Between Two Lines (defun C:ABL () (setvar "cmdecho" 0) (defun *error* (msg) (princ "error : ") (princ msg) (terpri) ) (setq L1 (entsel "\nFor Angle Between Lines:-- Select First Line: ") LW1 (entget (car L1)) P11 (cdr (assoc 10 LW1)) P21 (cdr (assoc 11 LW1)) W1 (angle P11 P21) L2 (entsel "\nSelect Second Line: ") LW2 (entget (car L2)) P12 (cdr (assoc 10 LW2)) P22 (cdr (assoc 11 LW2)) W2 (angle P12 P22) W (abs (- W1 W2))) (if (> W pi)(setq W (- W pi))) (setq W (* W (/ 180 pi)) WC (- 180 W) A (min W WC) C (max W WC)) (prompt " Angle is = ") (prompt (rtos A 2 4)) (prompt " ** 180 - Angle is = ") (prompt (rtos C 2 4)) (princ) )