[Apelsinov]

Надо программку.
Я не могу придумать алгоритм. Все на плоскости.

есть точка A , есть отрезок BC, есть угол Ъ
Надо построить отрезок первая точка которого нах. в точке А, а вторая на отрезке ВС. При чем отрезки составляют угол Ъ.

У кого какие мысли?

[fixo]

Сообщение от Apelsinov Надо программку. Я не могу придумать алгоритм. Все на плоскости. есть точка A , есть отрезок BC, есть угол Ъ Надо построить отрезок первая точка которого нах. в точке А, а вторая на отрезке ВС. При чем отрезки составляют угол Ъ. У кого какие мысли?

Не тестировал но попробуй:

Код:

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

(defun C:test (/ ang def_ang draw_angle ept
	       line_ang ln pt1 pt2 pt3 spt)
(setvar "osmode" 0)
(setq ln (car (entsel "\nSelect line \n"))
      pt1 (getpoint "\nSpecify point \n")
      def_ang (getorient "\nSpecify included angle in degrees :\n")
      spt (cdr (assoc 10 (entget ln)))
      ept (cdr (assoc 11 (entget ln)))
      line_ang (angle spt ept))

(if (> line_ang pi)
  (setq line_ang (- pi line_ang))
  )

(setq draw_angle (+ pi (+ ang line_ang)))
(setq pt2 (polar pt1 draw_angle 1.)
      pt3 (inters spt ept pt1 pt2 nil))

; TesT :
  
(command "line" pt1 pt3 "")
(princ)
)

Fatty

[Vook]

Построить угол на отрезке и провести из А отрезок параллельно стороне угла. Обрезать лишнее

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

Тут, по-моему, есть два варианта решения:
[ATTACH]1134397414.jpg[/ATTACH]

[MIP]

Если не програмно то так:
Вызываем команду _xline с опциями угол затем базовый отрезок выбираем в качестве базового отрезка отрезок ВС затем вводим нужный угол и указываем точку А через которую пройдет данный отрезок. Если надо удаляем все лишнее. Нужно только помнить про то как у Вас откладывется угол в Автокаде по часовой или против часовой стрелки!

[VVA]

Необходимо найти точку Е
1. Из точки А восстановить перпендикуляр на BC (точка Д)
2. Расстояние ДЕ=АД/tan(FI)

