LISP与OPENDCL间变量是如何传递的?如何理解?

挚友01

(DEFUN c:test () ;/ list_disp s_q1 s_q2 s_q3 e intResult word_1 doContinue)
(vl-load-com)
(if (not (setq project-path (dcl_Project_Load "test.odcl")))
    (progn ;项目无法加载，报告或记录错误
       (alert (strcat "* * * 在CAD搜索目录中未找到[" test.odcl "]文件!"))
       (exit) ;立即退出 (或采取纠正动作并重试)
    )
    (progn
       (setq doContinue 1)
       (while doContinue
         (if (not (dcl_Form_IsActive test_Dtest))
           (setq intResult (dcl_FORM_SHOW test_Dtest))
         )
         (cond ((= intResult 3) (sel_text_ff))
               ((= intResult 0) (setq doContinue nil))
         )
       )
    )
)
;;控制交给对话框

  (prin1 s_q3)     
(dcl_Project_Unload "test")
(prin1 s_q3)
)

;;返回下拉列表的值，
(defun c:test_Dtest_ComboBox1_OnSelChanged (ItemIndexOrCount Value /)
  (setq s_q3 (atoi Value))
)

S_q3为什么传递不过来?

csharp

ODCL 是用 ARX 编写的，那些 defun c: 函数是供 ARX 做回调执行用，函数体的参数是 ARX 提供的值，函数体内部语句是可以直接使用这些变量的，combobox 列表回调有两个参数，一个是 Index 由 0 计，另外一个是 string ，对应 Index 的 string

ARX 这种 Invoke 函数方式在 xdapi 的 PointMonitor 也是如此，那个点参数是 ARX 提供的

挚友01

(DEFUN c:test (/ globalVarsList list_disp s_q1 s_q2 s_q3 e intResult word_1 doContinue) .(setq S_q3 0)
.
.
(prin1 s_q1)无值
主程序中定义的变量在OPENDCL中都转递不过来,我还是不明白..
(defun c:test_Dtest_TextBox1_OnEditChanged (NewValue /)
(setq  s_q1 NewValue)
)
   s_q1无值,没传过来...

csharp

挚友01 发表于 2015-3-8 09:42
(DEFUN c:test (/ globalVarsList list_disp s_q1 s_q2 s_q3 e intResult word_1 doContinue) .(setq S_q3  ...

EditChanged 事件是实时的，NewValue 是你输入过程的字符，用 Updated，动作完成后的字符

挚友01

(defun c:test_Dtest_TextBox1_OnUpdate (NewValue1 /)
(setq word_1 NewValue1 lhm_text word_1)
)
试了,word_1 还是没值
(defun sel_text_ff1()
(cond ((= s_q3 0)         
           (if (null (ssget "X" '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>"))))            
             (alert "\n *  *  * 请注意，未选择到任何文字! *  *  *\n")
           )
        )
        ((= s_q3 1)
;(setq word_1 (dcl_Control_GetText test_Dtest_TextBox1))
(prin1 word_1)

csharp

挚友01 发表于 2015-3-8 10:36
(defun c:test_Dtest_TextBox1_OnUpdate (NewValue1 /)
(setq word_1 NewValue1 lhm_text word_1)
)

贴上完整代码