aicr317 发表于 2008-9-8 15:56:00

[★★★]DCL对话框图片制作[★★★]

本帖最后由 作者 于 2008-11-4 22:25:35 编辑 <br /><br /> <p>我想在DCL中，添加想要的图片(SLD幻灯文件)，怎么做！</p><p>比如下面的DCG图案是怎么实现的！</p><p></p><p></p><p>比如我的对话框是这样的：</p><p>dcl_settings : default_dcl_settings { audit_level = 3; }</p><p>无标题 : dialog {<br/>&nbsp;&nbsp;&nbsp; : image {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = "1";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; width = 18;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; height = 9;<br/>&nbsp;&nbsp;&nbsp; }<br/>&nbsp;&nbsp;&nbsp; ok_only;<br/>}</p><p></p><p></p><p>----------------------------------------------</p><p>我该如何用lsp来调用事先做好的1.SLD图片</p><p></p>

wwwliuyu 发表于 2008-9-8 17:43:00

<p>DCL好像没这个功能吧.</p>

aicr317 发表于 2008-9-8 22:27:00

<p>完全可以，就是不知道怎么实现！！我知道的有2种，1是JPG或bmp之类的格式，2是SLD格式。</p>

aicr317 发表于 2008-9-9 10:26:00

<p>顶起来，求版主帮忙解决下！等把这个问题解决了，我自己整理的一套工具就可以面世了！</p>

yxp 发表于 2008-9-9 10:42:00

<p>可以用幻灯显示bmp图片，但是显示的速度非常慢，颜色模式也不对。</p>

aicr317 发表于 2008-9-10 11:49:00

<p>啊，没有人知道啊</p><p></p>

zxmmelly 发表于 2008-9-10 23:49:00

<div>DCL不能显示出jpg图片</div><div></div><div>opendcl可以</div>

aicr317 发表于 2008-9-11 14:43:00

