[aTBepTKa]

Допустим есть три точки: А, В, С. Из точки С нужно построить такой отрезок, длина которого, будет равна отрезку АВ. Как это сделать с минимальной затратой времени?

С моими нынешними знаниями, приходиться строить отрезок АВ, потом перемещать его одним инструментом, и вращать другим. Это слишком долго. Может быть есть такой волшебный инструмент, который облегчит мою жизнь?

[T-Yoke]

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

[onick]

Измерьте dist между А и В, полученное значение выделите в командной строке и скопируйте в буфер. Из точки С (указав ее) в режиме ortho отложите отрезок вставив в командную строку значение из буфера...

ну и волшебная команда _align...

[aTBepTKa]

Вот примерно так:

Хотелось бы пропустить второй этап (построение отрезка АВ), и иметь возможность сразу перейти к третьему (построить отрезок длиной АВ).

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

1. Построить отрезок АВ
2. Используя команду mocoro, скопировать отрезок в точку С

[T-Yoke]

А направление отрезка важно? Если да, то Я бы скопировал и выровнял по заданному направлению.

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

Ну да, команда _.align никуда не делась

[aTBepTKa]

даже немного точнее покажу процесс, вот:

Его мне нужно упростить. В идеале было бы так: выбираем волшебный инструмент, мне предлагают выбрать две точки, т.е. необходиую длину. Затем я строю отрезок как обычным инструментом "Отрезок", но длина остается фиксированной.

[Хмурый]

aTBepTKa, создавай свою программу

[aTBepTKa]

Сообщение от onick Измерьте dist между А и В, полученное значение выделите в командной строке и скопируйте в буфер. Из точки С (указав ее) в режиме ortho отложите отрезок вставив в командную строку значение из буфера... ну и волшебная команда _align...

Этот метод проведения данного мероприятия, пока подходит больше всего

[engngr]

Сообщение от onick Измерьте dist между А и В, полученное значение выделите в командной строке и скопируйте в буфер. Из точки С (указав ее) в режиме ortho отложите отрезок вставив в командную строку значение из буфера...

... получив в итоге не идентичный по длине отрезок.

[n0str0m0]

C 2010 акада появилась ПАРАМЕТРИЗАЦИЯ. Сейчас попрообовал функцию равенство. Рисуешь отрезки как угодно, затем выбираешь с нужной длиной как источник, в параметризации выбираешь равенство, щелкаешь на источнике, а затем на дочерних объектах, они становятся равными по длине источнику. При изменении длины одного из них меняется длина всех остальных. При желании равенство у необходимых отрезков можно удалить и они не будут больше участвовать в этой оргии удлинения.

[E-degtyarev]

aTBepTKa, Попробуй такую программульку (без "защиты от дурака").

Код:

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

(defun c:m_l (/ l_l p1 p2 rasst pt an pt2)
  (setq l_l (entget (car (entsel "\nВыберите исходный отрезок:"))))
  (setq p1 (cdr (assoc 10 l_l)))
  (setq p2 (cdr (assoc 11 l_l)))
  (setq rasst (distance p1 p2)) ;_ конец setq
  (setq pt (getpoint "\nТочка вставки")) ;_ конец setq
  (setq an (getangle pt "\nУгол поворота"))
  (setq pt2 (polar pt an rasst)) ;_ конец setq
  (vl-cmdf "_.line" "_none" pt "_none" pt2 "")
) ;_ конец defun

[aTBepTKa]

Просмотрел код программы, понял что это оно самое! Теперь только осталось кого нибудь попросить, чтобы мне объяснили что с этим кодом делать.

[Хмурый]

aTBepTKa, если понял код- то должен знать, как его употребить
http://dwg.ru/pub/9

[aTBepTKa]

Ну я интуитивно понимаю, что его нужно привязать к какой-нибудь кнопке, при нажатии на которую, он будет выполняться. Однако мои знания не позволяют мне это сделать. Честно говоря, я до этого вообще не знал, что для автокада можно писать спец. программы.

Путем научного тыка, я этот код откомпилировал (или сохранил, не знаю как правильно) в файлы с расширениями *.fas, *.vls и *.lsp. В меню автокада нашел кнопку загрузить приложение. Ну и соответственно загрузил эти файлы. Теперь эту радость нужно как-то к кнопке прикрутить, или вызвать из командной строки. Если конечно я до этого все правильно сделал.

Не заметил ссылку под предыдущим сообщением, сейчас посмотрим что там есть.

Добавлено:
Немного усложнил я себе жизнь, еще задействовал встроенный редактор Visual LISP, но в итоге получил все то же самое. И пытался запустить эту программу из командной строки. Да вот только я дурак, вместо m_l(эль) писал m_1(один). Теперь разобрался. Я даже гордиться собой начал, что все получилось

Большое спасибо товарищ E-degtyarev. Просто не передать как я вам благодарен за эти счастливые 10 строчек кода

[E-degtyarev]

aTBepTKa,-вариант с указанием 2х точек:

Код:

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

(defun c:m_n (/ p1 p2 rasst pt an pt2)
  (setq p1 (getpoint "\nУкажите 1-ю точку:"))
  (setq p2 (getpoint p1 "\nУкажите 2-ю точку:"))
  (setq rasst (distance p1 p2))
  (setq pt (getpoint "\nТочка вставки:")) 
  (setq an (getangle pt "\nУгол поворота:"))
  (setq pt2 (polar pt an rasst)) 
  (vl-cmdf "_.line" "_non" pt "_non" pt2 "")
)

[Disney]

aTBepTKa, а если не секрет, для чего тебе такая функция?

[aTBepTKa]

Я студент, делаю чертежи по начертательной геометрии. Довольно часто мне приходиться откладывать в разных местах равные отрезки. Вот тут мне и приходиться использовать подобную функцию.

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

ИМХО - проще будет блок создавать