vlr-owner-remove 删除不了对象

zhystar

使用vlr-owner-remove 删除了反应器里的一个对象，用vlr-owners查看，结果对象还在，这是什么问题？

newer

请把前后全部的代码都贴上来，看看

zhystar

newer 发表于 2020-3-21 23:24
请把前后全部的代码都贴上来，看看

编了一段修改文字的反应器小程序，想把其中的一个取消owner主动功能
(setq ss (ssget))
          (setq i 0)
          (repeat (sslength ss)
                  (setq ob_names (cons (setq name (vlax-ename->vla-object (ssname ss i))) ob_names))
                  (setq handles (cons (vlax-get name 'handle) handles))
                  (setq i (1+ i))
          )
          (if (not wenzi_reactor)
        (setq wenzi_reactor (vlr-object-reactor ob_names handles '((:vlr-modified . test_txts_reactor))))
          )
  )

(defun test_txts_reactor(ob_names_bak handles_bak test_txts_reactor_bak)
          (foreach hd (vlr-data handles_bak)
                  (setq ob (vlax-invoke-method (vlax-get (vlax-get-acad-object) 'activedocument) 'handletoobject hd))
                  (if (/= (vlax-get ob 'textstring) (vlax-get ob_names_bak 'textstring))
                        (vlax-put-property ob 'textstring (vlax-get ob_names_bak 'textstring))
                  )
          )
          (princ)
)
前面程序执行很成功，最后想取消主动对象功能的这个函数不好使啊
(vlr-owner-remove wenzi_reactor (vlax-ename->vla-object (car (entsel))))