获取当前激活的OpenDCL Form

XDSoft

1. (defun XD::DCL:GetCurActiveForm (/ _forms _formsl)
   
2.   (setq _forms (vl-remove-if-not 'dcl_form_isactive (apply
   
3.                                                       'append
   
4.                                                       (mapcar
   
5.                                                         'dcl_project_getforms
   
6.                                                         (dcl_getprojects)
   
7.                                                       )
   
8.                                                     )
   
9.                )
   
10.   )
    
11.   (foreach n _forms
    
12.      (if (member "VarName" (dcl_Control_GetProperties n))
    
13.         (setq _formsl (cons (list (strcase (dcl_Control_GetProperty n "VarName")) n) _formsl))
    
14.      )
    
15.   )
    
16.   (reverse _formsl)
    
17. )
    
18. 
    

(defun XD::DCL:GetCurActiveForm (/ _forms _formsl)<br />   (setq _forms (vl-remove-if-not 'dcl_form_isactive (apply<br />                                                       'append<br />                                                       (mapcar<br />                                                         'dcl_project_getforms<br />                                                         (dcl_getprojects)<br />                                                       )<br />                                                     )<br />                )<br />   )<br />   (foreach n _forms<br />      (if (member "VarName" (dcl_Control_GetProperties n))<br />         (setq _formsl (cons (list (strcase (dcl_Control_GetProperty n "VarName")) n) _formsl))<br />      )<br />   )<br />   (reverse _formsl)<br /> )<br /> <br />