[原创]为DCL对话框添加图标,最大化,最小化按钮

王咣生

2. 首先注册IconTest.dll,然后把samp1.dcl放在C:\,在cad中加载samp1.lsp,运行命令:samp1,注意ico也放在C:\盘下!!
3. 下载文件见2楼!!
5. (defun C:samp1 ( / dcl_id app obj hwnd ico)            ;define function
7.   (setq dcl_id (load_dialog "c:\\samp1.dcl")) ;load dialog
9.   (if (not (new_dialog "samp1" dcl_id)    ;test for dialog
11.       )                    ;not
13.     (exit)                ;exit if no dialog
15.   )                    ;if
17.   ;为DCL窗体添加图标,最大化,最小化按钮
19.   ;--->
21.   (setq app (vlax-get-acad-object))
23.   (setq obj (vlax-invoke-method app 'GetInterfaceObject "IconTest.Icon"))
25.   (setq hwnd (vlax-invoke-method obj 'GetActiveWindowHwnd))
28.   (setq ico "c:\\ndpsetup.ico")
30.   (if (findfile ico)
32.     (vlax-invoke-method obj 'ChangeIcon ico hwnd)
34.   );if
36.   (vlax-invoke-method obj 'AddMinBox hwnd)
38.   (vlax-invoke-method obj 'AddMaxBox hwnd)
40.   ;<---
42.   
44.   ;
46.   (action_tile
48.     "cancel"                ;if cancel button pressed
50.     "(done_dialog) (setq userclick nil)" ;close dialog, set flag
52.   )                    ;action_tile
54.   (action_tile
56.     "accept"                ;if O.K. pressed
58.     " (done_dialog)(setq userclick T))"    ;close dialog, set flag
60.   )                    ;action tile
62.   (start_dialog)            ;start dialog
64.   (unload_dialog dcl_id)        ;unload
66.   (princ)
68. )                    ;defun C:samp
70. (princ)

首先注册IconTest.dll,然后把samp1.dcl放在C:\,在cad中加载samp1.lsp,运行命令:samp1,注意ico也放在C:\盘下!! 下载文件见2楼!! (defun C:samp1 ( / dcl_id app obj hwnd ico)            ;define function   (setq dcl_id (load_dialog "c:\\samp1.dcl")) ;load dialog   (if (not (new_dialog "samp1" dcl_id)    ;test for dialog       )                    ;not     (exit)                ;exit if no dialog   )                    ;if   ;为DCL窗体添加图标,最大化,最小化按钮   ;--->   (setq app (vlax-get-acad-object))   (setq obj (vlax-invoke-method app 'GetInterfaceObject "IconTest.Icon"))   (setq hwnd (vlax-invoke-method obj 'GetActiveWindowHwnd))   (setq ico "c:\\ndpsetup.ico")   (if (findfile ico)     (vlax-invoke-method obj 'ChangeIcon ico hwnd)   );if   (vlax-invoke-method obj 'AddMinBox hwnd)   (vlax-invoke-method obj 'AddMaxBox hwnd)   ;<---      ;   (action_tile     "cancel"                ;if cancel button pressed     "(done_dialog) (setq userclick nil)" ;close dialog, set flag   )                    ;action_tile   (action_tile     "accept"                ;if O.K. pressed     " (done_dialog)(setq userclick T))"    ;close dialog, set flag   )                    ;action tile   (start_dialog)            ;start dialog   (unload_dialog dcl_id)        ;unload   (princ) )                    ;defun C:samp (princ)

zhangcan0515

这个学习了，强啊

王咣生

怎么不能上传文件了?

应该可以了,我用Firefox浏览器不能上传文件!!

这个程序虽然用处不大,但还是有点意思,试着玩儿吧.

aicr317

   我喜欢的，收下了！

zctao1966

你的程序就是这么实在，

支持！

Student

确实“有点意思”，高！

nonsmall

不错 学习了

我只知道Shell对象能控制当前所有的对话框的最大化和最小化

c3a139

不错 学习了

carrot1983

有创意...

jxlsp

版主,有空再研究下调用提示框,用来显示属性.如下图.