绘制长方体代码有啥问题？求指点

tywan

绘制长方体（X Y L W H 是赋值 ）

1. (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)
   
2.   (setq X (atoi (dcl_Control_GetText cadlisp_Form1_TextBox1)))
   
3. )
   
4. (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)
   
5.   (setq Y (atoi (dcl_Control_GetText cadlisp_Form1_TextBox2)))
   
6. )
   
7. (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)
   
8.   (setq L (atoi (dcl_Control_GetText cadlisp_Form1_TextBox3)))
   
9. )
   
10. (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)
    
11.   (setq W (atoi (dcl_Control_GetText cadlisp_Form1_TextBox4)))
    
12. )
    
13. (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)
    
14.   (setq H (atoi (dcl_Control_GetText cadlisp_Form1_TextBox5)))
    
15. )
    
16. (defun c:cadlisp_Form1_TextButton1_OnClicked (/)
    
17.   (command addbox)
    
18.   (setq addbox (vlax-invoke-method (vlax-get (vlax-get
    
19.                                                        (vlax-get-acad-object)
    
20.                                                        'ActiveDocument
    
21.                                              ) 'ModelSpace
    
22.                                    ) 'AddBox (vlax-3d-point '(X Y)) L W H
    
23.                )
    
24.   )
    
25. )
    
26. 
    

(defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)<br />   (setq X (atoi (dcl_Control_GetText cadlisp_Form1_TextBox1)))<br /> )<br /> (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)<br />   (setq Y (atoi (dcl_Control_GetText cadlisp_Form1_TextBox2)))<br /> )<br /> (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)<br />   (setq L (atoi (dcl_Control_GetText cadlisp_Form1_TextBox3)))<br /> )<br /> (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)<br />   (setq W (atoi (dcl_Control_GetText cadlisp_Form1_TextBox4)))<br /> )<br /> (defun c:cadlisp_Form1_TextBox1_OnEditChanged (NewValue /)<br />   (setq H (atoi (dcl_Control_GetText cadlisp_Form1_TextBox5)))<br /> )<br /> (defun c:cadlisp_Form1_TextButton1_OnClicked (/)<br />   (command addbox)<br />   (setq addbox (vlax-invoke-method (vlax-get (vlax-get<br />                                                        (vlax-get-acad-object)<br />                                                        'ActiveDocument<br />                                              ) 'ModelSpace<br />                                    ) 'AddBox (vlax-3d-point '(X Y)) L W H<br />                )<br />   )<br /> )<br /> <br />

st788796

楼主这是 ODCL 吧，建议 X Y L W H 不定义任何事件，在 TextButton 绘制时用 Gettext 获取值，另外，没有见到楼主的界面、OnInitialize 等

另外，ODCL 界面是不能用 command 的，这个和  DCL 一样

XDSoft

你自己遇到什么问题先详细描述出来。
另外帖代码要格式下化下。