[Kirill_Ja]

Есть примитивы, которые надо создать в определенном слое, но далеко не факт, что этот слой уже существует в чертеже. Скажите, а как проверить его наличие?

[mamuk]

tblobjname используй на проверку слоя, вроде бы так. вроде через entmake слой создается автоматом, т.е. если будешь примитив создавать и в в списке укажешь слой необходимый тебе для данного примитива, то он создасца автоматически

[Kirill_Ja]

Спасибо.

[VVA]

Сообщение от mamuk вроде через entmake слой создается автоматом, т.е. если будешь примитив создавать и в в списке укажешь слой необходимый тебе для данного примитива, то он создасца автоматически

Или если делать entmod, то так же слой создается автоматически

[Олег (jr.)]

Сообщение от Kirill_Ja Есть примитивы, которые надо создать в определенном слое, но далеко не факт, что этот слой уже существует в чертеже. Скажите, а как проверить его наличие?

Ничего можешь не проверять, Автокад сам проверяет
Просто пиши

Код:

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

 (command "_.-layer" "_N" "Мой слой" "")

и смотри отклик в командной строке

[gomer]

Код:

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

 (defun LayerNameList ( / res)
  (setq res '())
  (vlax-for lyr (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
    (setq res (cons (vla-get-Name lyr) res))
  )
  (cond (res (acad_strlsort res)))
)
(vl-load-com)
(or (member "LyrName" (LayerNameList)))

[Дима_]

То Gomer - 2 строка лишняя.

[gomer]

Сообщение от Дима_ 2 строка лишняя.

это в воспитательных целях

[Stoner]

Ничего можешь не проверять, Автокад сам проверяет Просто пиши Код: (command "_.-layer" "_N" "Мой слой" "") и смотри отклик в командной строке

А возможно средствами Diesel проверить существования слоя?
Или всё же задать команду, чтобы каждый раз создавался слой?

[VVA]

Сообщение от Stoner Или всё же задать команду, чтобы каждый раз создавался слой?

Используй вместо опции _New опцию _Make. В этом случае если слоя нет, то он будет создан. Если - есть, то установлен текущим.

(command "_.-layer" "_M" "Мой слой" "")

[Kirill_Ja]

Ох как же давно это было))))
Вызывает приступы теплоты и ощущение ламповости)
Решил так:

Код:

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

 (defun tg_set_layer (n_layer /)
;;;Óñòàíàâëèâàåò ñëîé n_layer òåêóùèì
(if (not (tblsearch "layer" n_layer))
  	(entmakex (list
		(cons 0 "LAYER")
		(cons 2 n_layer)
		    )) )
(vl-cmdf "_.LAYER" "_m" n_layer)
(vl-cmdf)
);end defun

Спасибо за ответ.

[Stoner]

Сообщение от Kirill_Ja Ох как же давно это было)))) Вызывает приступы теплоты и ощущение ламповости) Решил так: Код: [Выделить все] (defun tg_set_layer (n_layer /) ;;;Óñòàíàâëèâàåò ñëîé n_layer òåêóùèì (if (not (tblsearch "layer" n_layer)) (entmakex (list (cons 0 "LAYER") (cons 2 n_layer) )) ) (vl-cmdf "_.LAYER" "_m" n_layer) (vl-cmdf) );end defun Спасибо за ответ.

Спасибо, то что нужно.

[gomer]

Сообщение от Kirill_Ja Решил так:

То есть я так понимаю setvar - это для ботанов, а тру лисперы не ищут легких путей?

[Alan]

Сообщение от VVA Используй вместо опции _New опцию _Make. В этом случае если слоя нет, то он будет создан. Если - есть, то установлен текущим.

Единственное замечание. Слой не должен быть заморожен/выключен.

Команда: (command "_.-layer" "_M" "Мой слой" "") _.-layer Текущий слой: "0" Задайте параметр [?/Создать/Установить/Новый/переименоватЬ/Вкл/Откл/Цвет/Тип/вЕс/Прозрачность/Материал/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация/опИсание/соГласовать]: _M Введите имя нового слоя (этот слой станет текущим) <0>: Мой слой Слой "Мой слой" заморожен. Не может стать текущим до размораживания. ; ошибка: Функция отменена

Сообщение от gomer То есть я так понимаю setvar - это для ботанов

К этому замечанию тоже относится

Команда: (setvar "clayer" "Мой слой") ; ошибка: Настройка переменной AutoCAD отвергнута: "clayer" "Мой слой"

ИМХО. Правильнее всё таки заниматься созданием/деланием текущим слоя в ЛИСП-тексте, где и учесть этот, ну и некоторые другие нюансы.

Сообщение от Stoner А возможно средствами Diesel проверить существования слоя?

Я увидел это попозжее... С Diesel (наверное тут LT) конечно ЛИСП не пройдёт.

[Stoner]

Не LT, но походу придётся lisp серьёзно изучать.

[Alan]

Сообщение от Stoner но походу придётся lisp серьёзно изучать

Есть известная программа makelayer от Lee Mac

Код:

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

 ;;; (MakeLayer  "Cen"         6           "CENTER"          0.18          nil )
;;;	     ;    Name        Colour        Linetype        Lineweight        Plot?
(defun makelayer (name colour linetype lineweight willplot par_lock)
...
  ;; © Lee Mac 2010

Мне она подошла, но не совсем понравилась, я там помнится добавлял анализ отрицательных значений lineweight
и объединил с анализом вкл/выкл, блок/разбл, заморожен/разморожен.
ИМХО. Программа установки текущим какого-либо слоя, должна включать:
1.анализ наличия
2.если нет создать с необходимыми параметрами
PPS. Так как я непрофессиональный программист свой текст не привожу, такие программы есть также у kpblc"a да и в ruCAD