(defun FF ( / pt_B pt_A pt_C pt_D pt_E ang_FI L_AD L_DE osm)
(setq pt_B (getpoint "\nУкажите точку В на отрезке: "))
(setq pt_C (getpoint "\nУкажите точку C на отрезке: "))
(setq pt_A (getpoint "\nУкажите точку А: "))
(setq ang_FI (getangle "\nВведите угол фи: "))
(setq pt_D (inters pt_B pt_C pt_A (polar pt_A (+ (angle pt_B pt_C)(* PI 0.5)) 10) nil))
(setq L_AD (distance pt_A pt_D))
(setq L_DE (/ (* L_AD (cos ang_FI))(sin ang_FI)))
(setq pt_E (polar pt_D (angle pt_B pt_C) L_DE))
(command "_COLOR" "_red")
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(command "_LINE" pt_D pt_A pt_E "")
(setvar "OSMODE" osm)
(command "_COLOR" "_bylayer")
(princ)
[ATTACH]1134399530.dwg[/ATTACH]

[VVA]

И в конце еще кавычка
(defun FF ( / pt_B pt_A pt_C pt_D pt_E ang_FI L_AD L_DE osm)
(setq pt_B (getpoint "\nУкажите точку В на отрезке: "))
(setq pt_C (getpoint "\nУкажите точку C на отрезке: "))
(setq pt_A (getpoint "\nУкажите точку А: "))
(setq ang_FI (getangle "\nВведите угол фи: "))
(setq pt_D (inters pt_B pt_C pt_A (polar pt_A (+ (angle pt_B pt_C)(* PI 0.5)) 10) nil))
(setq L_AD (distance pt_A pt_D))
(setq L_DE (/ (* L_AD (cos ang_FI))(sin ang_FI)))
(setq pt_E (polar pt_D (angle pt_B pt_C) L_DE))
(command "_COLOR" "_red")
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(command "_LINE" pt_D pt_A pt_E "")
(setvar "OSMODE" osm)
(command "_COLOR" "_bylayer")
(princ)
)

[Apelsinov]

Fatty , спасибо за идею, Ваше что-то не сработало, где-то помарки, ну да главное я понял, сваял сам.

kpblc Конечно, два варианта, верное замечание. У меня выбирается та точка на линии , кот ближе к точке ее указания.

MIP Без программы по-любому не удобно. но за науку спасибо, не знал про опции xline.

VVA Мало что понял. Если это работает - то это просто замечательно. Но в плане лиспа, видимо, у вас впереди больше чем позади без обид. Спасибо за участие.

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

Код:

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

(defun apel-draw-line-point_ang_line (/ point1	     obj_line1
				      angle_user     user_point_line
				      obj_line1	     SEpoint
				      angle_line1    angle_user
				     )
  (if (and (setq point1 (GETPOINT "\n Specify point:"))
	   (setq point1 (TRANS point1 1 0))
	   (setq obj_line1 (APEL-ENTSEL_POINT "\nSelect line:"))
	   (setq angle_user (getint "\nSpecify angle:"))
	   (setq user_point_line (cadr obj_line1))
	   (setq obj_line1 (car obj_line1))
	   (setq SEpoint (APEL-LINE-2COORD obj_line1))
	   (setq angle_line1
		  (APEL-MOD-GET_PROPERTY obj_line1 "angle")
	   )
	   (setq angle_user
		  (* angle_user (/ pi 180))
	   )
      )
    (APEL-DRAW-LINE
      (list
	point1
	(APEL-POINT-MINDIST_POINT
	  user_point_line
	  (list	(inters
		  point1
		  (polar point1 (+ angle_line1 angle_user) 1.0)
		  (car SEpoint)
		  (cadr SEpoint)
		  nil
		)
		(inters
		  point1
		  (polar point1 (- angle_line1 angle_user) 1.0)
		  (car SEpoint)
		  (cadr SEpoint)
		  nil
		)
	  )
	)
      )
    )
  )
)

[AY]

У Fatty попросту небольшая опечатка:
вместо: (setq draw_angle (+ pi (+ ang line_ang)))
надо: (setq draw_angle (+ pi (+ def_ang line_ang)))

[fixo]

Сообщение от AY У Fatty попросту небольшая опечатка: вместо: (setq draw_angle (+ pi (+ ang line_ang))) надо: (setq draw_angle (+ pi (+ def_ang line_ang)))

Спасибо
Видимо поменял пока накладывал лоск, а в черновике точно
так

~'J'~

[fixo]

Сообщение от Apelsinov Fatty , спасибо за идею, Ваше что-то не сработало, где-то помарки, ну да главное я понял, сваял сам.

Интересно а куда делся ваш сайт? Если жив еще, нельзя ли адрес?

Regards,

~'J'~

[Apelsinov]

Сообщение от Fatty Интересно а куда делся ваш сайт? Если жив еще, нельзя ли адрес?

Мертв. За ненадобностью.
Обновлять его мне наскучивает очень быстро, вот еслиб как-то автоматически.....шоб все само-собой на сайт закачивалось...

[fixo]

Сообщение от Apelsinov Сообщение от Fatty Интересно а куда делся ваш сайт? Если жив еще, нельзя ли адрес? Мертв. За ненадобностью. Обновлять его мне наскучивает очень быстро, вот еслиб как-то автоматически.....шоб все само-собой на сайт закачивалось...

А и правильно, чего насиловать свою природу?
Уважаю любой выбор

~'J'~