[Moris]

Есть линия 1
Из точки 2 нужно провести линию 3 под углом 90 градусов к линии 1.
Как это сделать используя минимальное количество действий?

[dyr]

[quote=Moris;1038320]Есть линия 1
Из точки 2 нужно провести линию 3 под углом 90 градусов к линии 1.
Как это сделать используя минимальное количество действий?


[/QUOTE

копирование с поворотом в произвольной точке не катит?

[Moris]

Нет катит. Нужно сразу от линии под прямым углом.

[Nike]

Повернуть систему координат и рисовать с ОРТО

[nikita_sh_al]

из произвольной точки провести перпендикуляр к линии 1 и полученную линию 3 перенести командой _MOVE в нужную точку

[sertor]

Попробуйте воспользоваться таким макросом:

^C^C(Setq Om (Getvar "Orthomode"));(setvar "UCSFOLLOW" 0);_Select;_Single;_Nea;\_Ucsicon;_Of;_Ucs;_New;_Object;@;_Ortho;_On;_Pline;\\;_Ucs;_Pr;_Ucsicon;_On;(Setvar "Orthomode" Om)

[Moris]

Сообщение от sertor Попробуйте воспользоваться таким макросом: ^C^C(Setq Om (Getvar "Orthomode"));(setvar "UCSFOLLOW" 0);_Select;_Single;_Nea;\_Ucsicon;_Of;_Ucs;_New;_Object;@;_Ortho;_On;_Pline;\\;_Ucs;_Pr;_Ucsicon;_On;(Setvar "Orthomode" Om)

Приделал кнопку, буду пользоваться.
Спасибо

[skkkk]

Сообщение от sertor Попробуйте воспользоваться таким макросом

Макрос не возвращает систему координат, если нажать Esc и не повторяется по правой кнопке (или по Enter/Space)

[Vlad®]

Разве нет такой кнопки изначально?

[PsixVK]

Макрос не возвращает систему координат, если нажать Esc и не повторяется по правой кнопке (или по Enter/Space)

не нажимайте Esc
и перпендикуляр к какойто линии не так часто нужно рисовать потому повтор по правой кнопке или по Enter/Space можно не использовать
лучше всего забить в горячую клавишу

Разве нет такой кнопки изначально?

кнопка есть но тот макрос работает намного удобней

[T-Yoke]

Сообщение от Moris Есть линия 1 Из точки 2 нужно провести линию 3 под углом 90 градусов к линии 1. Как это сделать используя минимальное количество действий?

То есть вся проблема, провести перпендикуляр не за два действия, как предложил dyr, а за одно?
Я бы, честно говоря, остановился на стандартной кнопке "Нормаль" и выполнял за два действия,
1. провел линию из произвольной точки по нормали к базовой линии,
2. сместил её к концу (или к заданной точке) базовой линии.
но раз надо... цепляйте макрос.

[Vova]

Сообщение от nikita_sh_al из произвольной точки провести перпендикуляр к линии 1 и полученную линию 3 перенести командой _MOVE в нужную точку

Но можно и наоборот. Из произвольной точки на линии 1 ВОССТАНОВИТЬ перпендикуляр. А затем перенести в нужную точку. Для этого взяв команду _Line и затем привязку Per подвести курсор к линии и дождаться появления значка Нормаль с тремя точками...
Уже много автокадов назад это можно было сделать.
Макрос в посте #6 взят в основе из моей книги ....Язык макрокоманд и создание кнопок. Здесь он немного модифицированный, но все равно не худо-бы сослаться на первоисточник (на форуме так принято)

[Injener-81]

Есть в АвтоКаде параметрические функции

[skkkk]

Лиспом это можно реализовать за 2 клика, не считая вызова команды (макросом выходит 3). Плюс повтор по Enter/Space
Примерно так:

Код:

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

(defun C:PERP (/ *error* osm cmd adoc pt1 pt2 crv ang1 ang2 ang)

	(defun *error* (msg)
		(vl-cmdf "_redrawall")
		(vla-EndUndoMark adoc)
		(setvar "OSMODE" osm)
		(setvar "CMDECHO" cmd)
	)
	(setq osm (getvar "OSMODE"))
	(setq cmd (getvar "CMDECHO"))
	(vl-load-com)
	(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
	(vla-StartUndoMark adoc)
	(setvar "CMDECHO" 0)
	(setvar "OSMODE" 547)
	(setq pt1 (getpoint "\nУкажите точку на линии <выход> : "))
	(setq crv (vlax-ename->vla-object (ssname (ssget pt1 '((0 . "*LINE"))) 0)))
	(setq pt2 (vlax-curve-getPointAtParam crv (+ (vlax-curve-getParamAtPoint crv pt1) 0.0001)))
	(if (null pt2)(setq pt2 (vlax-curve-getPointAtParam crv (- (vlax-curve-getParamAtPoint crv pt1) 0.0001))))
	(setq ang1 (* 0.5 pi))
	(setq ang2 (angle pt1 pt2))
	(setq ang (+ ang1 ang2))
	(setq ang (angtos ang 0 15))
	(vl-cmdf "_.LINE" "_none" pt1 (strcat "<" ang))(princ "Укажите вторую точку или введите длину линии: ")(vl-cmdf pause "")
	(setvar "OSMODE" osm)
	(setvar "CMDECHO" cmd)
	(vla-EndUndoMark adoc)
	(vl-cmdf "_redrawall")
	(princ)
)

Научился у VVA. Без претензии на исключительность.

[getr]

Этот лисп чертит перпендикуляр не только к линии,а и к дуге,окружности..

[sertor]

Сообщение от getr Этот лисп чертит перпендикуляр не только к линии,а и к дуге,окружности..

В AutoCAD 2012 работает нормально. В 2013- работает почему-то некорректно (выворачивает ПСК). Может только у меня?

[Vova]

Сообщение от skkkk Лиспом это можно реализовать за 2 клика, не считая вызова команды (макросом выходит 3)

Все хорошо если просто... Но вот нам надо сделать перпендикуляр в месте пересечения. И тогда два клика сработает правильно только если тот, к которому нужен перпендикуляр, является верхним (по порядку Draworder) обЪектом. Потому и сделан в макросе третий клик чтобы выбрать нужный

[skkkk]

Vova, согласен, так всегда и бывает: решение для частного случая, как в шапке темы, отнюдь не универсально, а универсальность требует конкретики, а значит, и дополнительных действий (кликов).

[getr]

->sertor
лисп не мой, найден на просторах инета...нужны знатоки лиспа, может там подправить чего немного надо..сам я не в состоянии.

[Moris]

Сообщение от skkkk Vova, согласен, так всегда и бывает: решение для частного случая, как в шапке темы, отнюдь не универсально, а универсальность требует конкретики, а значит, и дополнительных действий (кликов).

да, и лисп per и тот маркос дополняют друг друга, поэтому обоих прикрутил на автокад