[VLISP函数－基本]：Vlisp常用函数一-初始全局变量

eachy

2. 
   
3. ;;;(setq *ThisDrawing* nil)  ; Initialize global variable
   
4. (defun *ThisDrawing* ()
   
5.   (vla-get-activedocument (vlax-get-acad-object))
   
6. )
   
7. ;;;(setq *model-space* nil)      ; Initialize global variable
   
8. (defun *model-space* ()
   
9.   (vla-get-modelspace
   
10.     (vla-get-activedocument (vlax-get-acad-object) )
    
11.     )
    
12. )
    
13. (defun *activeSSet* ()
    
14.   (vla-get-activeselectionset
    
15.     (vla-get-activedocument (vlax-get-acad-object))
    
16.   )
    
17. )

<br /> ;;;(setq *ThisDrawing* nil)  ; Initialize global variable<br /> (defun *ThisDrawing* ()<br />   (vla-get-activedocument (vlax-get-acad-object))<br /> )<br /> ;;;(setq *model-space* nil)      ; Initialize global variable<br /> (defun *model-space* ()<br />   (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object) )<br />     )<br /> )<br /> (defun *activeSSet* ()<br />   (vla-get-activeselectionset<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br /> )

wkai

这个主题不清楚,不方便检索.

狂刀

改为　ｖｌｉｓｐ初始全局变量

2. 
   
3. (setq *ThisDrawing*
   
4.   (vla-get-activedocument (vlax-get-acad-object))
   
5. )
   
6. (setq  *model-space*
   
7.   (vla-get-modelspace
   
8.     (vla-get-activedocument (vlax-get-acad-object) )
   
9.     )
   
10. )

<br /> (setq *ThisDrawing* <br />   (vla-get-activedocument (vlax-get-acad-object))<br /> )<br /> (setq  *model-space* <br />   (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object) )<br />     )<br /> )

cable2004

源码是好东西

kkt123

源码是好东西:@