[dextron3]

Есть лисп который сортирует размеры в размеры штриховку штриховку, а тут задача такова:

тоесть после первого лиспа дополнительно разсортировать уже линии и полилинии и т.п.

Некоторые специалисты любят рисовать разными цветами разными тощинами, но все в одном слое, хотелось бы автоматизировать процесс сортировки:

Создаются слои типа Color23-t030,
первая часть это цвет, вторая толщина линии,

Буду благодарен, если кто то сталкивался с такой проблемой...
может есть решение

[Profan]

Есть лисп который сортирует размеры в размеры штриховку штриховку,

Написано коряво. Видимо, должно быть так:
Есть лисп, который переносит объекты "размеры" на слой "размеры", объекты "штриховка" на слой "штриховка" и т.д.
По типам объектов может получится максимум 25 слоев. Однако! Каждый объект ведь имеет свой цвет, тип линии и вес. Допустим, ни у одного объекта нет свойства "ПоСлою". Тогда требуемая новая сортировка создаст еще кучу слоев, а те слои, которые только что были созданы по типу объекта, окажутся пустыми. Но это ничего еще. А вот если объекты имеют вперемешку свойства, заданные явно и свойства "ПоСлою", а слои уже созданы неизвестно с какими параметрами...
"Пришел старик опять к синему морю и стал кликать золотую рыбку".

[dextron3]

**** АЛГОРИТМ ****


СОРТИРОВКА ПО СЛОЙНО:

1. Штриховки
2. Размеры
3. Текст
а) Белый текст
б) Желтый текст
а) Синий текст
б) Красный текст

Если текст одного цвета то сортировать по стилю

4. Мультитекст
а) Белый м-текст
б) Желтый м-текст
а) Синий м-текст
б) Красный м-текст

Если м-текст одного цвета то сортировать по стилю

5. Линии (тут самое интересное)

Сначало линии сортируем по цвету, и присваиваем значения по слоям
Затем линии цветные сортируем по толщине, и уже к названию цвета прибавляем цыфровой набор толщин, тоесть Желтая030, Желтая 040

Потом создаем набор полученных слоев

А теперь понятнее?

PS/ Некоторые недоброжелатели иногда перегоняют в нулевой слой все объекты, не удобно потом как то становиться рис перебирать...

[Sleekka]

optitools может подойдет?

[Profan]

Желание-то понятно, только хрень это полная, IMHO.

[dextron3]

Sleekka, покажи гиф

[VVA]

dextron3, Для выбора примитивов по некоему признаку (цвет, стой и т.д.) попробуй SSX из Express Tools

[crosandr]

Сообщение от dextron3 Есть лисп который сортирует размеры в размеры штриховку штриховку

ссылочкой поделитесь?
потому как похожая задача возникла

[skkkk]

Что тут может быть быстрее быстрого выбора (_qselect)?

[crosandr]

Сообщение от skkkk Что тут может быть быстрее быстрого выбора (_qselect)?

lisp хочется.

[VVA]

Для вновь создаваемых здесь посмотри
Автоматический перенос размеров на слой размеры. Break макро

[crosandr]

Сообщение от VVA Для вновь создаваемых

Вот этот вопрос как раз давно решен реакторами, но все равно за ссылку спасибо.
Нужен лисп, чтоб расфасовку делал в уже существующем файле. Приходится брать за основу чертежи, в которых все начерчено в слое ноль черным чветом (такое тоже еще встречается). Или бывают варианты в которых примитивы разного типа (размеры, штриховка, текст, выноски и т.п.) лежат по слоям совершенно хаотично на мой взгляд. Так вот хочется отделить мух от котлет и разложить все по полочкам. Думаю, что в похожей ситуации побывали многие. Своя разработка есть, но кривая и не отлаженная. Может прогрессивное человечество этот вопрос давно решило?

[VVA]

Набросал по быстрому расфасовочку

Код:

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

(defun c:Obj2lay (/ ss rule)
  ;;; VVA for dwg.ru
  ;;; http://forum.dwg.ru/showthread.php?p=870797#post870797
  ;;; Правило: 1-й элемент списка значение dxf группы 0
  ;;;          2-й элемент - имя слоя
  ;;;  Чтобы узнать значение dxf группы 0
  ;;; скопируйте в командную строчку строку ниже без символов ;;; начиная с (
  ;;; (cdr(assoc 0 (entget(car(entsel)))))
  (setq	rule ;;;Правило
	 (list
	   (list "DIMENSION" "DimLayer")
	   (list "TEXT" "TextLayer")
	 )
  )
  (if (setq ss (ssget "_:L"))
    (
     (lambda (i / e lay)
       (while (setq e (ssname ss (setq i (1+ i))))
	 (if (setq lay (assoc (cdr (assoc 0 (entget e))) rule))
	   (entupd
	     (cdr
	       (assoc -1
		      (entmod
			(subst
			  (cons 8 (cadr lay))
			  (assoc 8 (entget e))
			  (entget e)
			)
		      )
	       )
	     )
	   )
	 )
       )
     )
      -1
    )
  )
  (princ)
)

[crosandr]

Сообщение от VVA Набросал по быстрому расфасовочку

Спасибо, то, что нужно. Остальное сам допишу.

[skkkk]

Есть лисп который сортирует размеры в размеры штриховку штриховку

Наткнулся еще на один подобный

[VVA]

skkkk, Это одна из модификаций кода по ссылке из #11 и применим для вновь создаваемых, а требовалось

Сообщение от crosandr Нужен лисп, чтоб расфасовку делал в уже существующем файле.