[dextron3]

Существует ли в автокаде такая команда, чтобы выделил объекты нажал кнопку и они остались только на экране остальные стали невидимые, но при этом выделенные объекты находились в разных слоях

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

В acade такой функции нет. На autocad.ru (э-эх, когда ж его поднимут-то?) был аналог ADT-шного Isolate Objects.

[dextron3]

А ты на этот сайт архив форума закинь, чтоб далеко не ходить

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

Хорошая шутка... Если б он у меня был - закинул бы.

[Supermax]

Kpblc темнит, он уже эту функцию на лиспе давно написал. Там конечно еще много всего можно дописать, но оставить выделенное есть, как и скрыть выделенное и включить все.

[Profan]

[Re:] Кулик Алексей aka kpblc (2005-11-15 10:54:20)

Код:

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

;|=============================================================================
*    Скрытие выбранных объектов / невыбранных объектов / показ всех объектов.
* Сделано в качестве попытки создания аналога 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 _regenmode_)
  ;; Локальные функции
  (defun loc:put_visible(vla-ent vis / layer layer_lock)
    (setq layer (vlax-ename->vla-object (tblobjname "layer" (vla-get-layer item)))
          layer_lock (vla-get-lock layer))
    (vla-put-Lock layer :vlax-false)
    (vla-put-Visible vla-ent vis)
    (vla-put-lock layer layer_lock)
    )
  ;; Конец локальных функций
  (vl-load-com)
  (if (not *kpblc-activedoc*)
    (setq *kpblc-activedoc* (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (vla-startundomark *kpblc-activedoc*)
  (setq _regenmode_ (getvar "regenmode"))
  (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)
        (setq item (vlax-ename->vla-object item)              )
        (if (vlax-property-available-p item 'visible)
          (loc:put_visible item :vlax-true)
          ) ;_ end of if
        ) ;_ 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)
           (setq item (vlax-ename->vla-object item))
           (if (vlax-property-available-p item 'visible)
             (loc:put_visible item :vlax-false)
             ) ;_ end of if
           ) ;_ 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))
             (progn
               (setq item (vlax-ename->vla-object item))
               (if (vlax-property-available-p item 'visible)
                 (loc:put_visible item :vlax-false)
                 ) ;_ end of if
               ) ;_ end of progn
             ) ;_ end of if
           ) ;_ end of while
         )
        ) ;_ end of cond
      ) ;_ end of progn
    ) ;_ end of if
  (setvar "regenmode" 1)
  (vla-regen *kpblc-activedoc* acallviewports)
  (setvar "regenmode" _regenmode_)
  (vla-endundomark *kpblc-activedoc*)
  ) ;_ end of defun

[dextron3]

Profan

попробуем

это ты из мертвого форума достал?

[Profan]

Да, из полудохлого форума.

[Profan]

{Smirnoff} (2005-11-15 14:28:39)
Я поступил вот так:

Код:

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

 
(defun c:unvis(/ errCount wMode objSet actDoc)
  (vl-load-com)
  (defun put_Visible_Prop(Object Flag)
    (if
      (vl-catch-all-error-p
  (vl-catch-all-apply
    'vla-put-visible (list Object Flag)))
          (setq errCount(1+ errCount))
    ); end if
  (princ)
  ); end of put_Visible_Prop
  (defun Set_to_List(SelSet)
    (mapcar 'vlax-ename->vla-object
                    (vl-remove-if 'listp
                     (mapcar 'cadr(ssnamex SelSet))))
  ); end of Set_to_List
  (defun errMsg()
    (if(/= 0 errCount)
  (princ(strcat ", " (itoa errCount)
    " were on locked layer."))
      "."
  ); end if
    ); end of errMsg
(setq actDoc(vla-get-ActiveDocument
        (vlax-get-Acad-object))
      errCount 0); end setq
(vla-StartUndoMark actDoc)
(initget "Visible Unvisible" 1)
  (setq wMode
    (getkword "\nMake objects [Visible/Unvisible]: "))      
  (if(and
       (= wMode "Visible")
       (setq objSet(ssget "_X" '((60 . 1))))
       ); end and
    (progn
      (setq objSet(Set_to_List objSet))
   (mapcar
    '(lambda(x)(put_Visible_Prop x :vlax-true))objSet)
    (princ
      (strcat "\n<< "
        (itoa(-(length objSet)errCount))
       " now visible" (errMsg) " >>"))
      ); end progn
    (progn
      (if(not(setq objSet(ssget "_I")))
  (setq objSet(ssget))
  ); end if
      (if objSet
  (progn
    (setq objSet(Set_to_List objSet))
  (mapcar
    '(lambda(x)(put_Visible_Prop x :vlax-false))objSet)
    (princ
      (strcat "\n<< "
        (itoa(-(length objSet)errCount))
       " now unvisible" (errMsg) " >>"))
    ; end if
   ); end progn
  ); end if
       ); end progn
      ); end if
  (vla-EndUndoMark actDoc)
(princ)
); end of c:unvis

[Profan]

Как-то ненадежно и муторно вставляются коды. Не могу пока описать, что происходит.

[Евгений А.]

Можно здесь посмотреть http://ad-cad.narod.ru/AD-Profil.htm Команда "AD-Viz"