[Вовочка]

Всем привет.
Есть n-ое количество кругов (около 2 тыс.). Задача: проставить в их центрах примитив "точка". Вопрос: можно ли как-то это автоматизировать?
Комманду "массив" не предлагайте - круги расставлены хаотично.
Спасибо.

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

osmode поставь на "Центр" и вызывай команду _.point. Потом копировать последний примитив.
Поскольку вопрос в разделе "AutoCAD", будет еще пара-тройка ответов аналогичного плана, мне кажется. Потом у кого-нибудь лопнет терпение и будет предложен лисп / .NET / VBA.

[gomer]

Сообщение от Вовочка Есть n-ое количество кругов (около 2 тыс.). Задача: проставить в их центрах примитив "точка". Вопрос: можно ли как-то это автоматизировать?

не знаю на кой это надо, разве что в учебных целях, проще простого

[Вовочка]

gomer. Нужно это для перевода этих точек в иную программу. Мне показали нечто похожее toolpace, но во-первых не то, а во-вторых у меня его нет.

[gomer]

Код:

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

 ((lambda ( / ss i)
   (if (setq ss (ssget '((0 . "CIRCLE"))))
     (progn
       (setq i -1)
       (repeat (sslength ss)
	 (entmake (list
		   '(0 . "POINT")
		    (assoc 10 (entget (ssname ss (setq i (1+ i)))))
		  )
	 )
       )
     )
   )
   (princ)
 )
)

5 минут делов