[PiP]

Сделал из под VBA рамку нового видового экрана в пространстве листа (PViewPort) невидимой:
newVport.Visible = False ' ура! Но - как её (рамку PViewPort) теперь пользователь AutoCAD может "достать"?
Мышкой этот PViewPort не выбирается, в Properties (Ctrl+1) по ViewPort - не удается найти реквизита Visible - да и "обнаружить" оный видовой экран смог только через Quick Select...
Нашёл на форуме предложения "прятать" рамку PViewPort другими методами, но вопрос - остался:

Можно ли до рамки этого newVport.Visible=False добраться в AutoCAD-e "в ручную"?

[PiP]

Для облегчения понимания моего вопроса и проверки - прилагаю архив vba-2.rar в котором:
Вопрос2_по_VBA.dwg - ну это для затравки.
Вопрос2_по_VBA.bas - текст на VBA. В нем сейчас стоит newVport.Visible = True ' это делает рамку PViewPort видимой и "доставабельной", прогони для проверки! А потом измени на newVport.Visible = False и - еще раз: рамки видового экрана PViewPort в AutoCAD-е на newLayout нет и не могу её "достать"...

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

Без скачивания и запуска: попробуй Ctrl+R

[Alaspher]

Руками - не знаю, а программно, на лиспе, так можно вернуть видимость всем примитивам чертежа:

Код:

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

(vl-load-com)
(defun pl:unhideall (/ doc sel lays lay lock freeze)
  (setq doc  (vla-get-activedocument (vlax-get-acad-object))
        sel  (vla-get-activeselectionset doc)
        lays (vla-get-layers doc)
  )
  (vla-select sel acselectionsetall)
  (if (not (zerop (vla-get-count sel)))
    (progn
      (vlax-for x sel
        (if
          (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-visible (list x :vlax-true)))
           (progn (setq lay (vla-item lays (vla-get-layer x)))
                  (if (vla-get-freeze lay)
                    (progn (vla-put-freeze lay :vlax-false) (setq freeze (cons lay freeze)))
                  )
                  (if (vla-get-lock lay)
                    (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock)))
                  )
                  (vl-catch-all-apply 'vla-put-visible (list x :vlax-true))
           )
        )
      )
      (foreach x freeze (vla-put-freeze x :vlax-true))
      (foreach x lock (vla-put-lock x :vlax-true))
      (vla-clear sel)
    )
  )
)
(pl:unhideall)

[VVA]

Я не совсем понимаю зачем "прятать" рамку вьюпорта с помощью visible? Если рамка должна быть невидна, то создай для нее слой и выключи его. Хотя я предпочитаю ее видеть, а чтобы не печаталась делаю непечатаемым слой.

[PiP]

Спасибо!

Кулик Алексей aka kpblc, - Ctrl+R - увы, не помогает. Вроде это для переключения между viewport при мультипортовом режиме.

Alaspher, - спасибо, лисп- for ever! :-) ! Как это сделать в рамках VBA (который нынче изучаю) - уже тоже знаю, но хотелось как раз руками.

VVA, - да, согласен! Так и переделал свою прогу, вопрос чисто теоретический - опросил всех коллег-конструкторов с большим опытом работы в AutoCAD, но ни кто не знал. Удивился: есть свойство, вроде удобное, но до него не добраться...