反应器问题

爱莫能助 · 发表于 2019-7-8 08:40:35

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

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

×

(or *command:No*
(setq *command:No*
   (vlr-command-reactor
      nil
      '((:vlr-unknownCommand . command:text))
   )
)
)
(defun command:text (no1 no2 / str)
  (setq str (strcase (car no2)))
  (Setvar 'USERS2 str)
  (print (Getvar 'USERS2))
  (princ)
)
;;  (Setvar 'USERS2 str)这个变量一直设不成功，是不是反应器里面不可以用

/db_自贡黄明儒_ · 发表于 2019-7-8 11:30:29

本帖最后由 /db_自贡黄明儒_ 于 2019-7-8 11:51 编辑

(defun command:text (no1 no2 / str)
  (print "\n no1")
  (print "\n no2\n")
  (princ)
)
是没有用处

爱莫能助 · 发表于 2019-7-8 14:57:49

/db_自贡黄明儒_ 发表于 2019-7-8 11:30
(defun command:text (no1 no2 / str)
  (print "\n no1")
  (print "\n no2\n")

黄长老，知道原因不，为什么未知命令字符串，保存到字符变量不成功
(Setvar 'USERS2 "AAC") 直接这样又可以，在反应器里面又不行了

/db_自贡黄明儒_ · 发表于 2019-7-8 16:01:55

爱莫能助发表于 2019-7-8 14:57
黄长老，知道原因不，为什么未知命令字符串，保存到字符变量不成功
(Setvar 'USERS2 "AAC") 直接这样又 ...

见我楼上的回复。这与'USERS2没关系，是因为这个反应器没有反馈。

爱莫能助 · 发表于 2019-7-8 19:28:35

/db_自贡黄明儒_ 发表于 2019-7-8 16:01
见我楼上的回复。这与'USERS2没关系，是因为这个反应器没有反馈。

哦，还是反应器的问题了

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

[求助] 反应器问题

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

点评

点评