[Бали]

У меня возникла такая задача, даже две. Возможно это уже обсуждалось, но я не видел
Задумка, состоит в том, чтобы доставить проблемы тем, кто не желает приводить свои чертежи к удобоизменяемости. Может поймут что такое автокад :twisted:
Дано: Чертеж с н-ным кол-вом слоев, текстовых и размерных стилей, все красиво и цивильно.
Задача 1: Преобразовать чертеж так, чтобы визуально он остался таким же (цвет, толщина, тип линий, свойства текстов и размеров), но кол-во слоев уменьшилось до одного стандартного, к примеру слой "0", также кол-во текстовых и размерных стилей соответственно тоже до одного стандартного.
Задача 2: Все по тому же принципу, только вместо одного слоя или стиля, перевести каждый элемент в свой собственный стиль и слой, в итоге получится красивый снаружи, но уродливый внутри монстр.
Переделывать преобразованные таким образом чертежи, для людей, поверхностно знающих автокад, думаю будет неудобно или даже сложновато, для чуваков же, вроде вас, это будет проще пареной репы.
PS: Возникла эта задача при переделке(не оформительская, а конструктивная, чето там неправильно было, а чел который все это наваял отсутствовал) мною кривых чертежей, принадлежащих людям, которые не знаю почему не пользуются ни слоями, ни текстовыми, ни размерными стилями.

[VVA]

Тогда забудь про текстовые стили.

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

Бали, не мучайся, используй flatten с режимом удаления невидимых. В потом лисп VVA.
Только проворачивай на копии.

[VVA]

Хочешь насолить, попробуй это
http://forum.dwg.ru/showpost.php?p=236810&postcount=3
(пробуй на копии)

[Олег К.]

>> VVA
Чисто на уровне идеи: что если при выполнении первой задачи имя слоя и стиль текста писать в расширенные данные каждого объекта (примитива), а во 2-й по этим данным все восстанавливать?
Вот только все начерченное между этими действиями останется без изменений.

[Bull]

Не стал всё это читать, скажу токо IMHO.

ПЕРВАЯ - решение чревато возникновением случайных ошибок. Раз стили размеров все приводятся к одному.

ВТОРАЯ - обезьянья работа. ОООООчень кропотливая и бестолковая при этом. Лисп, конечно, в этом поможет. Только чтоб его написать, нужно сначала узнать, что натворено до этого. И опять таки, можно случайно размеры испортить. Не все же рисуют в одном листе/модели в единственном масштабе.

Остается только посоветовать применить материальный стимул для т.н. "нормальной" работы с наказанием для "отклоняющихся".

[Zouss]

сображение по поводу обратной задачи - разносить объекты по комбинации свойств цвет, тип линии, толщина (которая вес).
соответственном и имена новым слоям давать вида #_linetype_##, где # номер цвета, linetype имя типа линии, ## толщина линии. количество слоев будет вполне приемлемо

Код:

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

(defun C:deplusher (/ divider adoc ss n ed en colr lint linw lname)
  (defun makelayer (lname colr lint linw /)
    (entmake
      (list
	(cons 0 "LAYER")
	(cons 100 "AcDbSymbolTableRecord")
	(cons 100 "AcDbLayerTableRecord")
	(cons 70 0)
	(cons 2 lname)
	(cons 62 colr)
	(cons 6 lint)
	(cons 370 linw)
      ) ;_  list
    ) ;_  entmake
  ) ;_  defun

  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (setq	divider	"__"
	ss	(ssget "X")
	n	(sslength ss)
  ) ;_  setq
  (repeat n
    (setq ed	(entget (setq en (ssname ss 0)))
	  colr	(cdr (assoc 62 ed))
	  lint	(cdr (assoc 6 ed))
	  linw	(cdr (assoc 370 ed))
	  lname	(strcat (itoa colr) divider lint divider (rtos linw))
    ) ;_  setq
    (if	(not (tblsearch "LAYER" lname))
      (makelayer lname colr lint linw)
    ) ;_  if
    (setq ed (subst (cons 8 lname) (assoc 8 ed) ed)
	  ed (subst (cons 6 "bylayer") (assoc 6 ed) ed)
    ) ;_  setq
    (entmod ed)
    (ssdel en ss)
  ) ;_  repeat
  (vla-endundomark adoc)
  (princ)
) ;_  defun

только цвет и толщину линии установить в bylayer с наскоку чёт не получилось

[Бали]

Всем кто пытался помочь выражаю большой респект. Пасиба.