[МишаИнженер]

Для вычерчивания равносторонних многоугольников в AutoCAD с помощью команды МН-УГОЛ надо знать не длину стороны, а радиус описанной или вписанной окружности многоугольника. Требуется начертить треугольный знак (равносторонний треугольник) с длиной стороны 1200мм. Естественно никакого радиуса никакой окружности неизвестно. Какими командами AutoCAD и в какой последовательности можно начертить такой треугольник?

[Нубий-IV]

У МН-УГОЛ есть параметр СТОРОНА, надо его только вовремя заметить и не пропустить при вводе.
Вообще у многих команд можно найти неожиданные полезные параметры, если внимательно следить за комстрокой.

[МишаИнженер]

Спасибо большое! Это решает все проблемы!

[Картошка]

Чертите линию нужной длины, дважды копируете и поворачиваете на 60 градусов. Готов треугольник.

[AMDen]

2 окружности с радиусом 1200.

[Dinoxromniy]

Чертите любой равносторонний треугольник, запускаете команду масштабировать, в ней выбираете reference, отмечаете мышкой существующую сторону по двум точкам и вбиваете 1200, треугольник отмасштабируется так, что сторона станет 1200.

[Shar]

Картошка....спасибо, дельный совет

[Бим]

Это штатные возможности автокада. В посте №1 приведен.
"С помощью команды Polygon (Полигон) в AutoCAD можно быстро вычерчивать правильные многоугольники, то есть многоугольники, у которых все стороны и углы равны. Причем построение может производиться одним из следующих способов:
1. По длине одной стороны (Edge) и ее положению.
2. По центру многоугольника и радиусу вписанной (Circumscribed) окружности.
3. По центру многоугольника и радиусу описанной (Inscribed) окружности."

[koMon]

Сообщение от МишаИнженер Как начертить равнобедренный треугольник в AutoCAD?

используя параметрические зависимости на трёхвершинной полилинии.

[SetQ]

Для вписанноего треугольника ввести радиус (/ 1200 (sqrt 3))

[МишаИнженер]

koMon, Все очень запутано. Ничего не понятно. Можно поподробнее пожалуйста!

[koMon]

МишаИнженер,
1. рисуешь произвольный треугольник замкнутой полилинией.
2. идёшь в параметрические зависимости и параметрически образмериваешь любую сторону треугольника параллельным размером (команда "_DcAligned").
3. связываешь равенством сторону из п.2 и любую другую (команда "_GcEqual").
4. образмериваешь третью сторону треугольника параллельным размером как в п.2.
5. выставляешь размер 1200 на сторону из п.2 (двойной клик по параллельному размеру например).
6. выставляешь нужный размер на третью сторону.

[zenon]

1 - заходим в настройки режима рисования, вкладка "Отслеживание"
2 - галочку в чекбокс "Дополнительные узлы" и добавить угол 60гр
3 - включаем полярное отслеживание через настроенный угол
Чертим равносторонний треугольник - длина стороны - направление по отслеживанию + длина стороны - замкнуть

[sleep]

Сообщение от zenon угол 60гр

60 градусов - это для равностороннего. Хотя непонятно, какой нужен тс) У равнобедренного углы любые. Равнобедренный 2-мя окружностями проще всего.

[Бим]

Сообщение от sleep Хотя непонятно, какой нужен тс)

Вроде равносторонний. Непонятно, почему не применить известные из школы построения, хоть засечка радиусами третьей вершины от одной стороны. Ну если лениво накиданные здесь способы применять.

[Ingpro]

А если лиспом?

