[Shir83]

Доброго времени суток!

У меня такой вопрос к профессионалам AutoCAD`а, возможно ли создать такую команду на голом автокаде, чтобы отрисовывать ГОЗ?

Процесс, как я представляю, указываем точку, задаем радиус, еще точку и тоже радиус, и так несколько точек (не менее 3-х). В итоге получаем полилинию, составленная из дуг от этих окружностей и соединенную касательными к соседним окружностям.
P.s. в лиспе и программировании я не разбираюсь (практически)

[Дмитрий Асташев]

Можно сделать тип мультилинии с дугами на концах. Меню: Format> Miltiline Style>New...>"GOZ" >Continue>Caps Outer Arc Start>Caps Outer Arc End> Set Current.

Command: MLINE
Current settings: Justification = Top, Scale = 60.00, Style = GOZ
Specify start point or [Justification/Scale/STyle]: j
Enter justification type [Top/Zero/Bottom] <top>: z
Current settings: Justification = Zero, Scale = 60.00, Style = GOZ
Enter mline scale <20.00>: 60 (60 - это радиус опасной зоны)
Specify start point or [Justification/Scale/STyle]: s
Current settings: Justification = Zero, Scale = 60.00, Style = GOZ
Specify start point or [Justification/Scale/STyle]:
Specify next point:
Ту не надо ничего программировать

[Shir83]

Спасибо, но к сожалению немного не то. Набросал графически, чтоб было понятно.

[john644]

Задача сводится по углу и длине линии между точками расчитать угол линии опасной зоны крана. Дальше простое программирование

[gomer]

вот такой гоблинский код получился

Код:

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

 (defun c:test ()
  (setq p1 (getpoint "\nПервая точка: "))
  (setq r1 (getreal "\nПервый радиус: "))
  (setq p2 (getpoint p1 "\nВторая точка: "))
  (setq r2 (getreal "\nВторой радиус: "))
  (setq p3 (getpoint p1"\nтретья точка: "))
  (setq r3 (getreal "\nТретий радиус: "))

  (command "_.line" p1 p2 "")
  (setq e1 (entlast))
  
  (command "_.line" p2 p3 "")
  (setq e2 (entlast))
  
  (command "_.line" p1 p3 "")
  (setq e3 (entlast))

  (setvar 'filletrad r1)
  (command "_.fillet" e1 e3)
  
  (setvar 'filletrad r2)
  (command "_.fillet" e1 e2)
  
  (setvar 'filletrad r3)
  (command "_.fillet" e2 e3)
  
)

для 3х точек

[Shir83]

Спасибо, практически то, что надо, только одно но... центры дуг должны быть в указанных точках, а не скругление полученного треугольника.

[Abvproekt-ppr]

Форумчане, помогите пожалуйста с линией границы опасной зоны, которая с флажками. Очень часто приходится ее рисовать, а флажки каждый раз расставлять и поворачивать их не очень интересно))
Вот так она выглядит (во вложении)

Буду благодарен если кто сможет поделиться.

[Кулик Алексей aka kpblc]

Abvproekt-ppr, добро пожаловать в тему "Создание типа линии".