[Mozgunov]

Уважаемые форумчане! Нужно программно удалить некоторые слои посредством autolispa Все примитивы которые находились на этих слоях я копировал на слой defpoints. Кто сталкивался подскажите пожалуйста конструкцию для удаления слоя. Спасибо!

[===AAA===]

Я просто показал, что "китайский" слой в этом смысле
не особо отличается от любого другого.

Суть-то проблемы именно в этом была. Или не?

[koMon]

Сообщение от Gretech89 Подскажите, как можно удалить слой, если он на китайском?

команда _laydel удаляет слой на китайском и объекта на нём.

[Gretech89]

name02,
1. Не знаю, может это от версии Автокада зависит? У меня 2021. Команда СЛОЙОБЪЕД не срабатывает, когда пытаюсь выделить объекты на китайском слое..
2. В идеале нужен скрипт, который удалял бы объекты на китайском слое, а затем и сам этот слой.

----- добавлено через ~4 мин. -----

Сообщение от ===AAA=== Да ладно! (setq aaa (ssget)) (command "_erase" aaa "") и нету их...

Вот такой вариант сработал! Объекты со слоя удаляются. Однако надо потом удалить сам китайский слой..

----- добавлено через ~5 мин. -----

Сообщение от koMon команда _laydel удаляет слой на китайском и объекта на нём.

не срабатывает(

[name02]

Сообщение от Gretech89 не срабатывает(

Удалять можно только неактивный в данный момент слой!

Удалить слой можно так:

Код:

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

 (defun c:LDEL (/ a)

  (setvar 'CLAYER "0")
  (setq a (car (entsel "\nУкажите объект на удаляемом слое:")))
  (command-s "_LAYDEL" a "" "_Y")
  (princ)

) ;_ end defun

[Gretech89]

koMon, name02, извиняюсь, да, всё срабатывает (команда _LAYDEL).
Я так понимаю только таким образом можно удалить объекты и сам китайский слой?
Указать в самом скрипте (например в #13 от VVA) китайский слой видимо не возможно.. Автокад не воспринимает китайские символы..

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

Offtop: Точнее, не ACAD, а лисп.

[Gretech89]

Сообщение от Gretech89 Подскажите, как можно удалить слой, если он на китайском? Пробовал сохранять скрипты в кодировке Юникод, результатов не дало. Пример файла с китайским слоем:

Решение найдено. Как вариант можно так поступать: перейти в слой 0, выбрать и удалить объекты на китайском слое, затем удалить все пустые слои.
Как оказалось иероглифы можно записать шестнадцатеричными номерами символов в стандарте Юникод. Например, "面板轮廓" можно записать как "\U+9762\U+677F\U+8F6E\U+5ED3".

Код:

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

 (defun C:cn-layer-delete (/ ss)

(command "_layer" "_m" "0" "")
(setq ss (ssget "_X" '((8 . "\U+9762\U+677F\U+8F6E\U+5ED3"))))

(if ss
    (progn (foreach ent ((lambda (/ tab item)
                           (repeat (setq tab  nil
                                         item (sslength ss)
                                         )
                             (setq tab (cons (ssname ss (setq item (1- item))) tab))
                             )
                           )
                         )
             (entdel ent)
             )
            )
           )

(command "_-purge" "_la" "*" "_no")
  
)

[name02]

Тогда уж вот так можно сделать - для более удобного, как мне кажется, использования (можно указывать имя слоя не меняя код программы и отменить, если ошибочно удалил слои):

Код:

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

 (defun C:cn-layer-delete (/ ss layer-name *adoc*)
  
  (setq *adoc* (vla-get-activedocument (vlax-get-acad-object)))
  
  (setvar 'CLAYER "0")

  (setq layer-name (vl-string->list (getstring T "\nУкажите имя удаляемого слоя: ")))
  
  (vla-startundomark *adoc*)
  
  (setq ss (ssget "_X" (list (cons 8 (vl-list->string layer)))))

  (if ss
    (progn (foreach ent ((lambda (/ tab item)
                           (repeat (setq tab  nil
                                         item (sslength ss)
                                   ) ;_ end setq
                             (setq tab (cons (ssname ss (setq item (1- item))) tab))
                           ) ;_ end repeat
                         ) ;_ end lambda
                        )
             (entdel ent)
           ) ;_ end foreach
    ) ;_ end progn
  ) ;_ end if

  (command "_-purge" "_la" "*" "_no")
  
  (vla-endundomark *adoc*)
  
) ;_ end defun

[Gretech89]

name02, спасибо, возьму на заметку