[求助]反应器和系统变量users1-5冲突吗?

fools

不知什么原因,(SETVAR "USERS5" DXF5)一直无效,执行并不出错,但users5始终没有覆值,请高手指点迷津,多谢!!!

[code]

(IF (NULL *DblClickReactor*)
  (SETQ *DblClickReactor*
  (VLR-MOUSE-REACTOR
    nil
    '((:VLR-BEGINDOUBLECLICK . DblClickCallback))
  )
  )
)
(DEFUN DblClickCallback (Reactor Point / DXF5 ENT ENTLST SEL STR)
  (SETQ Point (TRANS (CAR Point) 0 1))
  (IF (SETQ sel (NENTSELP Point))
    (PROGN (IF (> (LENGTH sel) 2)
      (SETQ ent (LAST (LAST sel)))
      (SETQ ent (CAR sel))
    )
    (IF (AND (SETQ entlst (ENTGET ent))
      (= "TEXT" (CDR (ASSOC 0 entlst)))
      (SETQ DXF5 (CDR (ASSOC 5 entlst)))
        )
      (SETVAR "USERS5" DXF5)
    )
    )
  )
)

[code]

jaminth

改成(SETVAR "USERS5" "DXF5")

fools

多谢楼上！

不过我需要得是dxf5的值，而非赋值为"DXF5",另外即使赋值为"DXF5"也不能成功，你可以试试

狂刀无痕

试过再说话！

命令: (SETVAR "USERS5" "DXF5")
"DXF5"
命令: (GETVAR "USERS5")
"DXF5"

命令: (setvar "USERS5" (cdr(assoc 5 (entget (car(entsel))))))

选择对象: "A7"

命令: (GETVAR "USERS5")
"A7"

龙龙仔

;;R2007
(if (null *DBLCLICKREACTOR*)
  (setq   *DBLCLICKREACTOR*
    (vlr-mouse-reactor
      NIL
      '((:vlr-begindoubleclick . DBLCLICKCALLBACK))
    )
  )
)
(defun DBLCLICKCALLBACK   (REACTOR POINT / DXF5 ENT ENTLST SEL STR)
  (setq POINT (trans (car POINT) 0 1))
  (if (setq SEL (nentselp POINT))
    (progn
      (setq ENT (car SEL))
      (if (and (setq ENTLST (entget ENT))
          (= "TEXT" (cdr (assoc 0 ENTLST)))
          (setq DXF5 (cdr (assoc 5 ENTLST)))
     )
     (vla-setvariable
       (vla-get-activedocument (vlax-get-acad-object))
       "USERS5"
       DXF5
     )
      )
    )
  )
)

fools

多谢狂刀和龙龙仔

To狂刀,正常情况下 (SETVAR "USERS5" "DXF5")是没有问题,在:vlr-begindoubleclick 激发时无法使用,龙龙仔的办法不错,又学一招