请问opendcl问题

azq181

想编一小程序,实现从界面输入一数值,然后以此为坐标画线,程序如下:运行时textbox的数值传不过去,不知为什么?

 (command "OPENDCL")

 (defun c:qqq ()
   ; call the method to load the Hello.odcl file.
   (dcl_Project_Load "qqq" T)
   ; call the method to show the Hello world dialog box example
   (dcl_Form_Show   qqq_Form1)
   (princ)
)

(defun c:qqq_Form1_TextBox2_OnEditChanged (sText /)
 ;(dcl_Control_SetText qqq_Form1_TextBox4
 ; sText [as String])   
   (setq y1  sText)

(setq  x1 (atoi y1))
  (command "line" "0,0" "x1,x1" "")
  )
  )