(XD::Reactors:Ob-UnRegister)从全局对象反应器对象表移除监视对象

XDSoft

1. ;|
   
2. 从全局对象反应器对象表移除监视对象
   
3. 参数：
   
4.   e  ---- 已添加到全局OBJECT反应器OWNER表中的实体名
   
5. 返回值：
   
6. T
   
7. |;
   
8. (defun XD::Reactors:Ob-UnRegister (e / data handstr ob-data obj)
   
9.   (setq obj (vlax-ename->vla-object e))
   
10.   (if (vlr-owner-remove $xdob-reactor-object obj)
    
11.     (progn
    
12.       (setq handstr (xdrx_getpropertyvalue e "handle"))
    
13.       (if (setq data (XD::Reactors:ReadXData))
    
14.         (progn
    
15.           (if (setq ob-data (assoc "OBJECT" data))
    
16.             (progn
    
17.               (if (setq ob-data (XD::AssocList:RemoveSubKey (cdr ob-data)
    
18.                                                             handstr t
    
19.                                 )
    
20.                   )
    
21.                 (setq data (XD::AssocList:AddSubItem data "OBJECT" ob-data))
    
22.                 (setq data (XD::AssocList:RemoveSubKey data "OBJECT" t))
    
23.               )
    
24.             )
    
25.           )
    
26.         )
    
27.       )
    
28.       (XD::Reactors:SaveXData data)
    
29.       t
    
30.     )
    
31.   )
    
32. )
    
33. 
    

;|<br /> 从全局对象反应器对象表移除监视对象<br /> 参数：<br />   e  ---- 已添加到全局OBJECT反应器OWNER表中的实体名<br /> 返回值：<br /> T<br /> |;<br /> (defun XD::Reactors:Ob-UnRegister (e / data handstr ob-data obj)<br />   (setq obj (vlax-ename->vla-object e))<br />   (if (vlr-owner-remove $xdob-reactor-object obj)<br />     (progn<br />       (setq handstr (xdrx_getpropertyvalue e "handle"))<br />       (if (setq data (XD::Reactors:ReadXData))<br />         (progn<br />           (if (setq ob-data (assoc "OBJECT" data))<br />             (progn<br />               (if (setq ob-data (XD::AssocList:RemoveSubKey (cdr ob-data)<br />                                                             handstr t<br />                                 )<br />                   )<br />                 (setq data (XD::AssocList:AddSubItem data "OBJECT" ob-data))<br />                 (setq data (XD::AssocList:RemoveSubKey data "OBJECT" t))<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (XD::Reactors:SaveXData data)<br />       t<br />     )<br />   )<br /> )<br /> <br />

st788796

缺XD::Reactors:SaveXData XD::Reactors:ReadXData