[Jonas]

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

[Дима_]

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

[ытя]

Сообщение от Дима_ вариантов дуг может быть бесчисленное множесто

При заданных радиусах сопрягающих дуг и сопрягаемых окружностей, вариантов всего 4 (по 2 "внешних" и "внутренних"дуги, симметричных относительно прямой соединяющей центры)

[asd]

Центры дуг А и В будут находиться на пересечении прямых от центров окружностей и любой точкой черной окружности. Эти точки и будут концами дуги.

Обманул. Извиняюсь.

[Disney]

Да не спорте вы, если подождёте, через часок выложу код...

[Дима_]

to disney - осталось менее 20 минут

[Disney]

Вот, правда иногда не корректно работает, завтра подправлю...
[IMG]http://s47.***********/i115/1003/23/da12828c5b00.gif[/IMG]

[asd]

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

Сообщение от asd как у Вас определяется радиус дуги сопряжения?

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

[Дима_]

Я почему-то думал, что у автора обратная задача - то есть две дуги - и их надо "сопрячь".

[Jonas]

Сообщение от Дима_ Я почему-то думал, что у автора обратная задача - то есть две дуги - и их надо "сопрячь".

Совершенно верно.
В рисунке я показал внутреннее сопряжение которое выполняет команда _fillet, а вот внешнее сопряжение очень нужно. Методом начерталки проблем нет, но многодельно.

[Disney]

Сообщение от asd Disney, как у тебя определяется радиус дуги сопряжения?

[IMG]http://s51.***********/i134/1003/1f/ee9ebece5959.jpg[/IMG]

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

Конечно, нет. От куда в Сибирской Государственной Геодезической Академии, на факультете прикладной геодезии ей взяться?

Сообщение от Дима_ Я почему-то думал, что у автора обратная задача - то есть две дуги - и их надо "сопрячь".

[IMG]http://s54.***********/i143/1003/23/9861b45a6648.gif[/IMG]

Может не совсем и по Lisp-овски, но методом "научного тыка" и графическими построениями сочинил вот такое

Код:

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

(defun C:test (/      first  second O_1	   O_2	  R_1	 R_2	N_O_1
	       N_O_2  K_O_1  K_O_2  temp   T_1	  T_2	 1_T	2_T
	       C_1    C_2    R_C_1  R_C_2
	      )
  (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)
     )
     (if (> (+ (distance N_O_2 N_O_1) (distance K_O_2 K_O_1))
	    (+ (distance N_O_1 K_O_2) (distance N_O_2 K_O_1))
	 )
       (setq temp  N_O_2
	     N_O_2 K_O_2
	     K_O_2 temp
       )
       T
     )
     (setq
       t_1   (seredina N_O_1 N_O_2)
       1_t   (polar t_1 (+ (angle N_O_1 N_O_2) (/ pi 2)) 1)
       t_2   (seredina K_O_1 K_O_2)
       2_t   (polar t_2 (+ (angle k_O_1 k_O_2) (/ pi 2)) 1)
       C_1   (seredina (inters t_1 1_t O_1 N_O_1 nil)
		       (inters t_1 1_t O_2 N_O_2 nil)
	     )
       C_2   (seredina (inters t_2 2_t O_1 k_O_1 nil)
		       (inters t_2 2_t O_2 k_O_2 nil)
	     )
       R_C_1 (distance C_1 N_O_1)
       R_C_2 (distance C_2 k_O_1)
     )

     (entmake
       (list
	 '(0 . "CIRCLE")
	 (cons 10 C_1)
	 (cons 40 R_C_1)
       )
     )
     (entmake
       (list
	 '(0 . "CIRCLE")
	 (cons 10 C_2)
	 (cons 40 R_C_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))
  )

[asd]

Сообщение от Disney Конечно, нет.

Не заморачивайтесь, это он обо мне высказался.

Сообщение от Disney Вот так...

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

[Дима_]

вот про это я и писал - вначале надо определить допуски - чем жертвововать когда "гладко" не сопрячь?

[Disney]

VVapan4ik, Дима_ вот вы мне не учу, на пальцах(на картинках) объясните какие там ещё могут быть варианты?

Сообщение от Дима_ вот про это я и писал - вначале надо определить допуски - чем жертвововать когда "гладко" не сопрячь?

Не знаю, почему в Автокаде такое не реализовано на командном уровне, а вот в T-flex такая команда давно (лет 8 точно) реализована. Выбираешь две окружности и потом задаешь значение радиуса дуги. Дело двух секунд.

P.S. avi файл не могу вставить... Заархивировал.

[Jonas]

Сообщение от VVapan4ik Не знаю, почему в Автокаде такое не реализовано на командном уровне, а вот в T-flex такая команда давно (лет 8 точно) реализована. Выбираешь две окружности и потом задаешь значение радиуса дуги. Дело двух секунд. P.S. avi файл не могу вставить... Заархивировал.

Мы говорим о внешнем сопряжении - внутреннее акад делает.

Сообщение от Jonas Мы говорим о внешнем сопряжении - внутреннее акад делает.

T-flex и внешнее сопряжения без проблем делает. Вот блин хваленый автокад... Могу такой же ролик скинуть.

[Disney]

Сообщение от VVapan4ik P.S. avi файл не могу вставить...

[IMG]http://i036.***********/1003/17/4494b6eac8b1.gif[/IMG]

Всё понятно, я думал с максимальным радиусом - это оптимальный вариант, кстати так же и в примере Jonas максимальный радиус...

Сообщение от Jonas Мы говорим о внешнем сопряжении - внутреннее акад делает.

Ну не было у меня начертательной... что такое внутреннее? что такое внешнее? вторая моя программа тоже не то?