[Serjik7]

Добрый день!

Подскажите пожалуйста как выделить все объекты на одном конкретном слое? Что бы не прятать другие слои.

Спасибо!

[TararykovDG]

Сообщение от timoshetc TararykovDG, если честно, я не разобрался как им воспользоваться...стыдно признать...как его сохранить и потом запустить?? не могли бы помочь??

Как использовать код на Лиспе

[timoshetc]

TararykovDG, у меня проблема ( а может и не проблема) в том, что копируются еще и номера строк. и не читается лисп потом

[Profan]

А что с макросом-то из сообщения 18?
И какая версия AutoCAD?

[timoshetc]

Profan, у меня акад 08. при выполнение макроса на чистый лист вставляется 2 угловых размера, хотя я копирую текстовые объекты. и копирует все существующие слои на новый чертеж, причем они выключены.

TararykovDG, все работает - все дело в кривых руках))
остается один вопрос как эту функцию посадить на кнопку, с возможностью ввода аргумента!
большое спасибо за терпение и ответы!

[Profan]

Тебе надо изменить параметры команды "_layiso" ("слойотд").

[timoshetc]

Profan, как?)) напиши целиком если не сложно

[TararykovDG]

Сообщение от timoshetc остается один вопрос как эту функцию посадить на кнопку, с возможностью ввода аргумента

Про аргумент не понял, что еще за аргумент. У меня сделано так. Лисп в автозагрузке, отдельная панель "Быстрый выбор" из нескольких кнопок, а на кнопках

Код:

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

^C^C(fast_select 0)
^C^C(fast_select 2)
^C^C(fast_select 8) ; ваш случай для выбора по слою
... ну и так далее

[Profan]

Могу еще лисп предложить:

Код:

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

(defun C:SEL_CLIP ( / echo sen ent lay ss len)
      (setq echo (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (princ "\n Определение слоя по объекту.")
      (setq sen (entsel " Выберите нужный объект: "))
(if sen
      (progn
      (setq ent (entget (car sen)))
      (setq lay (cdr (assoc 8 ent)))
      (setvar "CLAYER" lay)
      (setq ss (ssget "_X" (list (cons 8 lay))))
      (setq len (sslength ss))
      (sssetfirst nil ss)
      (sssetfirst ss ss)
      (vl-cmdf "_copyclip" "_p" "")
;      (sssetfirst nil nil)
      (princ "\n Слой: ") (princ lay)
      (princ "  Скопировано в буфер объектов = ") (princ len)
      )
      (princ "\n Объект не выбран!")
); if sen
      (setvar "cmdecho" echo)
      (princ)
)

Если код сохранить в файле sel_clip.lsp, то макрос на кнопку может иметь вид:

Код:

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

^C^C(if (not C:SEL_CLIP) (load "sel_clip")) SEL_CLIP

Сам файл должен находиться на пути доступа AutoCAD к файлам поддержки.

[timoshetc]

Profan, TararykovDG, огромное спасибо!

может посоветуете что нибудь почитать про Лисп??? уж очень заинтересовала эта тема. да и глупым выглядеть не очень)))

[Profan]

Вот тема:
http://forum.dwg.ru/showthread.php?t=82319

[timoshetc]

Profan, все работает. только когда имя файла и функции в лиспе одинаковые. по твоему варианту не хотел работать)
огромное спасибо твой лисп именно то что я и хотел!

[Profan]

timoshetc, правильно, у меня несколько похожих программ и при копировании сюда я слегка перепутал.
Подправил сообщение 28.

[timoshetc]

есть еще один вопрос:
в экспесс тулс есть функция обход слоев, можно ли сделать лисп который бы оставлял включенным несколько слоев, по выбранным на чертеже объектам?

[Astartes]

Сообщение от timoshetc есть еще один вопрос: в экспесс тулс есть функция обход слоев, можно ли сделать лисп который бы оставлял включенным несколько слоев, по выбранным на чертеже объектам?

В 2008 насколько я помню команда в Экспресс тулс. В новых версия када, она переехала в стандарнтые команды на панель Слои-2.
Изолировать слой (layer isolate) Выделяешь по одному объекту на слоях которые хочешь оставить и все.

[timoshetc]

спасибо Astartes, я всегда пользуюсь этой панелью, но вот до этой кнопки дело никогда не доходило)))