tiancao100 发表于 2012-12-17 20:47:39

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

本帖最后由 tiancao100 于 2012-12-18 19:50 编辑

本人对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 发表于 2013-1-3 14:56:55

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

sdaulj 发表于 2014-5-17 13:08:09

研究一下，怎么没人回答呢
页: [1]
查看完整版本: 双击单行文字保存其OBjectID至系统变量USERS1~5中