(XD::Reactors:Ob-Register)添加监视对象到全局对象反应器对象表

XDSoft · 发表于 2013-11-21 21:41:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;|
添加监视对象到全局对象反应器对象表
参数：
e ---- 监视对象改变获得通知的实体
callback-- 回调函数
返回值：
T
|;
(defun XD::Reactors:Ob-Register(e callback / data handstr item ob-data obj)
(setq handstr (xdrx_getpropertyvalue e "handle")
item (cons handstr callback)
)
(if (setq data (XD::Reactors:ReadXData))
(progn
(setq ob-data (assoc "OBJECT" data)
)
(if (not ob-data)
(setq data (cons (list "OBJECT" item) data))
(progn
(if (XD::AssocList:FindSubKey data "OBJECT" (car item))
(progn
(setq ob-data (cons (car ob-data)(XD::AssocList:RemoveSubKey (cdr ob-data) (car item)t)))
)
)
(setq data (XD::AssocList:AddSubItem (list ob-data) "OBJECT" item))
)
)
)
(progn
(setq data (list (list "OBJECT" item)))
)
)
(XD::Reactors:SaveXData data)
(setq obj (vlax-ename->vla-object e))
(if (not (member obj (vlr-owners $xdob-reactor-object)))
(progn
(vlr-owner-add $xdob-reactor-object obj)
(setq $xdob-reactor-object-list (cons obj $xdob-reactor-object-list))
)
)
t
)

;| 
添加监视对象到全局对象反应器对象表 
参数： 
  e ---- 监视对象改变获得通知的实体 
  callback-- 回调函数 
返回值： 
  T 
|; 
 
(defun XD::Reactors:Ob-Register(e callback / data handstr item ob-data obj) 
   (setq handstr (xdrx_getpropertyvalue e "handle") 
         item (cons handstr callback) 
   ) 
   (if (setq data (XD::Reactors:ReadXData)) 
      (progn 
         (setq ob-data (assoc "OBJECT" data) 
 
         ) 
         (if (not ob-data) 
           (setq data (cons (list "OBJECT" item) data)) 
           (progn 
              (if (XD::AssocList:FindSubKey data "OBJECT" (car item)) 
                (progn 
                  (setq ob-data (cons (car ob-data)(XD::AssocList:RemoveSubKey (cdr ob-data) (car item)t))) 
                ) 
              ) 
              (setq data (XD::AssocList:AddSubItem (list ob-data) "OBJECT" item)) 
           ) 
         )          
      ) 
      (progn 
        (setq data (list (list "OBJECT" item))) 
      ) 
   ) 
   (XD::Reactors:SaveXData data) 
   (setq obj (vlax-ename->vla-object e)) 
   (if (not (member obj (vlr-owners $xdob-reactor-object))) 
     (progn 
       (vlr-owner-add $xdob-reactor-object obj) 
       (setq $xdob-reactor-object-list (cons obj $xdob-reactor-object-list)) 
      ) 
   ) 
   t 
)

st788796 · 发表于 2013-11-21 21:55:43

本帖最后由 st788796 于 2013-11-21 22:19 编辑

反应器的精髓在于Callback，初学者可能觉得反应器很高级神秘，实质就是要如何构造这个callback
反应器用好了炫耀四方，用不好可能直接Over，慎之

c961806787 · 发表于 2013-11-22 13:38:27

st788796 发表于 2013-11-21 21:55
反应器的精髓在于Callback，初学者可能觉得反应器很高级神秘，实质就是要如何构造这个callback
反应器用好 ...

不会反应器，帮助里面的概念解释好抽象啊

口味虾 · 发表于 2013-11-22 22:40:36

一个很屌的函数，可惜callback还不是很懂。

口味虾 · 发表于 2013-11-23 08:01:22

跟例题一样，注册后返回也是T 不过没见例题中的注册成功的效果

st788796 · 发表于 2013-12-8 18:22:13

少个函数吧 XD::Reactors:SaveXData

st788796 · 发表于 2013-12-8 21:06:39

$xdob-reactor-object 这个也没有看到定义

账号		自动登录	找回密码
密码			立即注册

[选择集] (XD::Reactors:Ob-Register)添加监视对象到全局对象反应器对象表

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评