[Jonas]

Как програмно построить "внешнее" сопряжение двух дуг?

Сообщение от Disney что такое внешнее?

См. архив.

P.S. Не знаю как ты в раскрывающееся окно видео вставил.

[Disney]

Сообщение от VVapan4ik P.S. Не знаю как ты в раскрывающееся окно видео вставил.

ладно, буду без раскрывающегося
[IMG]http://i080.***********/1003/79/aa2894014267.gif[/IMG]

[Дима_]

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

[Jonas]

Сообщение от Дима_ То Disney - я в свое время понял, что быстро написанный код, как правило, не то что нужно (редкие исключения если код просит написать человек понимающий в программировании, но не под АКАД) - вначале-б неплохо понять зачем это человеку - чаще разница между запрашиваем и нужным больше чем код программы.

Вот пример, илюстрация необходимости построения "внешних сопряжений.

[Disney]

Сообщение от Дима_ То Disney - я в свое время понял, что быстро написанный код, как правило, не то что нужно

Не, но вроде картинка была, я её повторил и от кружочков к дугам и от дуг к кружочкам. Я понимаю словами трудно объяснить, но не ту картинку нарисовать?

Сообщение от Jonas Вот пример, иллюстрация необходимости построения "внешних сопряжений". [IMG]http://s005.***********/i212/1003/25/483701730996.jpg[/IMG]

Прикольный "руль", а можно цветом, скажем синим, что из этого строится в ручную, а красным, что хотелось бы программно

[Jonas]

Сообщение от Disney Прикольный "руль", а можно цветом, скажем синим, что из этого строится в ручную, а красным, что хотелось бы программно

Можно конечно.
Кстапти, при сопряжении линии и дуги (окружности) та же картина. А сопрягать линию с дугой наверно даже чаще приходиться

[Disney]

Ну мой второй код это и делал только кружочками, как у тебя на самой первой картинке,

[IMG]http://i011.***********/1003/2a/bd51e0e9ebf7.gif[/IMG]

Код:

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

(defun C:test (/      first  second O_1	   O_2	  N_O_1	 N_O_2	R_1
	       R_2    K_O_1  K_O_2  temp   N_1	  N_2	 t_1	1_t
	       C_1    R_C    ugl_1  ugl_2
	      )
  (vl-load-com)
  (while
    (and
      (setq
	first
	 (entget (geo_vibor "\nПервая дуга <Выход>: " "ARC" t)
	 )
      )
      (setq
	second (entget
		 (geo_vibor "\nВторая дуга <Выход>: " "ARC" t)
	       )
      )
    )
     (setq O_1	 (cdr (assoc 10 first))
	   R_1	 (cdr (assoc 40 first))
	   N_O_1 (polar O_1 (cdr (assoc 50 first)) R_1)
	   K_O_1 (polar O_1 (cdr (assoc 51 first)) R_1)
	   O_2	 (cdr (assoc 10 second))
	   R_2	 (cdr (assoc 40 second))
	   N_O_2 (polar O_2 (cdr (assoc 50 second)) R_2)
	   K_O_2 (polar O_2 (cdr (assoc 51 second)) R_2)
	   temp	 (car (vl-sort
			(list (list N_O_1 N_O_2)
			      (list N_O_1 K_O_2)
			      (list K_O_1 N_O_2)
			      (list K_O_1 K_O_2)
			)
			'(lambda (x y)
			   (< (distance (car x) (cadr x))
			      (distance (car y) (cadr y))
			   )
			 )
		      )
		 )
	   N_1	 (car temp)
	   N_2	 (cadr temp)
	   t_1	 (seredina N_1 N_2)
	   1_t	 (polar t_1 (+ (angle N_1 N_2) (/ pi 2)) 1)
	   C_1	 (seredina (inters t_1 1_t O_1 N_1 nil)
			   (inters t_1 1_t O_2 N_2 nil)
		 )
	   R_C	 (distance C_1 N_1)
	   ugl_1 (angle C_1 N_1)
	   ugl_2 (angle C_1 N_2)
     )
     (if (or (< 0 (- ugl_1 ugl_2) pi)
	     (< (* pi -2) (- ugl_1 ugl_2) (- 0 pi))
	 )
       (setq temp  ugl_1
	     ugl_1 ugl_2
	     ugl_2 temp
       )
     )

     (entmake
       (list
	 '(0 . "ARC")
	 '(62 . 1)
	 (cons 10 C_1)
	 (cons 40 R_C)
	 (cons 50 ugl_1)
	 (cons 51 ugl_2)
       )
     )
  )
)


