[abyss]

Добрый день, форумчане. Столкнулись с нетривиальной проблемой: ЧПУ станки дают раскрой в одном листе, а программа всасывающая эти данные -- хочет, чтобы каждый элемент был на своем слое.
Стандартный взрыв автокада, тут, конечно, не годится.
Как, очевидно, макросом разбить, допустим 50 кружков и квадратиков на одном слое в автокаде на 50 разных слоев. Автоматически?

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

Сам AutoCAD подобное делать не умеет, насколько я знаю. Нету в нем штатных команд под такие задачи, как мне кажется.

[Сергей812]

Сообщение от abyss ЧПУ станки дают раскрой в одном листе, а программа всасывающая эти данные -- хочет, чтобы каждый элемент был на своем слое.

неожиданный переход от листа к слоям)

А так задача тривиальная:
1. Создается набор примитивов;
2. В цикле пройти по этому набору, создавать слой с именем %Имя слоя_% + индекс цикла и переносить туда текущий элемент из набора.
но это другая ветка уже - программирование или поиск исполнителей.

[skkkk]

Раз плюнуть:

Код:

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

 (vl-load-com)
(defun C:UNIQLAYER ( / ss i vl_obj layer_name)
	(setq ss (ssget "_A"))
	(if ss
		(repeat (setq i (sslength ss))
			(setq vl_obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
			(setq layer_name (vla-get-Name (create-layer (vla-get-Handle vl_obj) 256 nil nil T)))
			(vla-put-Layer vl_obj layer_name)
		)
	)
	(princ (strcat "\nОбработано объектов: " (itoa (sslength ss))))
	(princ)
)


;;; Вспомогательная функция 
;;; Создание нового слоя.
;;; Аргументы: имя; цвет, тип линии, вес линии (если nil, то по умолчанию); печатаемость(T - да, nil - нет)

(defun create-layer (layer_name color linetype lineweight no_print / adoc col vla_layer)
	(setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
		  col 
			(vla-GetInterfaceObject 
				(vlax-get-acad-object)
				(strcat "autocad.accmcolor." (vl-princ-to-string (atoi (getvar "acadver"))))
			)
	)
	(if	(null (tblsearch "layer" layer_name))
		(setq vla_layer (vla-Add (vla-get-Layers adoc) layer_name))
		(setq vla_layer (vla-Item (vla-get-Layers adoc) layer_name))
	)
	(cond
	  (	color 
		(vla-put-ColorIndex col color)
		(vla-put-TrueColor vla_layer col)
	  )
	)
	(cond
	  (	linetype
		(if (not (tblobjname "LType" linetype)) (vla-load (vla-get-Linetypes adoc) linetype "acadiso.lin"))
		(vla-put-Linetype vla_layer linetype)
	  )
	)
	(cond
	  (	lineweight
		(vla-put-LineWeight vla_layer lineweight)
	  )
	)
	(vla-put-Plottable vla_layer (if no_print 0 1))
	vla_layer
)
(princ "\nC:UNIQLAYER")
(princ)

Создаст для каждого объекта слой, имя которого равно хэндлу данного объекта и разместит все объекты по своим слоям.

[Сергей812]

только осталось выяснить - что ТС подразумевает под листом, какими примитивами сделаны контура, есть ли еще информация помимо контуров.. ну и почему там фигурировало расчленение блока в топике.

[nickname2019]

Интересно, если деталь состоит из двух контуров - внутри одного контура находится другой контур (отверстие) - слои этих контуров должны быть одинаковые?