&nbsp;<p><font color="#ff00ff"></font></p><p><font color="#009933" size="3"><font color="#ff0000">影像(image)及影像框(影像區塊,image_block)元件<br/><br/></font>可以顯示AutoCAD的幻燈片(副檔名為SLD),影像元件只為顯示圖形之用,使用者不能使用滑鼠選取<br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="30%"><font color="#000000">:image</font>
                                                </td><td>//元件名稱 </td></tr><tr><td colspan="2"><font color="#000000">{ &nbsp; &nbsp; 屬性="<font color="#cc66ff">屬性值</font>" ;</font>
                                                </td></tr><tr><td colspan="2"><font color="#000000">}</font></td></tr></tbody></table><br/><u>屬性</u>
                        <table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="25%"><font color="#ffa500">aspect_ratio</font>
                                                </td><td>固定圖像的長闊比,其設定值為實數,沒有預設值;若設定為0,則元件將依圖像的實際尺寸顯示 </td></tr><tr><td valign="top"><font color="#ffa500">color</font>
                                                </td><td>屬性為整數或保留字,預設值為while(顏色編號7);其它顏色的設定值請參閱第5篇課程</td></tr></tbody></table><br/><u>其它屬性</u>
                        <table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="25%"><font color="#ffa500">action</font>
                                                </td><td width="25%"><font color="#ffa500">alignment</font>
                                                </td><td width="25%"><font color="#ffa500">label</font>
                                                </td><td wdith="25%"><font color="#ffa500">key</font>
                                                </td></tr><tr><td><font color="#ffa500">value</font>
                                                </td><td><font color="#ffa500">width</font>
                                                </td><td><font color="#ffa500">height</font>
                                                </td><td><font color="#ffa500">fixed_width</font>
                                                </td></tr><tr><td><font color="#ffa500">fixed_heigth</font>
                                                </td><td><font color="#ffa500">mnemonic</font>
                                                </td><td><font color="#ffa500">is_enable</font>
                                                </td><td><font color="#ffa500">is_tab_stop</font></td></tr></tbody></table><br/></font></p><p><strong><font color="#ff00ff" size="4">第2節</font></strong><font size="+0"><font color="#ff00ff">
                        </font></font><font size="+0"><font color="#ff00ff"><hr color="#ff00ff" size="1"/><p></p></font><p></p><p><font color="#ff00ff"></font></p><p><font color="#ff00ff"></font><font color="#ff0000">AutoLISP函數<br/><br/></font><u>在對話框中取得影像框的闊度</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(DIMX_TILE "<font color="#cc66ff">元件關鍵字</font>")</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(DIMX_TILE "IMG_L")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">元件關鍵字是在元件定義中,以屬性<font color="#ffa500">key</font>設定 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">函數的傳回值可作為<font color="#ff0000">FILL_IMAGE</font>及<font color="#ff0000">SLIDE_IMAGE</font>函數的參數</td></tr></tbody></table><br/><u>在對話框中取得影像框的高度</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(DIMY_TILE "<font color="#cc66ff">元件關鍵字</font>")</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(DIMY_TILE "IMG_L")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">請參閱<font color="#ff0000">DIMX_TILE</font>函數的說明</td></tr></tbody></table><br/><u>開始在元件中建立影像</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(START_IMAGE "<font color="#cc66ff">元件關鍵字</font>")</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(START_IMAGE "IMG_L")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">在使用<font color="#ff0000">FILL_IMAGE</font>,<font color="#ff0000">SLIDE_IMAGE</font>及<font color="#ff0000">END_IMAGE</font>等函數前,必須先執行此函數 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">如果函數成功的話,會傳回指定的關鍵字,否則傳回NIL </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">不要在<font color="#ff0000">SET_TILE</font>函數中使用<font color="#ff0000">START_IMAGE</font>及<font color="#ff0000">END_IMAGE</font>函數</td></tr></tbody></table><br/><u>結束元的影像建立</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(END_IMAGE)</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">不須提供任何參數,必須與<font color="#ff0000">SLIDE_IMAGE</font>函數配合使用 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">傳回值永遠是NIL</td></tr></tbody></table><br/><u>在影像框中繪製一個填滿的矩形</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(FILL_IMAGE<font color="#cc66ff">X座標 Y座標 闊度 高度 顏色</font>)</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(FILL_IMAGE 0 0 闊度變數 高度變數 -2)</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">X及Y座標為矩形框的左上角位置,必須為正值 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">如果函數成功的話,會傳回指定的關鍵字,否則傳回NIL </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">填滿區域的闊度及高度,以像素為單位,並相對於X及Y座標;闊度一般以<font color="#ff0000">DIMX_TILE</font>函數取得,而高度則以<font color="#ff0000">DIMY_TILE</font>函數取得 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">傳回值為填滿區域的顏色整數值 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">顏色可以是AutoCAD的顏色號碼,或下列其中一種 :</td></tr></tbody></table><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="10%">&nbsp; </td><td width="10%">-2 </td><td wdith="20%">BGLCOLOR </td><td width="60%">目前AutoCAD繪圖螢幕的背景色 </td></tr><tr><td></td><td>-15 </td><td>DBGLCOLOR </td><td>目前對話框的背景色 </td></tr><tr><td></td><td>-16 </td><td>DBGLCOLOR </td><td>目前對話框的前景色(文字) </td></tr><tr><td></td><td>-18 </td><td>DBGLCOLOR </td><td>目前對話框中線條的顏色</td></tr></tbody></table><br/><u>在元件中顯示幻燈片</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(SLIDE_IMAGE<font color="#cc66ff">X座標 Y座標 闊度 高度 幻燈片檔案名稱</font>)</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(SLIDE_IMAGE 0 0 闊度變數 高度變數 "C:/IMG1.SLD")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">X及Y座標,高度及闊度,請參閱上一個函數<font color="#ff0000">FILL_IMAGE</font>的說明 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                                        </td><td width="95%">傳回值為指定的幻燈片檔案名稱</td></tr></tbody></table><br/><strong><font size="4"></font></strong></p></font></p><hr color="#ff00ff" size="1"/><p></p><p></p><p><font color="#ff00ff"></font></p><p><font color="#ff00ff"></font><font color="#ff0000">AutoLISP函數<br/><br/></font><u>在對話框中取得影像框的闊度</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(DIMX_TILE "<font color="#cc66ff">元件關鍵字</font>")</font>
                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(DIMX_TILE "IMG_L")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">元件關鍵字是在元件定義中,以屬性<font color="#ffa500">key</font>設定 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">函數的傳回值可作為<font color="#ff0000">FILL_IMAGE</font>及<font color="#ff0000">SLIDE_IMAGE</font>函數的參數</td></tr></tbody></table><br/><u>在對話框中取得影像框的高度</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(DIMY_TILE "<font color="#cc66ff">元件關鍵字</font>")</font>
                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(DIMY_TILE "IMG_L")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">請參閱<font color="#ff0000">DIMX_TILE</font>函數的說明</td></tr></tbody></table><br/><u>開始在元件中建立影像</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(START_IMAGE "<font color="#cc66ff">元件關鍵字</font>")</font>
                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(START_IMAGE "IMG_L")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">在使用<font color="#ff0000">FILL_IMAGE</font>,<font color="#ff0000">SLIDE_IMAGE</font>及<font color="#ff0000">END_IMAGE</font>等函數前,必須先執行此函數 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">如果函數成功的話,會傳回指定的關鍵字,否則傳回NIL </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">不要在<font color="#ff0000">SET_TILE</font>函數中使用<font color="#ff0000">START_IMAGE</font>及<font color="#ff0000">END_IMAGE</font>函數</td></tr></tbody></table><br/><u>結束元的影像建立</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(END_IMAGE)</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">不須提供任何參數,必須與<font color="#ff0000">SLIDE_IMAGE</font>函數配合使用 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">傳回值永遠是NIL</td></tr></tbody></table><br/><u>在影像框中繪製一個填滿的矩形</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(FILL_IMAGE<font color="#cc66ff">X座標 Y座標 闊度 高度 顏色</font>)</font>
                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(FILL_IMAGE 0 0 闊度變數 高度變數 -2)</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">X及Y座標為矩形框的左上角位置,必須為正值 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">如果函數成功的話,會傳回指定的關鍵字,否則傳回NIL </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">填滿區域的闊度及高度,以像素為單位,並相對於X及Y座標;闊度一般以<font color="#ff0000">DIMX_TILE</font>函數取得,而高度則以<font color="#ff0000">DIMY_TILE</font>函數取得 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">傳回值為填滿區域的顏色整數值 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">顏色可以是AutoCAD的顏色號碼,或下列其中一種 :</td></tr></tbody></table><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="10%">&nbsp; </td><td width="10%">-2 </td><td wdith="20%">BGLCOLOR </td><td width="60%">目前AutoCAD繪圖螢幕的背景色 </td></tr><tr><td></td><td>-15 </td><td>DBGLCOLOR </td><td>目前對話框的背景色 </td></tr><tr><td></td><td>-16 </td><td>DBGLCOLOR </td><td>目前對話框的前景色(文字) </td></tr><tr><td></td><td>-18 </td><td>DBGLCOLOR </td><td>目前對話框中線條的顏色</td></tr></tbody></table><br/><u>在元件中顯示幻燈片</u><br/><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td wdith="10%">&nbsp; </td><td width="90%"><font color="#000000">(SLIDE_IMAGE<font color="#cc66ff">X座標 Y座標 闊度 高度 幻燈片檔案名稱</font>)</font>
                                        </td></tr><tr><td></td><td><font color="#ffa500">e.g. &nbsp; &nbsp; &nbsp; &nbsp;(SLIDE_IMAGE 0 0 闊度變數 高度變數 "C:/IMG1.SLD")</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">X及Y座標,高度及闊度,請參閱上一個函數<font color="#ff0000">FILL_IMAGE</font>的說明 </td></tr><tr><td valign="top" width="5%"><img height="12" src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dt_b01.gif" width="25" border="0" alt=""/>
                                        </td><td width="95%">傳回值為指定的幻燈片檔案名稱</td></tr></tbody></table><br/><strong><font size="4"></font></strong></p><p><strong><font color="#ff00ff" size="4">第3節</font></strong><font size="+0"><font color="#ff00ff">
                        </font><font color="#ff00ff"><hr color="#ff00ff" size="1"/></font><p></p><p><strong><font color="#ff00ff" size="4"><font size="3"><font color="#ff0000">練習 (Exercises)<br/><br/></font>建立新的對話框IMG1.DCL,存在於C盤的根目錄中;在對話框中只會顯示兩個影像及一個確定鈕,其定義如下:<br/><br/></font><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td colsapn="5"><font color="#ffa500">IMG:dialog</font>
                                                                        </td></tr><tr><td width="8%"><font color="#ffa500">{</font>
                                                                        </td><td colspan="4"><font color="#ffa500">label="Image" ;</font>
                                                                        </td></tr><tr><td></td><td colspan="3"><font color="#ffa500">:row</font>
                                                                        </td><td width="30%">//建立橫列元件 </td></tr><tr><td></td><td width="8%"><font color="#ffa500">{</font>
                                                                        </td><td colspan="2"><font color="#ffa500">:image</font>
                                                                        </td><td>//建立影像元件 </td></tr><tr><td></td><td></td><td width="8%"><font color="#ffa500">{</font>
                                                                        </td><td colspan="2"><font color="#ffa500">key="IMG_L" ;</font>
                                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">width=15;</font>
                                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">height=6;</font>
                                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">color=-2;</font>
                                                                        </td></tr><tr><td></td><td></td><td colspan="3"><font color="#ffa500">}</font>
                                                                        </td></tr><tr><td></td><td></td><td colspan="2"><font color="#ffa500">:image</font>
                                                                        </td><td>//建立影像元件 </td></tr><tr><td></td><td></td><td><font color="#ffa500">{</font>
                                                                        </td><td colspan="2"><font color="#ffa500">key="IMG_R" ;</font>
                                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">width=15;</font>
                                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">height=6;</font>
                                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">color=-2;</font>
                                                                        </td></tr><tr><td></td><td></td><td colspan="3"><font color="#ffa500">}</font>
                                                                        </td></tr><tr><td></td><td colspan="3"><font color="#ffa500">}</font>
                                                                        </td><td>//關閉橫列元件 </td></tr><tr><td></td><td colspan="4"><font color="#ffa500">ok_only;</font>
                                                                        </td></tr><tr><td colspan="5"><font color="#ffa500">}</font></td></tr></tbody></table><br/><u>定義說明:<br/></u><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><font color="#cc66ff">1</font>
                                                                        </td><td width="90%">設定對話框名稱為IMG,以<font color="#0000ff">冒號</font>開始設定<font color="#ff0000">dialog</font>元件 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">2</font>
                                                                        </td><td><font color="#0000ff">開大括號</font>屬於上一行的<font color="#ff0000">dialog</font>元件,屬性<font color="#ffa500">label</font>的設定值會顯示在對話框的標題列 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">3</font>
                                                                        </td><td>以<font color="#0000ff">冒號</font>開始,設定一個橫列元件<font color="#ff0000">row</font>,使包含其中的其它元件呈水平排列 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">4</font>
                                                                        </td><td><font color="#0000ff">開大括號</font>屬於上一行的橫列元件,以<font color="#0000ff">冒號</font>開始,設定第一個影像元件<font color="#ff0000">image</font>
                                                                        </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">5</font>
                                                                        </td><td><font color="#0000ff">開大括號</font>屬於上一行的影像元件,以<font color="#ffa500">key</font>屬性,設定影像元件的操作關鍵字(IMG_L) </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">6,7</font>
                                                                        </td><td>設定影像元件的闊度(屬性<font color="#ffa500">width</font>)及高度(屬性<font color="#ffa500">height</font>) </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">8</font>
                                                                        </td><td>設定影像元件的顏色屬性<font color="#ffa500">color</font>為-2,表示以繪圖螢幕的背景色顯示 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">9</font>
                                                                        </td><td><font color="#0000ff">關大括號</font>是對應第5行的<font color="#0000ff">開大括號</font>,此對<font color="#0000ff">大括號</font>同屬於第4行的影像元件</td></tr></tbody></table><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="10%"><font color="#cc66ff">10至15</font>
                                                                        </td><td>用第4至第9行類似的設定,定義第二個影像元件,其<font color="#ffa500">key</font>屬性設定為IMG_R(關鍵字)</td></tr></tbody></table><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><font color="#cc66ff">16</font>
                                                                        </td><td><font color="#0000ff">關大括號</font>是對應第4行的<font color="#0000ff">開大括號</font>,此對<font color="#0000ff">大括號</font>同屬於第3行的橫列元件 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">17</font>
                                                                        </td><td>定義一個確定鈕,以結束對話方塊 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">18</font>
                                                                        </td><td><font color="#0000ff">關大括號</font>是對應第2行的<font color="#0000ff">開大括號</font>,此對<font color="#0000ff">大括號</font>同屬於第1行的<font color="#ff0000">dialog</font>元件</td></tr></tbody></table><br/><center><img src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dl-11a.gif" alt=""/><br/></center></font></strong></p><center><img src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dl-11a.gif" alt=""/><br/></center><p><strong><font color="#ff00ff" size="4"><font size="3">建立新的程式檔IMG1.LSP,主程式用作啟動對話框,輔助程式則處理影像;其程式碼如下:<br/><br/></font><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="25%"><font color="#ffa500">(DEFUN C:IMG()</font>
                                                                        </td><td wdith="75%"><font color="#ffa500">(SETQ DCL_ID (LOAD_DIALOG "C:/IMG1.DCL"))</font>
                                                                        </td></tr><tr><td></td><td><font color="#ffa500">(NEW_DIALOG &amp;uqotIMG" DCL_ID)</font>
                                                                        </td></tr><tr><td></td><td><font color="#ffa500">(S_IMG "IMG_L")</font>
                                                                        </td></tr><tr><td></td><td><font color="#ffa500">(S_IMG "IMG_R")</font>
                                                                        </td></tr><tr><td></td><td><font color="#ffa500">(START_DIALOG)(UNLOAD_DIALOG DCL_ID)</font>
                                                                        </td></tr><tr><td></td><td><font color="#ffa500">(PRINC))</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="25%"><font color="#ffa500">(DEFUN S_IMG(KEY)</font>
                                                                        </td><td colspan="2"><font color="#ffa500">(COND ((= KEY "IMG_L") (SETQ SLD "C:/IMG1.SLD"))</font>
                                                                        </td></tr><tr><td></td><td width="9%">&nbsp; </td><td><font color="#ffa500">((= KEY "IMG_R") (SETQ SLD "C:/IMG2.SLD")))</font>
                                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(SETQ TMP_X (DIMX_TILE KEY) TMP_Y (DIMY_TILE KEY))</font>
                                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(START_IMAGE KEY)</font>
                                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(FILL_IMAGE 0 0 TMP_X TMP_Y -2)</font>
                                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(SLIDE_IMAGE 0 0 TMP_X TMP_Y SLD)</font>
                                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(END_IMAGE))</font></td></tr></tbody></table></font></strong></p></font></p><hr color="#ff00ff" size="1"/><p></p><p><strong><font color="#ff00ff" size="4"><font size="3"><font color="#ff0000">練習 (Exercises)<br/><br/></font>建立新的對話框IMG1.DCL,存在於C盤的根目錄中;在對話框中只會顯示兩個影像及一個確定鈕,其定義如下:<br/><br/></font><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td colsapn="5"><font color="#ffa500">IMG:dialog</font>
                                                        </td></tr><tr><td width="8%"><font color="#ffa500">{</font>
                                                        </td><td colspan="4"><font color="#ffa500">label="Image" ;</font>
                                                        </td></tr><tr><td></td><td colspan="3"><font color="#ffa500">:row</font>
                                                        </td><td width="30%">//建立橫列元件 </td></tr><tr><td></td><td width="8%"><font color="#ffa500">{</font>
                                                        </td><td colspan="2"><font color="#ffa500">:image</font>
                                                        </td><td>//建立影像元件 </td></tr><tr><td></td><td></td><td width="8%"><font color="#ffa500">{</font>
                                                        </td><td colspan="2"><font color="#ffa500">key="IMG_L" ;</font>
                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">width=15;</font>
                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">height=6;</font>
                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">color=-2;</font>
                                                        </td></tr><tr><td></td><td></td><td colspan="3"><font color="#ffa500">}</font>
                                                        </td></tr><tr><td></td><td></td><td colspan="2"><font color="#ffa500">:image</font>
                                                        </td><td>//建立影像元件 </td></tr><tr><td></td><td></td><td><font color="#ffa500">{</font>
                                                        </td><td colspan="2"><font color="#ffa500">key="IMG_R" ;</font>
                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">width=15;</font>
                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">height=6;</font>
                                                        </td></tr><tr><td></td><td></td><td></td><td colspan="2"><font color="#ffa500">color=-2;</font>
                                                        </td></tr><tr><td></td><td></td><td colspan="3"><font color="#ffa500">}</font>
                                                        </td></tr><tr><td></td><td colspan="3"><font color="#ffa500">}</font>
                                                        </td><td>//關閉橫列元件 </td></tr><tr><td></td><td colspan="4"><font color="#ffa500">ok_only;</font>
                                                        </td></tr><tr><td colspan="5"><font color="#ffa500">}</font></td></tr></tbody></table><br/><u>定義說明:<br/></u><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><font color="#cc66ff">1</font>
                                                        </td><td width="90%">設定對話框名稱為IMG,以<font color="#0000ff">冒號</font>開始設定<font color="#ff0000">dialog</font>元件 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">2</font>
                                                        </td><td><font color="#0000ff">開大括號</font>屬於上一行的<font color="#ff0000">dialog</font>元件,屬性<font color="#ffa500">label</font>的設定值會顯示在對話框的標題列 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">3</font>
                                                        </td><td>以<font color="#0000ff">冒號</font>開始,設定一個橫列元件<font color="#ff0000">row</font>,使包含其中的其它元件呈水平排列 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">4</font>
                                                        </td><td><font color="#0000ff">開大括號</font>屬於上一行的橫列元件,以<font color="#0000ff">冒號</font>開始,設定第一個影像元件<font color="#ff0000">image</font>
                                                        </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">5</font>
                                                        </td><td><font color="#0000ff">開大括號</font>屬於上一行的影像元件,以<font color="#ffa500">key</font>屬性,設定影像元件的操作關鍵字(IMG_L) </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">6,7</font>
                                                        </td><td>設定影像元件的闊度(屬性<font color="#ffa500">width</font>)及高度(屬性<font color="#ffa500">height</font>) </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">8</font>
                                                        </td><td>設定影像元件的顏色屬性<font color="#ffa500">color</font>為-2,表示以繪圖螢幕的背景色顯示 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">9</font>
                                                        </td><td><font color="#0000ff">關大括號</font>是對應第5行的<font color="#0000ff">開大括號</font>,此對<font color="#0000ff">大括號</font>同屬於第4行的影像元件</td></tr></tbody></table><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="10%"><font color="#cc66ff">10至15</font>
                                                        </td><td>用第4至第9行類似的設定,定義第二個影像元件,其<font color="#ffa500">key</font>屬性設定為IMG_R(關鍵字)</td></tr></tbody></table><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td valign="top" width="5%"><font color="#cc66ff">16</font>
                                                        </td><td><font color="#0000ff">關大括號</font>是對應第4行的<font color="#0000ff">開大括號</font>,此對<font color="#0000ff">大括號</font>同屬於第3行的橫列元件 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">17</font>
                                                        </td><td>定義一個確定鈕,以結束對話方塊 </td></tr><tr><td valign="top" width="5%"><font color="#cc66ff">18</font>
                                                        </td><td><font color="#0000ff">關大括號</font>是對應第2行的<font color="#0000ff">開大括號</font>,此對<font color="#0000ff">大括號</font>同屬於第1行的<font color="#ff0000">dialog</font>元件</td></tr></tbody></table><br/><center><img src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dl-11a.gif" alt=""/><br/></center></font></strong></p><center><img src="mk:@MSITStore:F:\Autolisp_DCL基础教程修正.chm::/help/对话框基础/images/dl-11a.gif" alt=""/><br/></center><p><strong><font color="#ff00ff" size="4"><font size="3">建立新的程式檔IMG1.LSP,主程式用作啟動對話框,輔助程式則處理影像;其程式碼如下:<br/><br/></font><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="25%"><font color="#ffa500">(DEFUN C:IMG()</font>
                                                        </td><td wdith="75%"><font color="#ffa500">(SETQ DCL_ID (LOAD_DIALOG "C:/IMG1.DCL"))</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">(NEW_DIALOG &amp;uqotIMG" DCL_ID)</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">(S_IMG "IMG_L")</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">(S_IMG "IMG_R")</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">(START_DIALOG)(UNLOAD_DIALOG DCL_ID)</font>
                                                        </td></tr><tr><td></td><td><font color="#ffa500">(PRINC))</font></td></tr></tbody></table><br/><table cellspacing="0" cellpadding="0" width="100%" border="0"><tbody><tr><td width="25%"><font color="#ffa500">(DEFUN S_IMG(KEY)</font>
                                                        </td><td colspan="2"><font color="#ffa500">(COND ((= KEY "IMG_L") (SETQ SLD "C:/IMG1.SLD"))</font>
                                                        </td></tr><tr><td></td><td width="9%">&nbsp; </td><td><font color="#ffa500">((= KEY "IMG_R") (SETQ SLD "C:/IMG2.SLD")))</font>
                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(SETQ TMP_X (DIMX_TILE KEY) TMP_Y (DIMY_TILE KEY))</font>
                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(START_IMAGE KEY)</font>
                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(FILL_IMAGE 0 0 TMP_X TMP_Y -2)</font>
                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(SLIDE_IMAGE 0 0 TMP_X TMP_Y SLD)</font>
                                                        </td></tr><tr><td></td><td colspan="2"><font color="#ffa500">(END_IMAGE))</font></td></tr></tbody></table></font></strong></p>

jxlsp 发表于 2008-9-11 14:52:00

<p>&nbsp; (start_image \"img\")<br/>&nbsp; (fill_image 0 0 width1 height1 -2)<br/>&nbsp; (slide_image 0 0 width1 height1 \"sld\")<br/>&nbsp; (end_image)</p><p>sld幻灯片名</p>

aicr317 发表于 2008-11-4 22:28:00

各位大哥帮帮我吧
页: [1] 2
查看完整版本: [★★★]DCL对话框图片制作[★★★]