[X-DeViL]

1. Как создать неудаляемые слои, не прибегая к варварским методам, типа "создания линий в слое" и т.п.
2. Как массово переименовать слои?... проблема в том что есть масса файлов с определенным набором слоев... так вот по определенному списку надо их переименовать... ну допустим соответствия будут заданы в файле с определенным синтаксисом...

[vk]

1. Что значит "неудаляемые"? Слой "0" неудаляемый по определению, остальное так или иначе можно прибить.

2. Посмотри Layer Translate из тулбара CAD Standards (команда _.LayTrans)

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

Формат файла соответствий давай. Полностью задание озвучь, попробую что-нить наваять (ессно, лисп,- VB / VC / Delphi не требовать )

[Startrek]

Открой MTEXT окошко, и набери пару - тройку пустышек - по SPACE BAR-у постучи. нажми ОК.
Тепрь этот слой ну очень трудно удалить, конечно можно если сильно повозится.

[Neznayka]

Сообщение от Startrek Открой MTEXT окошко, и набери пару - тройку пустышек - по SPACE BAR-у постучи. нажми ОК. Теперь этот слой ну очень трудно удалить, конечно можно если сильно повозится.

Ну не знаю, laydel экспрессовский запросто херачит

[asys]

Очень хороший неудаляемый слой - ASHADE

[Startrek]

Уважземый Neznayka.
Так я и говорю что повозится надо, тем более что далеко не все пользуются EXPRESS TOOLS.....не все умеют, да и не все имеют.
А в принципе те kто понимают что делают, так или иначе справятся....
:shock: :shock: :shock: :shock:

[v_alex]

переименуй слой 0... потом не удалишь...

[asys]

Сообщение от v_alex переименуй слой 0... потом не удалишь...

Эт как так? :shock: Низя, ведь

[v_alex]

Сообщение от Asys Сообщение от v_alex переименуй слой 0... потом не удалишь... Эт как так? :shock: Низя, ведь

пардон... лажанулся... мне казалось что переименовывал... может в 2000м...

[VVA]

Както надо было обработать большое кол-во файлов. Делал с помощью bat+scr+lsp
Подправил для слоев
1.Скопировать все файлы в одну папку
2.Туда же все из zip'а
1.Подкорректировать путь к АКАДУ в main.bat
2.В layrren.txt задать соответствия
3.Запустить main.bat
4. В подпапке GOTOVO результат

** Исправлено **
dwg заменен на zip

[bernata]

Обалденная вещь.
Я потрясен.... Спасибо огромное VVA !
Вот бы такие штуки научиться писать......

[X-DeViL]

VVA!!!!!

То что надо....
Спасибо большое....

А в каде я нашел команду Laytrance.
Переименовывает слои...

А вот как сделать так чтобы в шаблоне слои не удалялись? Как, например, слои которые Arhitectural desktop создает?

[vk]

Сообщение от X-DeViL А в каде я нашел команду Laytrance. Переименовывает слои...

Долго искал... См. пост нумер два в этой странице

[X-DeViL]

Звиняй... не внимательно прочитал...

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

> X-DeViL: А на фига пытаться оставить в живых слои от ADT, если оно все равно их создает по мере надобности?

[VVA]

Пришла идея сделать слои неудаляемыми при помощи реакторов
В принципе получилось. Осталось подгрузить ф-ции действия. Это можно сделать через mnl, acad.lsp, acaddoc.lsp.

Код:

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

(defun C:KEEP_LAY ( / layer ID keep_list reac lay)
  (foreach lay '("DELME_PLIZ1" "DELME_PLIZ2")
  (setq layer (vla-add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) lay))
  (setq ID (vla-get-ObjectID layer))
  ;;;Ведем словарь KEEP_LAYER '((ID_1 NAME_1) ... (ID_N NAME_N))
  ;;;где  ID_xxx - ID объекта, возвращаемого ф-цией vla-get-ObjectID
  ;;; NAME_xxx   - Имя слоя
  (if (null (assoc ID (setq keep_list (vlax-ldata-get "KEEP_LAYER" "DONT_ERASE")))) ;_Нет в списке вечных
    (progn
      (setq reac (VLR-Object-Reactor (list layer) "Удаление слоя" '((:vlr-erased . dellay))))
      (setq keep_list (append keep_list (list (list ID (vla-get-name layer)))))
      (princ (strcat "\nСлой " (vla-get-name layer) " защищен от удаления"))
      (vlax-ldata-put "KEEP_LAYER" "DONT_ERASE" keep_list)
;;;_2      (if (not (vlr-pers-p reac))(vlr-pers reac))
      )
    )
  )
  (princ)
)
(defun dellay (vlao reac args / name ID keep_list layer reac)
  (setq ID (vla-get-ObjectID vlao))
  (if (setq name (assoc ID (setq keep_list (vlax-ldata-get "KEEP_LAYER" "DONT_ERASE"))))  ;_в списке вечных
    (progn
      (setq name (cadr name))
      (setq keep_list (vl-remove (assoc ID keep_list) keep_list))
      (setq layer (vla-add (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) name))
      (setq ID (vla-get-ObjectID layer))
      (setq keep_list (append keep_list (list (list ID (vla-get-name layer)))))
      (setq reac (VLR-Object-Reactor (list layer) "Удаление слоя" '((:vlr-erased . dellay))))
      (princ (strcat "\nНельзя удалять слой " name))
      (vlax-ldata-put "KEEP_LAYER" "DONT_ERASE" keep_list)
;;;_2      (if (not (vlr-pers-p reac))(vlr-pers reac))
      )
    )
  )

Однако выяснилось, что если перевести реактор в постоянный режим (раскоментарить ;;;_2) до дело не доходит до рекции :vlr-erased
Acad говорит, что слой содержит объекты. Мне кажется, что это и есть ответ на вопрос X-DeViL

1. Как создать неудаляемые слои, не прибегая к варварским методам, типа "создания линий в слое" и т.п.

Создать постоянный реактор на слой, который удалить можно только программно.

[ki]

Привет. Можно сделать следующие действия:
0. сделать текущим нужный слой,
1. нарисовать пару линий,
2. сделать из них блок,
3. удалить блок.
Все, пока командой "purge" не удален блок из файла рисунка, слой не удалить. Немного варварски, но работает.