Код:

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

 (defun c:polygon_3 (/ e d o l gr)
  (setq e (entlast))
  (initget 6)
  (if (and (setq d (getdist "\nSpecify diameter of polygon: ")) ; для стороны 1200 (например)  указать диаметр 692.820323
           (not (command "_.polygon" 3 "_non" '(0 0 0) "_c" (/ d 2.)))
           (not (equal e (setq o (entlast))))
           (setq o (vlax-ename->vla-object o))
           (setq l (list (vlax-3d-point (trans '(0 0 0) 1 0))))
      )
    (while (eq 5 (car (setq gr (grread T 15 0))))
      (vla-move o (car l) (car (setq l (cons (vlax-3d-point (trans (cadr gr) 1 0)) l))))
    )
  )
  (princ)
)

Только возможно ли прописать нужный диаметр в коде, а не указывать его в процессе выполнения команды?

[SetQ]

Можно кнопку сделать с командой:

Код:

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

^C^C_pline \_non @1200,0 _non @1200<120 _close

[Нубий-IV]

Ну ничего себе веселуха пошла. Тогда надо еще посоветовать:

1. Записать операцию, которая строит треугольник
2. Создать палитру с параметрическим блоком равностороннего треугольника
3. Создать шаблон чертежа, где треугольник уже вставлен

[Хмурый]

динамический блок треугольника до кучи

[Ingpro]

Сообщение от SetQ ^C^C_pline \_non @1200,0 _non @1200<120 _close

SetQ, это здорово, треугольник в один клик!..

----- добавлено через ~25 мин. -----

Сообщение от Ingpro Только возможно ли прописать нужный диаметр в коде, а не указывать его в процессе выполнения команды?

в посте #16 можно выкрутиться добавив нужный диаметр (или несколько) в квадратные скобки, чтобы не набирать его, а просто кликнуть по нему:

Код:

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

 (defun c:polygon_3 (/ e d o l gr)
  (setq e (entlast))
  (initget 6)
  (if (and (setq d (getdist "\nSpecify diameter [692.820323] of polygon: ")) 
; для стороны 1200 указать диаметр 692.820323
           (not (command "_.polygon" 3 "_non" '(0 0 0) "_c" (/ d 2.)))
           (not (equal e (setq o (entlast))))
           (setq o (vlax-ename->vla-object o))
           (setq l (list (vlax-3d-point (trans '(0 0 0) 1 0))))
      )
    (while (eq 5 (car (setq gr (grread T 15 0))))
      (vla-move o (car l) (car (setq l (cons (vlax-3d-point (trans (cadr gr) 1 0)) l))))
    )
  )
  (princ)
)

для выбора нескольких диаметров:

Код:

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

 (if (and (setq d (getdist "\nSpecify diameter [692.820323/500/1000] of polygon: ")) 

[sleep]

Сообщение от Бим Вроде равносторонний.

Название темы говорит о другом) С равносторонним всё проще.

[AMDen]

Сообщение от sleep Название темы говорит о другом) С равносторонним всё проще.

В описании дана только одна сторона. Со стороной 1200 равнобедренных треугольников может быть множество.

[gumel]

Однажды увольнялся с одной работы. Работал на ЧПУ станке, для станка писал программы в автокаде (чертил).

Увольнялся три недели, т.к. не мог найти хорошего кандидата на свою должность. Кандидатам давал очень простые задания, чтобы посмотреть как они в принципе подходят к выбору решения для построения той или иной фигуры. Одним из заданий было построение равностороннего треугольника со стороной 10 мм. Отсеялось очень много ))

[SetQ]

Треугольник - текстом.

[koMon]

да уж, пьянка затягивается
построение равнобедренного треугольника по третьей стороне и бёдрами 1200.

Код:

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

 
(setq point_1 (getpoint "\nПервая точка треугольника: ")
	  point_2 (getpoint point_1 "\nВторая точка: ")
	  height (sqrt (- (expt 1200 2) (expt (* 0.5 (distance point_1 point_2)) 2)))
)
(command "_pline" point_1
				  point_2
				  (polar (mapcar '* '(0.5 0.5) (mapcar '+ point_1 point_2))
						 (+ (* 0.5 pi) (angle point_1 point_2))
						 height
				  )
				  "_close"
)

[Бим]

Сообщение от sleep Название темы говорит о другом)

А под заглавием описание вопроса, где именно равносторонний, да еще и помянут дорожный знак. Грамматик, это вам не треугольники...