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

2005lyf · 发表于 2011-7-20 12:53

本帖最后由 2005lyf 于 2011-7-20 16:52 编辑

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

Gu_xl · 发表于 2011-7-20 16:15

回复 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 · 发表于 2011-7-20 16:47

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

highflybird · 发表于 2011-7-20 17:20

本帖最后由 highflybird 于 2011-7-20 17:22 编辑

回复 2005lyf 的帖子

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

2005lyf · 发表于 2011-7-20 22:02

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

2005lyf · 发表于 2011-7-21 10:33

本帖最后由 2005lyf 于 2011-7-21 10:34 编辑

根据 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)
)

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

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

本帖子中包含更多资源

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