创建命名视口

csharp

2. 
   
3. (defun c:tt (/ e obj  view bp up)
   
4.   (if (setq e (car (entsel)))
   
5.     (progn
   
6.       (setq obj (vlax-ename->vla-object e))
   
7.       (vla-getboundingbox obj 'bp 'up)
   
8.       (vla-zoomwindow (vlax-get-acad-object) bp up)
   
9.       (setq view (vla-add (vla-get-views
   
10.                             (vla-get-activedocument (vlax-get-acad-object))
    
11.                           )
    
12.                           "test"
    
13.                  )
    
14.       )
    
15.       (vla-put-center
    
16.         view
    
17.         (vlax-make-variant
    
18.           (vlax-safearray-fill
    
19.             (vlax-make-safearray vlax-vbdouble '(0 . 1))
    
20.             (list (car (getvar "viewctr")) (cadr (getvar "viewctr")))
    
21.           )
    
22.         )
    
23.       )
    
24.       (vla-put-height view (getvar "viewsize"))
    
25.       (vla-zoomprevious (vlax-get-acad-object))
    
26.       ;;  另外几个属性
    
27.       ;;  Target = (0.0 0.0 0.0)
    
28.       ;;  Width =
    
29.       ;;  Direction = (0.0 0.0 1.0)
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )

<br /> (defun c:tt (/ e obj  view bp up)<br />   (if (setq e (car (entsel)))<br />     (progn<br />       (setq obj (vlax-ename->vla-object e))<br />       (vla-getboundingbox obj 'bp 'up)<br />       (vla-zoomwindow (vlax-get-acad-object) bp up)<br />       (setq view (vla-add (vla-get-views<br />                             (vla-get-activedocument (vlax-get-acad-object))<br />                           )<br />                           "test"<br />                  )<br />       )<br />       (vla-put-center<br />         view<br />         (vlax-make-variant<br />           (vlax-safearray-fill<br />             (vlax-make-safearray vlax-vbdouble '(0 . 1))<br />             (list (car (getvar "viewctr")) (cadr (getvar "viewctr")))<br />           )<br />         )<br />       )<br />       (vla-put-height view (getvar "viewsize"))<br />       (vla-zoomprevious (vlax-get-acad-object)) <br />       ;;  另外几个属性<br />       ;;  Target = (0.0 0.0 0.0)<br />       ;;  Width =<br />       ;;  Direction = (0.0 0.0 1.0)<br />     )<br />   )<br />   (princ)<br /> )

view 添加名字可以重复，新建的会覆盖原有的

/db_自贡黄明儒_

向楼主学习。可不可以激活某一视口？

q3_2006

/db_自贡黄明儒_ 发表于 2016-4-19 08:11
向楼主学习。可不可以激活某一视口？

vla-activate

王子

寻找了半天，终于找到这方面资料