[求助]：ODCL加载时图片为何不能显示

Qlin

程序加载后，以按钮的click动作加载图片文件正常，
但程序加载时同样的动作却不能显示图片。

代码、图片和对话框文件见附件。

XDSoft

最初由 Qlin 发布
[B]程序加载后，以按钮的click动作加载图片文件正常，
但程序加载时同样的动作却不能显示图片。

代码、图片和对话框文件见附件。 [/B]

我想，应该在FORM初始化回调事件里面，设置PICTRUE BOX的属性来完成。

(defun c:DclForm1_OnInitialize ()
    (ODCL_Control_SetProperty ..............................) //初始化图片     
)

Qlin

找到办法了，要在PictureBox1元件OnPaint事件
的回调函数里进行设置。

另外还有个麻烦的地方，我每次修改了对话框定义
后要重新开启AutoCAD才能见效。

修改后的lisp代码：

2. 
   
3. (defun ObjectDCL_LoadArx ()
   
4. 
   
5.    (if (not (member "objectdcl.arx" (arx)))
   
6.       (arxload "objectdcl.arx" "ObjectDCL.arx not found.")
   
7.    )
   
8. )
   
9. 
   
10. (defun c:hello (/  show_id)
    
11.    ; ensure the ObjectDCL.arx file is loaded
    
12.    (ObjectDCL_LoadArx)
    
13. 
    
14.    ; call the method to load the Hello.odc file.
    
15.    (Odcl_LoadProject "hi")
    
16. 
    
17.    ; call the method to show the Hellow world dialog box example
    
18.    (Odcl_Form_Show hi_DclForm1)
    
19. 
    
20.    (princ)
    
21. )
    
22. 
    
23. 
    
24. (defun c:DclForm1_Initialize ()
    
25.   (Odcl_Form_SetTitleBarText hi_DclForm1 "大家好！")
    
26.   (Odcl_Control_SetProperty hi_DclForm1_Label1 "Caption" "ObjectDCL第一步")
    
27. )
    
28. 
    
29. ;;;下面这个函数好像没有被执行
    
30. (defun c:DclForm1_OnInitialize ()
    
31.   (alert "aaa")
    
32. )
    
33. 
    
34. 
    
35. (defun c:DclForm1_TextButton1_OnClicked ()
    
36.   (Odcl_Form_Close hi_DclForm1)
    
37. )
    
38. 
    
39. (defun c:DclForm1_TextButton2_OnClicked ()
    
40.   (if show_id
    
41.     (progn
    
42.       (Odcl_PictureBox_Clear hi_DclForm1_PictureBox2)
    
43.       (setq show_id nil)
    
44.       (Odcl_Control_SetProperty hi_DclForm1_Label1 "Caption" "图片已经清除")      
    
45.       (Odcl_Control_SetProperty hi_DclForm1_TextButton2 "Caption" "显示图片")
    
46.     );progn
    
47.     (progn
    
48.       (setq fn (findfile "hi.jpg"))
    
49.       (if fn
    
50.         (progn
    
51.           (Odcl_PictureBox_LoadPictureFile hi_DclForm1_PictureBox2 fn)
    
52.           (Odcl_Control_SetProperty hi_DclForm1_Label1 "Caption" "拍摄于陈家祠民间艺术博物馆")
    
53.           (Odcl_Control_SetProperty hi_DclForm1_TextButton2 "Caption" "清除图片")
    
54.           (setq show_id T)
    
55.         )
    
56.       );if
    
57.     )
    
58.   );if  
    
59. )
    
60. 
    
61. (defun c:DclForm1_PictureBox1_OnPaint (nHasFocus /)
    
62.   (c:DclForm1_TextButton2_OnClicked)
    
63. )
    

<br /> (defun ObjectDCL_LoadArx ()<br /> <br />    (if (not (member "objectdcl.arx" (arx)))<br />       (arxload "objectdcl.arx" "ObjectDCL.arx not found.")<br />    )<br /> )<br /> <br /> (defun c:hello (/  show_id)<br />    ; ensure the ObjectDCL.arx file is loaded<br />    (ObjectDCL_LoadArx)<br /> <br />    ; call the method to load the Hello.odc file.<br />    (Odcl_LoadProject "hi")<br /> <br />    ; call the method to show the Hellow world dialog box example<br />    (Odcl_Form_Show hi_DclForm1)<br /> <br />    (princ)<br /> )<br /> <br /> <br /> (defun c:DclForm1_Initialize ()<br />   (Odcl_Form_SetTitleBarText hi_DclForm1 "大家好！")<br />   (Odcl_Control_SetProperty hi_DclForm1_Label1 "Caption" "ObjectDCL第一步")<br /> )<br /> <br /> ;;;下面这个函数好像没有被执行<br /> (defun c:DclForm1_OnInitialize ()<br />   (alert "aaa")<br /> )<br /> <br /> <br /> (defun c:DclForm1_TextButton1_OnClicked ()<br />   (Odcl_Form_Close hi_DclForm1)<br /> )<br /> <br /> (defun c:DclForm1_TextButton2_OnClicked ()<br />   (if show_id<br />     (progn<br />       (Odcl_PictureBox_Clear hi_DclForm1_PictureBox2)<br />       (setq show_id nil)<br />       (Odcl_Control_SetProperty hi_DclForm1_Label1 "Caption" "图片已经清除")      <br />       (Odcl_Control_SetProperty hi_DclForm1_TextButton2 "Caption" "显示图片")<br />     );progn<br />     (progn<br />       (setq fn (findfile "hi.jpg"))<br />       (if fn<br />         (progn<br />           (Odcl_PictureBox_LoadPictureFile hi_DclForm1_PictureBox2 fn)<br />           (Odcl_Control_SetProperty hi_DclForm1_Label1 "Caption" "拍摄于陈家祠民间艺术博物馆")<br />           (Odcl_Control_SetProperty hi_DclForm1_TextButton2 "Caption" "清除图片")<br />           (setq show_id T)<br />         )<br />       );if<br />     )<br />   );if  <br /> )<br /> <br /> (defun c:DclForm1_PictureBox1_OnPaint (nHasFocus /)<br />   (c:DclForm1_TextButton2_OnClicked)<br /> )<br />

XDSoft

最初由 Qlin 发布
[B]找到办法了，要在PictureBox1元件OnPaint事件
的回调函数里进行设置。

另外还有个麻烦的地方，我每次修改了对话框定义
后要重新开启AutoCAD才能见效。

修改后的lisp代码：
[CODE]
(defun ObjectDCL_LoadAr... [/B]

因为默认的Odcl_Form_Show 是要检测是否加载FORM到内存了，加载后，以后就不重新调入了，所以你要重新启动ACAD才有效。

Odcl_Form_Show 如果最后加参数T，那么每次都要重新加载FORM到内存，这样就解决你的问题了。

Qlin

我试了一下，在我的系统上，还要把
Odcl_LoadProject 也加上参数T

XDSoft

最初由 Qlin 发布
[B]我试了一下，在我的系统上，还要把
Odcl_LoadProject 也加上参数T [/B]

对，我记错了，应该是Odcl_LoadProject 加T，SHOW不加

newer

最初由 Qlin 发布
[B]找到办法了，要在PictureBox1元件OnPaint事件
的回调函数里进行设置。

另外还有个麻烦的地方，我每次修改了对话框定义
后要重新开启AutoCAD才能见效。

修改后的lisp代码：
[CODE]
(defun ObjectDCL_LoadAr... [/B]

QLIN老师，以后有问题要象你请教了。

能多给大家贴贴ODCL的例子吗？

Qlin

ODCL我也是新手，大家互相学习