[Данила123456]

Добрый день.
На работе стоит "хороший комп" и AutoCAD 2011, дома - "плохой комп" и, соответственно, AutoCAD 2007.
Очень привык к команде Islolate Objects (Islolate Objects, Hide Objects, End Object Isolation).
Возможно её интегрировать в AutoCAD 2007, заменить как-нибудь её?

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

Эти команды есть в AutoCAD Architecture. Да и лисповые решения были, насколько я помню...

[Данила123456]

А AutoCAD Architecture установится на слабый комп?
Лисповые решения - это как?

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

http://forum.dwg.ru/showthread.php?t=1707
http://forum.dwg.ru/showthread.php?p=103407
http://www.caduser.ru/forum/index.ph...428&MID=126439

[Данила123456]

спасибо, буду читать, разбираться!

[Данила123456]

Кулик Алексей aka kpblc,
вставил себе отсюда http://www.caduser.ru/forum/index.ph...428&MID=126439 код написанный , но команда не работает.
его просто скопировал и в строку команд и enter? или как-то по-другому надо активировать?

http://forum.dwg.ru/showthread.php?p=103407 - отсюда ссылки не работают, которые даны по этой теме

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

Советую прочитать http://dwg.ru/pub/9 . А по ссылке "страница не найдена", и непонятно, что и откуда скопировано...

[VVA]

Сообщение от Данила123456 http://forum.dwg.ru/showthread.php?p=103407 - отсюда ссылки не работают, которые даны по этой теме

Я свою ссылку поправил. Теперь работает

*** Добавлено

А по ссылке "страница не найдена", и непонятно, что и откуда скопировано...

Я думаю отсюда LISP. Аналог Isolate objects (ADT) для AutoCAD
+ еще ода ссылка Double "Hide/isolate objects" is it possible?

[Данила123456]

при использовании лиспа отсюда http://www.caduser.ru/forum/index.ph...D=44&TID=22428
выдаёт такю тему - ; error: too few arguments
сделал всё как здесь - http://dwg.ru/pub/9
что-то неправильно делаю?

[VVA]

Данила123456, Там 3 лиспа. Какой из них используешь?

[Данила123456]

всё заработало. Спасибо!
а как можно сделать, чтобы постоянно не набирать в командной строке (kpblc-objects-hide 0) или не искать в уже набранных командах, а просто заменить на кнопку или одну букву?

[VVA]

Замена на букву H (лат)
(defun C:H ()(kpblc-objects-hide 0))

[Данила123456]

данную строк я должен вставить в лисп и опять его подгрузить?
сдела так и теперь выдаёт ошибку описанную в http://dwg.ru/art/8 (AutoCAD ; error: no function definition
Вставляю в командную строку всё что написано там: сначало эт команду - Команда: (vlax-get-acad-object)
; error: no function definition: VLAX-GET-ACAD-OBJECT
потом эту - (vl-load-com)

всё равно эта же ошибка.
Также делал лисп из этого и подгружал (vlax-get-acad-object)
; error: no function definition: VLAX-GET-ACAD-OBJECT

[VVA]

Сохрани как hide.lsp

Код:

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

;|==================================================*===========================
*    Скрытие выбранных объектов / невыбранных объектов / показ всех объектов.
* Сделано в качестве попытки создания аналога ADT-шной команды Isolate objects.
* Работает только в активном пространстве.
*    Параметры вызова:
*   bit   что делать. 0 - показать все; 1 - скрыть выделенные; 2 - скрыть
*      все, кроме выделенных
*    Примеры вызова:
(kpblc-objects-hide 0)   ; Показать все объекты
(kpblc-objects-hide 1)   ; Скрыть выделенные объекты
(kpblc-objects-hide 2)   ; Скрыть все, кроме выделенных
==================================================*===========================|;
(defun kpblc-objects-hide (bit / selset selset_all msg item)
  (vl-load-com)
  (if (not *kpblc-activedoc*)
    (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (vla-startundomark *kpblc-activedoc*)
  (cond
    ((= bit 1) (setq msg "Скрыть выделенные объекты"))
    ((= bit 2) (setq msg "Скрыть кроме выделенных"))
    ) ;_ end of cond
  (if (= bit 0)
    (progn
      (setq selset (ssget "_A"))
      (while (and selset (> (sslength selset) 0))
        (setq item (ssname selset 0))
        (ssdel item selset)
        (vla-put-visible (vlax-ename->vla-object item) :vlax-true)
        ) ;_ end of while
      ) ;_ end of progn
    (progn
      (setq selset (ssget "_I"))
      (while (not selset)
        (prompt msg)
        (setq selset (ssget))
        ) ;_ end of while
      (cond
        ((= bit 1)                      ; Скрывать выделенные
         (while (and selset (> (sslength selset) 0))
           (setq item (ssname selset 0))
           (ssdel item selset)
           (vla-put-visible (vlax-ename->vla-object item) :vlax-false)
           ) ;_ end of while
         )
        ((= bit 2)                      ; Скрывать кроме выделенных
         (setq selset_all (ssget "_A"))
         (while (and selset_all (> (sslength selset_all) 0))
           (setq item (ssname selset_all 0))
           (ssdel item selset_all)
           (if (not (ssmemb item selset))
             (vla-put-visible (vlax-ename->vla-object item) :vlax-false)
             ) ;_ end of if
           ) ;_ end of while
         )
        ) ;_ end of cond
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark *kpblc-activedoc*)
  ) ;_ end of defun
(defun C:H ()(kpblc-objects-hide 1))
(defun C:V ()(kpblc-objects-hide 0))
(princ "\nType in command line:"
(princ "\nH - hide selected objects")
(princ "\nV - visible all")
(vl-load-com)
(princ)

Если при загрузке будут ошибки - перестанавливай Автокад