[kupreano]

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

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

Я бы сделал блок, и им бы заменял окружности.

[Oleg T]

Не в курсе, есть ли в автокаде команда _blockify.
В Брикскаде (аналоге) она автоматом создает блоки по типу выбранных объектов (групп объектов) во всем файле.
Затем блоки, само собой, можно переопределить.
Или надо писать макрос, а это уже в программирование.

[AlexCondor]

Кажется у lee Mac есть lisp разбивающий кривые на сегменты. Если задать 6 сегментов, то кажется можно преобразовать сразу все. Попробовать сам не могу, пишу с тлф.
http://www.lee-mac.com/segmentcurve.html

[skkkk]

Сообщение от AlexCondor Кажется у lee Mac есть lisp разбивающий кривые на сегменты. Если задать 6 сегментов, то кажется можно преобразовать сразу все.

Верно, но в "ТЗ" тот случай, когда опечатка, которая решает всё:

Сообщение от kupreano они же шестиугольники описанные в эти окружности

Этот лисп создает вписанные.

[SetQ]

Offtop: Чем бы ни заниматься, лишь бы ничем не заниматься.

Код:

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

 (DeFun c:c2g (/ ss c)
  (If (SetQ ss (ssget "x" '((0 . "CIRCLE"))))
    (ProgN
      (SetVar "cmdecho" 0)
      (Command "_undo" "_be")
      (ForEach c
	       (MapCar '(Lambda	(x)
			  (Cons	x
				(Cons
				  (Cdr (Assoc 40 (EntGet x)))
				  (Cdr (Assoc 10 (EntGet x)))
				)
			  )
			)
		       (vl-remove-if 'listp (MapCar 'Cadr (ssNameX ss)))
	       )
	(Command "_polygon" 6 "_non" (Cddr c) "_c" (Cadr c))
	(EntDel (car c))
      )
      (Command "_undo" "_e")
    )
    (Prompt "\nNo circles here.")
  )
  (prin1)
)

Как использовать лисп, опубликованный на форуме