[iiscienceii]

Добрый день всем. Столкнулся с задачей написания програмки по рисованию плоского изделия и расчету его стоимости зависящей от площади изделия. Вроди получилось вот только не могу решить одну задачку. Подскажите пожалуйста Как в autolispe програмно узнать имя текущего слоя.

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

(getvar "clayer")

[iiscienceii]

Спасибо

----- добавлено через ~7 мин. -----
Еще вопрос подскажите как програмно определить существует ли слой с определенным именем?

[Do$]

Функция tblsearch вроде.

[Alan]

Сообщение от iiscienceii как програмно определить существует ли слой с определенным именем?

ну да...
Типа
(tblsearch "LAYER" "ХХХХХХ") - вернёт T если слой ХХХХХХ есть

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

Alan, слой в "dimstyle"?

[Alan]

Ой... Издержки Ctrl+C
Подправил

[iiscienceii]

Еще вопрос. Подскажите как програмно осуществить выбор объекта с определенным именем. ssget такого вроди не позволяет.

[Alan]

Сообщение от iiscienceii Подскажите как програмно осуществить выбор объекта с определенным именем. ssget такого вроди не позволяет.

Что ты имеешь ввиду под "объект с определенным именем"?

Наверное пора открыть документацию по ЛИСПу, ну или HELP хотя бы.

Функция ssget Creates a selection set from the selected object (ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list])

У ssget имеются фильтры, которые помогают при выборе объектов в набор

[iiscienceii]

Мне не нужно выбирать набор мне нужно выбрать ранее созданый объект имя которого я знаю. При чем этот объект располагается на заранее созданом слое с известным именем.

[Alan]

Ещё раз спрашиваю - "Что ты имеешь ввиду под "объект с определенным именем"?

Выбери много объектов, и сортировкой пройдись по списку со своими критериями.

[iiscienceii]

Сообщение от Alan Ещё раз спрашиваю - "Что ты имеешь ввиду под "объект с определенным именем"? Выбери много объектов, и сортировкой пройдись по списку со своими критериями.

(ssget "_X" '((0 . "LWPOLYLINE") (8 . "PLAN"))))
Выбираю все полилинии на слое PLAN. Но она не работаеет непойму почему. Выдает что слишком мало аргументов.

----- добавлено через ~27 мин. -----
Извеняюсь. Я только учусь и потому так торможу. Все решил эту проблему. Теперь возникла другая. Подкажите как перенести объкты с одного слоя на другой????

[Alan]

У тебя лишняя закрывающая скобка...
Старайся отладку вести в редакторе VLIDE, там много возможностей.
Результат сразу в переменную, в редакторе VLIDE всегда можно посмотреть содержимое.
например (setq sp (ssget "_X" '((0 . "LWPOLYLINE") (8 . "PLAN"))))

Выбираю все полилинии на слое PLAN.

Выбираю все объекты типа полилиния на слое PLAN. Так наверное правильнее сказать.
Описание работы в редакторе VLIDE см. у kpblc http://autolisp.ru/2009/09/10/vlide-misc-01/

[gomer]

Сообщение от iiscienceii Подкажите как перенести объкты с одного слоя на другой????

Грызи entmod

[Profan]

Изменить свойства. Команды "_change" ("изменить"), "_chprop" ("свойства").

[Vladimir_Sergeevich]

Сообщение от iiscienceii мне нужно выбрать ранее созданый объект имя которого я знаю

уж случаем не (sssetfirst nil (ssadd *ename*))?

Сообщение от iiscienceii Подкажите как перенести объкты с одного слоя на другой

или (vla-put-Layer (vlax-ename->vla-object *ename*) 'layername)

[VVA]

Сообщение от Vladimir_Sergeevich Подкажите как перенести объкты с одного слоя на другой

Код:

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

(setq lay "My New Layer"
      en (car(entsel))
      ed (entget en)
      )
(entmod (subst (cons 8 lay)(assoc 8 ed) ed))

Причем слоя на момент изменения может не существовать. Он создастся автоматом с настройками по умолчанию