[students]

помогите написать программу.задание:
построение треугольника по 3-м точкам.
В центре построить окружность.
Предусмотреть ввод пользователем вершин и радиуса окружности

[Profan]

1. Под "центром" понимается центр тяжести?
2. Окружность именно произвольного радиуса или вписанная (описанная)?

[gomer]

Стучись, помогу недорого

[students]

нарисовать треугольник, найти центр треугольника, и этот центр треугольника и будет центр круга.Радиус произвольный ,но чтобы был внутри треугольника.Отпраляю рисунок

[hwd]

Сообщение от students помогите написать

так ты людям конкретные вопросы задавай - где и в чём у тебя затык. А то это больше смахивает на "напишите за меня", хотя судя по всему так оно по факту и подразумевается топикстартером...
Offtop: Самое печальное, что за этого лодыря тут действительно напишут... На др. форуме пишут по др. дисциплине.... А в итоге ему дадут диплом специалиста...

[students]

Я пробовал другой вариант.вставил листинг, выдает ошибку.тут нашел другой листинг - без ошибок но AutoCadе не открыл.Заморочка какая-то
Хотелось бы свой сделать.

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

Приведи код, напиши, в чем проблема и тогда можно будет уже предметно говорить.

[E-degtyarev]

Код:

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

 (defun c:test (/ pt1 pt2 pt3 ds1 an1 ds2 an2 pt4 pt5 cen)
  (setq	pt1 (getpoint "\nПервая точка")
	pt2 (getpoint pt1 "\nВторая точка")
	pt3 (getpoint pt1 "\nТретья точка")
	ds1 (/ (distance pt1 pt2) 2)
	an1 (angle pt1 pt2)
	ds2 (/ (distance pt1 pt3) 2)
	an2 (angle pt1 pt3)
	pt4 (polar pt1 an1 ds1)
	pt5 (polar pt1 an2 ds2)
	cen (inters pt3 pt4 pt2 pt5)
  ) 
  (vl-cmdf "_pline" "_non" pt1 "_non" pt2 "_non" pt3 "_non" pt1 "")
  (vl-cmdf "_circle" "_non" cen pause)
) 

Вот простенький пример. Может сгодится?

Если покомпактнее, то так:

Код:

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

 (defun c:test (/ pt1 pt2 pt3 cen)
  (setq	pt1 (getpoint "\nПервая точка")
	pt2 (getpoint pt1 "\nВторая точка")
	pt3 (getpoint pt1 "\nТретья точка")
	cen (inters pt3
		    (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
		    pt2
		    (polar pt1 (angle pt1 pt3) (/ (distance pt1 pt3) 2))
	    ) 
  ) 
  (vl-cmdf "_pline" "_non" pt1 "_non" pt2 "_non" pt3 "_non" pt1 "")
  (vl-cmdf "_circle" "_non" cen pause)
) 

[void2005]

ваще класс!!! в каде 2008 англицком работает

[Profan]

Блин, ну на хрена здесь это форматирование кода? Тормозит загрузку страницы страшно.

[Лиспер]

Profan, провайдера смени (или браузер настрой). На USB-модеме тормозов не замечено.

[students]

У меня AutoCad 2006\\скопировал код в Lisp\ в панели нажал "check edit window"\открылось окно
<Build Output> прописала ошибку ;error: bad variable name in SETQ: 3
Как ее устранить?

[lastloch]

У меня тоже AutoCAD2006 - и никаких ошибок. Все работает нормально.

[students]

Если я делаю тоже что и ты в чем тогда проблема?А как ты делаешь?

[gomer]

Сообщение от E-degtyarev Вот простенький пример.

Это к посту #1, а к посту #4?

[E-degtyarev]

Код:

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

 (defun c:test (/ pt1 pt2 pt3 pt4 pt5 pt6 cen rad)
  (setq	pt1 (getpoint "\nПервая точка")
	pt2 (getpoint pt1 "\nВторая точка")
	pt3 (getpoint pt1 "\nТретья точка")
	pt4 (polar pt1 (angle pt1 pt2) (/ (distance pt1 pt2) 2))
	pt5 (polar pt1 (angle pt1 pt3) (/ (distance pt1 pt3) 2))
        pt6 (polar pt2 (angle pt2 pt3) (/ (distance pt2 pt3) 2))
	cen (inters pt3 pt4 pt2 pt5)
	rad (min (/ (distance pt1 pt2) 4)
		     (/ (distance pt1 pt3) 4)
		     (/ (distance pt2 pt3) 4)
                     (/ (distance cen pt4) 2)
		     (/ (distance cen pt5) 2)
		     (/ (distance cen pt6) 2)
	    ) 
  ) 
  (vl-cmdf "_pline" "_non" pt1 "_non" pt2 "_non" pt3 "_non" pt1 "")
  (vl-cmdf "_circle" "_non" cen rad)
) 

Ежели к #4, можно этак, хотя с точки зрения науки геометрии - очень некрасивый вариант. Не всегда окружность вписывается в теугольник.
Gomer, я уверен, ты можешь предложить более изящное решение.

[gomer]

Сообщение от E-degtyarev уверен, ты можешь предложить более изящное решение.

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

Код:

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

 ((lambda (sp / p0 p1 p2 ln dp md l1 l2 l3 mc)
   (if
     (and
       (setq p0 (getpoint "\nУкажите первую точку треугольника: "))
       (setq p1 (getpoint p0 "\nУкажите вторую точку треугольника: "))
       (setq p2 (getpoint p0 "\nУкажите третью точку треугольника: "))
     )
      (progn
	(setq
	  dummy	(vl-load-com)
	  ln	(lambda	(p1 p2)
		  (vla-AddLine
		    sp
		    (vlax-3d-point p1)
		    (vlax-3d-point p2)
		  )
		)
	  dp	(lambda	(p1 p2 df)
		  (polar p1 (angle p1 p2) (* df (distance p1 p2)))
		)
	  md	(lambda	(ln)
		  (distance mc (vlax-curve-getClosestPointTo ln mc))
		)
	  l1	(ln p0 p1)
	  l2	(ln p1 p2)
	  l3	(ln p2 p0)
	  mc	(dp p0 (dp p1 p2 0.5) (/ 2.0 3))
	)
	(vla-addCircle
	  sp
	  (vlax-3d-point mc)
	  (* 0.75 (min (md l1) (md l2) (md l3)))
	)
      )
   )
 )
  (vla-get-Block
    (vla-get-ActiveLayout
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )
  )
)

[E-degtyarev]

Gomer. Крутизна, dummy имеет lambd-у, уважуха, преклоняю колени.

[atollon]

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

После ввода точек надо определить середины сторон, которые использовать как выбор объектов-касательных

[gomer]

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