双击单行文字保存其OBjectID至系统变量USERS1~5中

tiancao100

本人对lisp不懂，需实现：双击单行文字保存其OBjectID至系统变量USERS1~5中

依葫芦画瓢，以下代码，总出错：
命令: ; 错误: Automation 错误。 设置系统变量时出错
请高手指点。
(vl-load-com)
(VLR-Mouse-Reactor nil' ((:VLR-beginDoubleClick . dblclkedit)))
;;; 回调函数
(defun dblclkedit (reactorObject point / b c doc owner p)
  (setvar "cmdecho" 0)         ; 关闭命令响应
  (if (setq owner (nentselp (setq p (trans (car point) 0 1)))) ; 指定点来选择对象
    (progn
      (if (> (length owner) 2)
(setq ent (last (last owner)))
(setq ent (car owner))
      )
      (sssetfirst nil)
      (redraw ent 4)
      (setq b (cdr (assoc 0 (entget ent)))) ;对象类型
      ;(setq T1 (cdr (assoc 1 (entget ent))));文本字符串
      ;(setq T8 (cdr (assoc 8 (entget ent))));图层
      ;(setq T330 (cdr (assoc 330 (entget ent))));图元名,十六进制
      ;(setq doc (vlax-get (vlax-get-acad-object) "activedocument"))
      (setq ID (vla-get-ObjectID (vlax-ename->vla-object ent)));ObjectID
      (cond
((= b "TEXT")
     ;(print T1)
     ;(print T8)
     ;(print T330)
     ;(print ID)
     ;(setvar "USERS2" ID)
   (vla-setvariable (vla-get-activedocument (vlax-get-acad-object)) "USERS5" ID)
)
      )
      (princ)
    )
  )
)

328302216

你只有1明经币  还悬赏6？？  把USERS2换成useri1~5看看行不

sdaulj

研究一下，怎么没人回答呢