一个定义Event的方法

eachy

control  ---- contorl symbol
Property --- Property Name
func      ---- funtion
params --- - function params

1. (defun XD::Odcl:SetEvent (control Property func params / str)
   
2.   (dcl_control_setproperty
   
3.     (eval control)
   
4.     Property
   
5.     (setq str (strcat "c:" (vl-symbol-name control) "_On" Property))
   
6.   )
   
7.   (eval        (list 'defun
   
8.               (read str)
   
9.               params
   
10.               func
    
11.         )
    
12.   )
    
13. )

(defun XD::Odcl:SetEvent (control Property func params / str)<br />   (dcl_control_setproperty<br />     (eval control)<br />     Property<br />     (setq str (strcat "c:" (vl-symbol-name control) "_On" Property))<br />   )<br />   (eval        (list 'defun<br />               (read str)<br />               params<br />               func<br />         )<br />   )<br /> )

守仁格竹GM

顶起，下个函数用这个完成:lol

菜菜学ODCL

学习了，方便。