求助:大家帮我把布局中的视口边框显示出来，谢谢大家 了

2005lyf

求助:谢谢帮主的解答，不过我是想显示已有视口的边框哦，不是重新新建视口哦，大家再帮我看看把布局中的视口边框显示出来，说一下解决方法，谢谢了！！！

Gu_xl

回复 2005lyf 的帖子

添加视口
(if (= 1 (getvar 'CVPORT))
    (progn
      (setq pv (vla-AddPViewport
                 (vlax-get-property
                   (vla-get-ActiveDocument (vlax-get-acad-object))
                   'PaperSpace
                 )
                 (vlax-3d-point (getvar 'viewctr))
                 (getvar 'viewsize)
                 (getvar 'viewsize)
               )
      )
      (vla-put-ViewportOn pv :vlax-true)
    )
  )

2005lyf

谢谢斑竹了，我是想显示已有的视口边框，不是重新新建视口哦，不过还是很感谢斑竹！！！

highflybird

回复 2005lyf 的帖子

1. (defun c:vvv (/ doc paperspace n)
   
2.   (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
3.   (setq paperSpace  (vla-get-PaperSpace Doc))
   
4.   (vlax-for v paperSpace
   
5.     (setq n (vla-get-objectname v))
   
6.     (if (= n "AcDbViewport")
   
7.       (vla-put-Visible v -1)
   
8.     )
   
9.   )
   
10. )

(defun c:vvv (/ doc paperspace n)<br />   (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq paperSpace  (vla-get-PaperSpace Doc))<br />   (vlax-for v paperSpace<br />     (setq n (vla-get-objectname v))<br />     (if (= n "AcDbViewport")<br />       (vla-put-Visible v -1)<br />     )<br />   )<br /> )

2005lyf

非常感谢，太强大了，谢谢了！！

2005lyf

根据 highflybird的思路我自己也编了一个，不过没他的简洁，水平有限，代码如下：
(defun c:aa()
  (princ "\n******使用命令：aa(全图视口边框设置)******")
  (vl-load-com)
  (setq cs (getstring "全图视口边框设置（显示:1/隐藏:0）："))
(setq ss (ssget "X" (list (cons 0 "VIEWPORT"))));;;扫描图纸
(setq n (sslength ss))
(setq k 0 )
(while (< k n)
     (setq name (ssname ss k))
     (setq a (entget name))
     (setq hj (assoc '-1 a))
     (setq hj (cdr (assoc '-1 a)))
     (setq sss (vlax-ename->vla-object hj))
     (vla-put-Visible sss cs)
     (setq k (+ k 1))
   )
(princ)
)