[Fedorino]

Здравствуйте, форумчане! Искал здесь решение подобного вопроса и ничего не нашел, возможно плохо искал.
Подскажите, как с помощью lisp добраться до пояснения к слоям. Т.е. слой создать получается с помощью entmake.
Но необходимо еще и добавить текстовое пояснение к слою. Например, "видовые экраны".
Как это сделать не используя command? Желательно не трогать ActiveX, я пока в них не разбираюсь.
Заранее, спасибо!

[VVA]

Создай слой с именем 1
Задай ему пояснение "видовые экраны"

Код:

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

(setq l (TBLOBJNAME "layer" "1"))
(entget l '("*"))

Команда: (entget l '("*")) ((-1 . <Имя объекта: 7ffffb06000>) (0 . "LAYER") (330 . <Имя объекта: 7ffffb03820>) (5 . "78") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "1") (70 . 0) (62 . 7) (6 . "Continuous") (290 . 1) (370 . -3) (390 . <Имя объекта: 7ffffb038f0>) (347 . <Имя объекта: 7ffffb03a10>) (-3 ("AcAecLayerStandard" (1000 . "") (1000 . "видовые экраны"))))

Готовые функции и команды
Lisp. Создание слоя(слоёв) из мастер-списка. Изменения в программу CLAY от JefferyPSanders
http://forums.autodesk.com/t5/Visual...sp/m-p/3873176

[Fedorino]

Большое спасибо! Все понятно, т.е. мы раздвинули границы отображения списка dxf кодов.

[VVA]

Сообщение от Fedorino т.е. мы раздвинули границы отображения списка dxf кодов.

Это называется "расширенные данные" или xdata (поищи xdata.lsp в express tools
Кое что есть здесь
Пару ссылок я добавил в предыдущий пост

[Fedorino]

Спасибо! Вот уже второй месяц читаю книгу Полещука "Autolisp в среде AutoCAD", про (entget l '("*")) ничего сказано не было.
Про расширенные данные есть параграф, но я так понял там говорится о собственном приложении, которое будет извлекать эти расширенные данные.

----- добавлено через ~9 мин. -----
И еще вопрос можно? Решение где-то в области расширенных данных.
Как сделать слои уникальными? Т.е. поместить некоторую метку в создаваемый слой.
Это планируется сделать для того, чтобы если пользователи переименовали слой, изменили цвет и описание слоя.
То при следующем открытии чертежа, все вернулось во свояси. Вот думаю за какой dxf код зацепиться.

[nolte]

я так думаю создай в программе образцы слоев какие надо и проверяй действующие в акаде скажем по имени согласно образцу.

[Fedorino]

nolte, слишком просто, нужно, слой возвращать в исходное состояние.
допустим есть слой созданный ВЭ. А в нем по dxf коду №x есть данные=const у всех пользователей.
Пользователь поменял название слоя, изменил цвет, пояснение и др.
Но я то знаю что по коду x у меня этот слой имел название ВЭ.
И возращаю его при след запуске в исходное состояние.
Теперь и осталось найти этот код x, либо его как то присвоить в качестве расширенных данных.

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

В таком случае советую использовать внешние файлы настроек и при необходимости читать данные оттуда. Получается намного более гибкое решение.

[nolte]

Я так думаю что лучше загонять в расширенные данные ключик слоя, потом по ключу проверять dxf коды и если надо то править их. Если слоев много и они добаляются, то лучше способ из внешнего файла, если мало то мона просто лиспом определить их и проверять.

[Fedorino]

nolte, ага склоняюсь к первому варианту. Хотелось бы посмотреть вариант №2 - настройки из внешнего файла.
Может кто кинет ссылочку на подобный код, желательно код без ActiveX, я еще новичок в лиспе.
Всем спасибо, за подсказки!

[nolte]

вроде как наваял чего то тестируйте критикуйте
лиспик записывает настройки слоя стандартизируемого в файл txt, в новом документе проверяет если есть стандартные слои, проверяет если настройки этих слоев изменены и если изменены возвращает их к стандарту,
если стандартный слой отсутствует в чертеже, то создает его.
Следует изменить путь файла основного и временного на свой, я так думаю что можно добавить или убрать коды по своему усмотрению.
функция для добавления в текстовый файл новых стандартных слоев - 811
функция для проверки соответствия слоев - 810

сори запамятовал про подсказку gomer'a (спасибо ему), ее надо добавить в файл.

Код:

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

 
(defun dxf (x y)
(cdr (assoc x (entget y)))
)

L_lay_standart.lsp

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

Команда _.checkstandards делает все то же самое, и еще немного

[nolte]

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

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

http://www.google.ru/cse?cx=partner-...oad&gsc.page=1

----- добавлено через 42 сек. -----
Дополнительно: http://www.caduser.ru/forum/index.ph...D=44&TID=22816