image in alert box

sachindkini

dear all,

please help me
it's possible to add image in alert box



thx for help

Lispboy

推荐你使用 OpenDCL 定制你需要的消息框吧。



[pcode=lisp,true]
        (dcl_MessageBox msg title (1+ OptButtonCSel) OptIconCSel HelpFlag)
[/pcode]

再就看看高飞鸟版主的 用WINAPI编程 http://www.xdcad.net/forum/thread-667889-1-1.html ，使用WINAPI里面的消息框。

sachindkini

Lispboy 发表于 2013-5-11 19:51

                               
登录/注册后可看大图

推荐你使用 OpenDCL 定制你需要的消息框吧。

dear sir,

thx

but i am looking autolisp

Lispboy

sachindkini 发表于 2013-5-11 20:01

                               
登录/注册后可看大图

dear sir,

thx

AUTOCAD的DCL好久没摸了，印象中DCL不能在这个框里面定制图片，你试试自己做个DCL的消息框，别用ACAD标准的。

自己添加按钮什么的，不知道能不能添加图片到DCL里面，忘了。

另外，为什么一定要用Autolisp的呢，是商业化考虑吗？OpenDCL虽然是开源的，但允许在商业上用。

eachy

可以用，但不能直接用alert

xshrimp

用纯lisp可以参考
http://web2.airmail.net/terrycad/Images/GetIcon.htm

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

Lispboy

xshrimp 发表于 2013-5-11 21:34

                               
登录/注册后可看大图

用纯lisp可以参考
http://web2.airmail.net/terrycad/Images/GetIcon.htm

谢xshrimp，学习了。

我替你给楼主把lisp程序贴上来。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:GetIcon.lsp 
下载次数:14  文件大小:114.34 KB 
下载权限: 不限 以上  [免费赚D豆]

GetIcon & GetButtons Rev 7 - 10/15/06

Command: ShowIcons

登录/注册后可看大图

GetIcon Examples

登录/注册后可看大图	登录/注册后可看大图	登录/注册后可看大图
登录/注册后可看大图	登录/注册后可看大图	登录/注册后可看大图

登录/注册后可看大图

登录/注册后可看大图

GetButtons Examples

(GetButtons1 "Greetings" "Have a nice day!" "Smile" "You too!")

登录/注册后可看大图

(GetButtons2 "" "Ready to print?" "Printer" "Yes" "No")

登录/注册后可看大图

(GetButtons3 "" "Plot orientation?" "Quest" "Portrait" "Landscape" "Cancel")

登录/注册后可看大图

(GetButtons4 "" "Paper size?" "" "A-Size" "B-Size" "C-Size" "D-Size")

登录/注册后可看大图

(GetButtons5 "" "Number of copies?" "None" "1" "2" "3" "4" "5")

登录/注册后可看大图

Syntax Examples

Command: GetIcon GetIcon functions return the name of the button selected: GetOK = "OK" GetOKCancel = "OK" or "Cancel" GetYesNo = "Yes" or "No" GetYesNoCancel = "Yes", "No" or "Cancel" GetYestoAll = "Yes", "Yes to All", "No" or "Cancel" GetRetryCancel = "Retry" or "Cancel" Syntax: (Get? "Title" "Line #1\nLine #2...\nLine #10" "Icon") Icons: AlertX, Block, Computer, Constr, Delete, Exclam, Filefolder, Folder Frown, Inform, Light, Printer, Quest, Replace, Smile and None. Example: (GetOK "" "Have a nice day!" "Smile") Command: GetButtons GetButtons functions return the name of the button selected: GetButtons1 = "Btn1" GetButtons2 = "Btn1" or "Btn2" GetButtons3 = "Btn1", "Btn2" or "Btn3" GetButtons4 = "Btn1", "Btn2", "Btn3" or "Btn4" GetButtons5 = "Btn1", "Btn2", "Btn3", "Btn4" or "Btn5" Syntax: (GetButtons? "Title" "Line #1...\nLine #10" "Icon" ["Btn1"..."Btn5"]) Icons: AlertX, Block, Computer, Constr, Delete, Exclam, Filefolder, Folder Frown, Inform, Light, Printer, Quest, Replace, Smile and None. Syntax examples: (GetButtons1 "Greetings" "Have a nice day!" "Smile" "You too!") (GetButtons2 "" "Ready to print?" "Printer" "Yes" "No") (GetButtons3 "" "Plot orientation?" "Quest" "Portrait" "Landscape" "Cancel") (GetButtons4 "" "Paper size?" "" "A-Size" "B-Size" "C-Size" "D-Size") (GetButtons5 "" "Number of copies?" "None" "1" "2" "3" "4" "5")

EditBox Examples

(EditBox "Edit Box Title" "Prompt:" "Default" 20);edit width

登录/注册后可看大图

(EditEnter "" "" "" 14.5);edit width

登录/注册后可看大图

PopupList Examples

(setq FontList@ (list "" "Ariel" "City Blueprint" "Times New Roman")) (PopupList "Popup List Title" "Prompt:" "Times New Roman" FontList@)

登录/注册后可看大图

(setq Justify@ (list "" "Align" "Fit" "Center" "Middle" "Right"));etc. (PopupListEnter "Justification" "" "" Justify@)

登录/注册后可看大图

Vector_Circle Examples

登录/注册后可看大图

登录/注册后可看大图

sachindkini

dear all,

thxxx

sicky111

有了这个像素提取器，应该可以在DCL中添加任何图像吧。
http://bbs.xdcad.net/thread-667672-1-1.html