[Mazai]

Здраствуйте. Пожалуйста, научите работать со слоями. Хочу на АвтоЛИСПЕ понять, как:
1. Создать слой
2. Скопировать слой
3. Сделать слой активным (что бы все элементы чертились в нём)
4. Узнать имя активного слоя.

Подозреваю, что это делаеться с помощью объектов ActivX, но как их правильно использовать и что возможно с их помощь - не знаю. Помогите примерами, а там дальше может сам соображать начну.

[AndruxaZ]

hwd , и в правду. Что-то я уже так привык задавать вопросы на форум..

[Олег (jr.)]

Подскажите, а как сделать следующее внутри лиспа. Нужно отключить все слои, исключая определённые, затем выполняется основная программа. По окончании вернуть слои в исходное состояние.

Код:

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

(defun C:demo(/ *error*);<-- не забудь добавить сюда твои переменные
    (vl-load-com)
  (defun *error* (msg)
    ;(vl-bt)
    (command "_layerp")
    (and msg(princ msg)))

  ;; основная часть  ;;
  (command "_-layer" "_off" "007,008,009" ""); здесь твои слои через запятую

  ;; дальше твоя остальная программа
  
  ;; конец твоей остальной программы
  (*error* nil)
 (princ)
  )

[Дима_]

Олег (jr.) - красиво завернул.
Offtop: только не (*error nil*) а (*error* nil).

[Олег (jr.)]

Сообщение от Дима_ Offtop: только не (*error nil*) а (*error* nil).

Спасибо, шибко торопился однако

[dip]

Добрый вечер!
Есть у меня файл с архитектурными планами:
У меня на чертеже есть слой "Двери арх". В этом слое есть примитивы: отрезки и текст.
Мне нужно во всем файле текст из слоя "Двери арх" разом перекинуть в слой "Марки дверей".
Простым выделением текста одного слоя и переводом его в другой слой не получается.
Каждый архитектурный план это отдельный блок. Приходится заходить в каждый блок, выделять текст и перекидывать в нужный мне слой, что долго.

Поэтому у меня возник вопрос:
Есть ли возможность родными средствами Автокада или программно перевести конкретные примитивы (это может быть текст или Мтекст или таблица или другой примитив) одного слоя в другой слой,
если даже они находятся на разных блоках.

[VVA]

Программно можно

Код:

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

(defun mysetLayer ( obj )
  ;;; LayFrom - имя слоя, которому должны принадлежать примитивы (слой должен существовать)
  ;;; LayTo - имя слоя, на который перемещать (слой должен существовать)
  ;;; - lst - список имен объектов для переноса, возвращаемых функцией vla-get-ObjectName
  ;;;Пример (vla-get-ObjectName(vlax-ename->vla-object(car(entsel))))
   (setq LayFrom "Двери арх"
        LayTo "Марки дверей"
        lst '("AcDbMText" "AcDbText")
         )
  (if (and (member (vla-get-ObjectName obj) lst)
           (eq (strcase(vla-get-Layer obj))(strcase LayFrom))
           )
    (vl-catch-all-apply 'vla-put-Layer (list obj LayTo))
    )
  )
(defun C:Test()
  (vl-load-com)
  (vlax-for item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (vlax-map-Collection item 'mysetLayer)
    )
  (vla-Regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
  )

[dip]

Сообщение от VVA Программно можно

VVA, спасибо большое. Это то что нужно. Но это локальное решение задачи.
А если мыслить глобально: чтобы была возможность выбора:
1. Примитивов (текст, мтекст, таблиц и т.д) находящихся в этом файле (выбор из списка).
2. Исходного слоя находящейся в этом файле (выбор из списка).
3. Конечного слоя находящейся в этом файле (выбор из списка).