[prajdziswet]

Рисую три окружности и третья описанная вокруг их,
как видно из фото первый раз отрисовывает непонятно как,второй раз более-менее (правда описанная окружность чуть смещается, иногда - идеально)
Подскажите пожалуйста, где ошибся

Код:

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

(defun c:krug (/ p1 r r2 x1 x2 x3 x4 y1 y2 y3 y4)
  (setq p1 (getpoint "\nУкажите центр кабеля:"))
  (SETQ r (atof (GETSTRING T "радиус:")))
  (setq x1 (car p1) y1 (cadr p1))
  (setq x2 (+ x1 (* 2 r)) y2 y1)
  (setq x3 (+ x1 r) y3 (+ y1 (* r (sqrt 3))))
  (setq x4 (+ x1 r) y4 (+ y1 (/ r (sqrt 3))))
  (setq r2 (+ r (/ (* 2 r) (sqrt 3))))

  (command "_circle" p1 r)
  (command "_circle" (list x2 y2) r)
  (command "_circle" (list x3 y3) r)
  (command "_circle" (list x4 y4) r2)
  (print (strcat "радиус описанной окруж-" (rtos r2)))
  (print)
)

[Alan]

Сообщение от prajdziswet Подскажите пожалуйста, где ошибся

Программа написана просто .реново.

Сообщение от prajdziswet (setq p1 (getpoint "\nУкажите центр кабеля:"))

Перед указаниями не выключена объектная привязка... Дальше не стал смотреть.
Идите в тему http://forum.dwg.ru/showthread.php?t=22894
Читайте и думайте

[prajdziswet]

Спасибо, все нормально...дело в привязке

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

А если по ходу дела еще и поставить вид сбоку без смены UCS, станет совсем весело ))