(defun geo_vibor (zap ;_Запрос 
		  tip ;_Тип запрашиваемых примитивов 
		  enter ;_Выход при пустом вводе 
		  / flag name)
  (setq Flag2 t)
  (setvar "ERRNO" 0)
  (while Flag2
    (cond
      ((and
	 (setq name
		(car (entsel zap))
	 )
	 (wcmatch (cdr (assoc 0 (entget name))) tip)
       )
       (setq Flag2 nil
	     name name
       )
      )
      ((and (= (getvar "ERRNO") 52) enter)
       (setq Flag2 nil)
      )
      (name (princ (strcat "\nВыбранный объект не " tip)))
      (t (princ "\nМимо"))
    )
  )
)
(defun seredina	(t1 t2)
  (polar t1 (angle t1 t2) (/ (distance t1 t2) 2))
)

[Jonas]

Похоже я не въезжаю.
Вот результат.
Плучается то же что и ранее и даже хуже. Нет нормального сопряжения.
Или это просто демонстрвция?

[Disney]

Сообщение от Jonas Вот результат: [IMG]http://i058.***********/1003/89/43a2d2a277ee.jpg[/IMG] Получается то же что и ранее и даже хуже. Нет нормального сопряжения.

А тупо одной дугой, в данном случаи это оптимальное сопряжение. Ты сам вручную их красиво сопряжешь одной дугой? Чтоб красиво надо с переходными кривыми, но это уже не ко мне, и как бы сказал Евгений Елпанов "Выходит за рамки безвозмездного"

[Jonas]

Сообщение от Disney Почему все вдруг становятся умными, когда уже не надо?

Понял, поумнел, уже не надо, буду тупо таскать ляминь.

[Елпанов Евгений]

Вот и меня упомянули...

Я не раз просматривал тему, но так и не смог понять, чем не устраивает стандартная функция скругления...

[Disney]

Сообщение от Jonas Сообщение от Disney Почему все вдруг становятся умными, когда уже не надо? Понял, поумнел, уже не надо, буду тупо таскать ляминь.

Я имел введу, не почему все вокруг такие тупые, и когда же они поумнеют, а то что есть люди, которые могут помочь, но сделают они это тогда, когда тебе уже будет не надо.

Сообщение от Елпанов Евгений Я не раз просматривал тему, но так и не смог понять, чем не устраивает стандартная функция скругления...

А с "рулём" такой мультик сделайте?
Мне почему-то показалось, что нельзя подрезать исходные дуги, или пускай с подрезкой, но самой минимально возможной, а для этого нужно радиус сопряжения не на глазок указывать, а высчитать самый оптимальный.

[Елпанов Евгений]

Сообщение от Disney Мне почему-то показалось, что нельзя подрезать исходные дуги, или пускай с подрезкой, но самой минимально возможной, а для этого нужно радиус сопряжения не на глазок указывать, а высчитать самый оптимальный.

так на руле, все скругления делаются стандартным радиусом 10800, если я правильно понимаю задачу...

Сообщение от Елпанов Евгений Я не раз просматривал тему, но так и не смог понять, чем не устраивает стандартная функция скругления...

Надо внешнее сопряжение, а не внутреннее...

Автокад не стоит, что проверить... возможно ли...

[Елпанов Евгений]

Сообщение от VVapan4ik Надо внешнее сопряжение, а не внутреннее...

Кажется, я понял в чем дело.
На видео, я построил круг...

Сообщение от Елпанов Евгений Кажется, я понял в чем дело.

Ну да, в принципе работает, но я все равно за параметризацию...

[Jonas]

Сообщение от Елпанов Евгений На видео, я построил круг...

Это не руль, это сечение автодорожного тоннеля (повернутое, тоесть "портретное"). Радиусы нужно всегда задавать.

Или я и впрям бестолково ставлю вопрос или вы жудьничаете?

[Disney]

Сообщение от Jonas Выполнено методом начерталки

Как говорил раньше к сожалению с ней не знаком, но наверняка эти методы поддаются какой-то логике, а раз так то их можно выполнить программно, тем боле как выяснилось в T-flex см картинку в #22 такая функция есть, значит и алгоритм существует.
Распиши(разрисуй) пошагово как ты добиваешься требуемого начертательными методами.

[Елпанов Евгений]

Сообщение от Jonas Или я и впрям бестолково ставлю вопрос или вы жудьничаете?

Конечно я жульничаю, точнее знаю одну хитрость - команда скругления, очень чувствительна к указанной стороне дуги или отрезка, который будет скругляться. Грубо говоря, указанная сторона, после скругления, должна остаться. Поэкспериментируй со своими дугами, попробуй выделять другую сторону, при указании объектов...

Проверил с подобными наборами дуг, действительно, автокад не всегда может построить скругление, только если круг с опцией две касательных и радиус. Но круг, он может построить во всех случаях.

[Jonas]

Сообщение от Disney Как говорил раньше к сожалению с ней не знаком

Сообщение от Елпанов Евгений Проверил с подобными наборами дуг, действительно, автокад не всегда может построить скругление, только если круг с опцией две касательных и радиус. Но круг, он может построить во всех случаях.

Вообще думал, что просто чего то не знаю. Да и лень лишний раз кликать клавишей. Кстаои, по двум касательным получается тот же результат что и с fillet.