[Рyslan]

Вот вымучал "программку", но она далека от совершенства.
Я задаю две точки (см. рисунок ниже) и выбираю диаметр отвода. Нужно еще раположить отвод, а то у меня всего два положения получается. Еще нужно осевую. Добавить откл. вкл. привязок. Со мной тут нянчился Shaggy_Doc, за это ему спасибо. Но он не всегда тут, так что может кто еще захочет помочь советом. Да и буду наверное свои вопросы по лиспу задавать в этой теме. Жду советов. Заранее благодарен!

Код:

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

(defun c:OTVOD (/ p1 p2 p3 p4 p5 p6 DN_otv)
(initget 7)
(setq DN_otv (getint (strcat "\nДиаметр отвода 50/65/80/100:")))

(cond
	((= DN_otv 50) (setq D 57 Rdug 75))
	((= DN_otv 65) (setq D 76 Rdug 100))
	((= DN_otv 80) (setq D 89 Rdug 120))
	((= DN_otv 100) (setq D 114 Rdug 150))
)

	(setq P1 (getpoint "\nНачальная точка:"))
	(setq ang (getorient P1 "\nУкажите направление отвода/Угол:")) 
	

  (setq Rv (- Rdug (* 0.5 D)))
  (setq Rn (+ Rdug (* 0.5 D)))
  (setq Dist1 (sqrt (* 2 Rv Rv)))
  (setq Dist2 (sqrt (* 2 Rn Rn)))


  (setq P2 (polar P1 (+ ang (* 0.5 pi)) (* 0.5 D)))
  (setq P3 (polar P2 (+ ang (* 0.25 pi)) Dist1))
  (setq P4 (polar P3 ang (* 0.5 D)))
  (setq P5 (polar P4 ang (* 0.5 D)))
  (setq P6 (polar P5 (+ ang (* 1.25 pi)) Dist2))

  (Command "_.PLine"	 P1	P2     "_A"   "_R"   Rv	    P3
	   "_L"	  P5	 "_A"	"_R"   Rn     "_ANG" -90    P6
	   "_L"	  P1	 "_A"	"_R"   Rdug   P4     ""	   
	  )

  
  (princ)
)

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

http://forum.dwg.ru/showthread.php?p=358462&#post358462 и продолжай обсуждение там.