用VLISP获取模型空间视口观察方向向量VIEWDIR

marting

有些朋友问如何获取模型空间VPORT的view direction，我发现了一个技巧，之所以说是技巧，因为在不转换TILEMODE模式的情况下，确实没有一个简洁的解决方案。

由于性能的原因，view direction仅仅在转换tilemode的时候才更新，在ARX或者.net，可以通过acedVports2VportTableRecords全局函数获得实时的结果，但是在LISP中并不容易实现，除非你用ARX写一个函数调用acedVports2VportTableRecords给LISP使用。

下面是实现的代码：

1. (defun c:vptest ()
   
2.    (vl-load-com) ; always make sure the COM system is loaded
   
3. 
   
4.    ; This is done to synchronize the viewports with the Viewport Table records
   
5.    ; In ObjectARX this is done with acedVports2VportTableRecords()  
   
6.    (setvar "tilemode" 0)
   
7.    (setvar "tilemode" 1)
   
8.   
   
9.   ;Get the Viewports collection
   
10.   (setq objAcad   (vlax-get-acad-object)
    
11.         objDoc    (vla-get-ActiveDocument objAcad)
    
12.         objVports (vla-get-viewports objDoc)
    
13.   )
    
14. 
    
15.   ; use a for loop and loop through the viewports
    
16.   (vlax-for objVport objVports
    
17. 
    
18.     ;(vlax-dump-object objVport)   ; Print out objects properties
    
19.     ; get the direction of the viewport
    
20.     (setq directionVariant (vla-get-direction objVport))
    
21.     (setq safArray (vlax-variant-value directionVariant))
    
22. 
    
23.     ; Get the x,y,z values of the direction
    
24.     ; this can be used to determine the view
    
25.     (setq x (vlax-safearray-get-element safArray 0))
    
26.     (print (strcat "X=" (rtos x)))
    
27.     (setq y (vlax-safearray-get-element safArray 1))
    
28.     (print (strcat "Y=" (rtos y)))
    
29.     (setq z (vlax-safearray-get-element safArray 2))
    
30.     (print (strcat "Z=" (rtos z)))
    
31. 
    
32.     ; this is a simple example of setting the active viewport
    
33.     ; if x equals zero then make this viewport the active viewport
    
34.     ; this test would need to be enhanced to test the y and z values
    
35.     ; y should equal zero and x should be 1 (that is WCS)
    
36.     (if (= x 0.0)
    
37.       (vla-put-activeviewport objDoc objVport)
    
38.     )   
    
39.   )
    
40.   (princ)
    
41. )
    

(defun c:vptest () <br />    (vl-load-com) ; always make sure the COM system is loaded<br /> <br />    ; This is done to synchronize the viewports with the Viewport Table records <br />    ; In ObjectARX this is done with acedVports2VportTableRecords()  <br />    (setvar "tilemode" 0) <br />    (setvar "tilemode" 1) <br />   <br />   ;Get the Viewports collection <br />   (setq objAcad   (vlax-get-acad-object) <br />         objDoc    (vla-get-ActiveDocument objAcad) <br />         objVports (vla-get-viewports objDoc) <br />   )<br /> <br />   ; use a for loop and loop through the viewports <br />   (vlax-for objVport objVports<br /> <br />     ;(vlax-dump-object objVport)   ; Print out objects properties <br />     ; get the direction of the viewport <br />     (setq directionVariant (vla-get-direction objVport)) <br />     (setq safArray (vlax-variant-value directionVariant))<br /> <br />     ; Get the x,y,z values of the direction <br />     ; this can be used to determine the view <br />     (setq x (vlax-safearray-get-element safArray 0)) <br />     (print (strcat "X=" (rtos x))) <br />     (setq y (vlax-safearray-get-element safArray 1)) <br />     (print (strcat "Y=" (rtos y))) <br />     (setq z (vlax-safearray-get-element safArray 2)) <br />     (print (strcat "Z=" (rtos z)))<br /> <br />     ; this is a simple example of setting the active viewport <br />     ; if x equals zero then make this viewport the active viewport <br />     ; this test would need to be enhanced to test the y and z values <br />     ; y should equal zero and x should be 1 (that is WCS) <br />     (if (= x 0.0) <br />       (vla-put-activeviewport objDoc objVport) <br />     )    <br />   )<br />   (princ)<br /> ) <br />

yoyoho

感谢分享程！！！！