【文章內(nèi)容簡(jiǎn)介】 nitial_focus用于指定初始聚焦的控件?？丶耐庥^和功能是由該控件的屬性確定的。屬性如同程序中的變量，具有名字和值。屬性的值有整型、實(shí)型和字符串類型，有的屬性值只能是預(yù)定義的保留字。實(shí)數(shù)的小數(shù)點(diǎn)前必須有數(shù)字，例如.1是錯(cuò)的，應(yīng)為。字符串是由雙引號(hào)括起的文本，與AutoLISP一樣，用\做轉(zhuǎn)義符。預(yù)定義的保留字有true、false、left、centered、right、top和bottom，它們必須小寫。AutoLISP程序在運(yùn)行中可以改變控件的一些屬性。 控件的類型不同，其屬性的數(shù)量也不同。有些屬性在所有的控件中的含義是相同的，有些屬性在不同的控件中含義也不同。AutoCAD為用戶預(yù)定義了35個(gè)屬性。在這里我們只選一些常用的給大家介紹一下。1. action 確定控件的活動(dòng)，活動(dòng)是是用雙引號(hào)括起的AutoLISP表達(dá)式或函數(shù)。表達(dá)式中不能含有AutoCAD的命令。當(dāng)選中該控件時(shí)，執(zhí)行相應(yīng)的AutoLISP表達(dá)式或函數(shù)。AutoLISP驅(qū)動(dòng)程序可以設(shè)置控件的一些屬性，且覆蓋DCL定義時(shí)的該屬性。 相關(guān)的控件有：button、edit_box、image、image_button、list_box、popup_list、radio_button、slider、toggle。 默認(rèn)值：無2. alignment 確定控件自身的定位方式。列類型的控件可選left（左對(duì)齊）、centered（中間對(duì)齊）和right（右對(duì)齊）；行類型的控件可選top（頂對(duì)齊）、centered（中間對(duì)齊）和bottom（底對(duì)齊）。相關(guān)的控件有：全部控件。 默認(rèn)值：列類型控件為left，行類型控件為centered3. allow_accept 若該屬性的值為true，按下接受鍵（如Enter鍵），就如同單擊了默認(rèn)按鈕（is_default 為 true的按鈕）。 相關(guān)的控件有：edit_box、image_button、list_box 默認(rèn)值：false4. aspect_ratio 圖像控件的寬與高之比，與寬、高之一確定圖像控件的大小。若該屬性的值為零，則默認(rèn)為將圖像控件調(diào)整為最合適的寬與高之比。 相關(guān)的控件有：image、image_button 默認(rèn)值：無5. edit_limit 確定編輯框可容納的最多字符數(shù)，最大值為256。 相關(guān)的控件有：edit_box。 默認(rèn)值：1326. edit_width 確定編輯框的寬度，以字符為單位。若該屬性的值默認(rèn)為0，編輯框的寬度將是不固定的，布局時(shí)可自動(dòng)擴(kuò)充到整個(gè)可用空間。 相關(guān)的控件有：edit_box、popup_list 默認(rèn)值：擴(kuò)充到整個(gè)可用空間。7. height 確定控件的最小高度，數(shù)值類型是整數(shù)或?qū)崝?shù)型。單位為屏幕字符的最大高度。如果屬性fixed_height的值為ture，height是控件的實(shí)際高度，否則，在自動(dòng)布局時(shí)，控件的實(shí)際高度會(huì)超出該值。通常，不需指定該值，系統(tǒng)能自動(dòng)采用合適的數(shù)值（圖像及圖像按鈕除外）。 相關(guān)的控件有：全部控件。 默認(rèn)值：無 確定控件的最小寬度，數(shù)值類型是整數(shù)或?qū)崝?shù)型。寬度單位為大小寫字符的平均寬度。如果屬性fixed_width的值為ture，width是控件的實(shí)際寬度，否則，在自動(dòng)布局時(shí)，控件的實(shí)際寬度會(huì)超出該值。通常，不需特別指定該值，系統(tǒng)能自動(dòng)采用合適的數(shù)值（圖像及圖像按鈕除外）。 相關(guān)的控件有：全部控件。 默認(rèn)值：無9. color 確定圖像背景、矢量或填充塊的顏色。普通顏色與AutoCAD的標(biāo)準(zhǔn)顏色名（red、yellow等）和顏色號(hào)所定義的顏色含義相同，此外還有表121所示的特殊顏色。 相關(guān)的控件有：image、image_button。 默認(rèn)值：7（白色）10. key 確定控件的關(guān)鍵字，關(guān)鍵字是控件的標(biāo)識(shí)，在一個(gè)對(duì)話框中的關(guān)鍵字必須是唯一的。關(guān)鍵字的值為字符串，且大小寫不等價(jià)。AutoLISP程序根據(jù)控件的關(guān)鍵字施加相應(yīng)控件的操作。 相關(guān)的控件有：Button、edit_box、image、image_button、list_box、popup_list、radio_button、slider、text、toggle。默認(rèn)值：無11. list 確定列表框或下拉列表框內(nèi)的初始內(nèi)容（字符串），行之間用\n分隔，行內(nèi)用制表符\t分隔。 相關(guān)的控件有：list_box、popup_list。 默認(rèn)值：無12. tabs 確定列表框或下拉列表框內(nèi)的制表符\t停止的位置（字符個(gè)數(shù)）。 相關(guān)的控件有：list_box、popup_list 默認(rèn)值：無第三章　機(jī)器中標(biāo)準(zhǔn)件CAD系統(tǒng)開發(fā)深溝球軸承的設(shè)計(jì) AutoLISP簡(jiǎn)單函數(shù)及解釋1．函數(shù)Defun：defun 是以名稱 sym 來定義函數(shù)，此名稱函數(shù)會(huì)自動(dòng)加上引號(hào)，函數(shù)名稱之后是一個(gè)參數(shù)表函數(shù)。在參數(shù)后, 可以使用一個(gè)“/”符號(hào)和一個(gè)或一個(gè)以上的 sym 區(qū)域性符號(hào)。區(qū)域性符號(hào)和參數(shù)的間隔必須以“/”符號(hào)來分隔。同時(shí), 要隔一個(gè)空格。如果沒有給出參數(shù)或區(qū)域性符號(hào), 那么必須在函數(shù)名稱的后面加上一空白的括號(hào)。Setq：這是 AutoLISP 中最基本的設(shè)定函數(shù)。賦值函數(shù)。Setvar：變量設(shè)定函數(shù)，變量名稱一定要以雙引號(hào)括起。Cmdecho：控制在AutoLISP命令函數(shù)運(yùn)行時(shí)是否回顯提示和輸入。Command：調(diào)用執(zhí)行 AutoCAD命令。Progn：此函數(shù)將會(huì)判別每一個(gè)expr，同時(shí)返回最后一個(gè)表達(dá)式的值。當(dāng)某一函數(shù)只允許您使用一個(gè)表達(dá)式時(shí)，您就可以使用progn 函數(shù)來一次執(zhí)行好幾個(gè)表達(dá)式。(progn [expr]...) 常用于配合if、cond等函數(shù)Slide_image：在目前作用的圖片上繪制一個(gè)AutoCAD的幻燈片。Cond：AutoLISP語(yǔ)言中基本的條件函數(shù)。此函數(shù)可接受任何數(shù)值的表為參數(shù), 同時(shí)由表的第一個(gè)項(xiàng)目開始分析, 直到這些項(xiàng)目中有一值不為 nil 為止。然后再運(yùn)算此測(cè)試成功的表達(dá)式, 并返回最后子表表達(dá)式值。若子表內(nèi)缺少 result, 那么 cond 將返回 test表達(dá)式的值。(cond (test1 result1...)...)。Rtos：（rtos 數(shù)值 模式［精度］）返回：實(shí)數(shù)轉(zhuǎn)成字符串。Atof：（atof 字符串）返回：字符串轉(zhuǎn)成實(shí)數(shù)值。Polar：此函數(shù)將返回距某點(diǎn)某角度（angle）某距離的點(diǎn)。Mapcar：將作為本函數(shù)參數(shù)的一個(gè)或多個(gè)表的各個(gè)元素提供給指定函數(shù)進(jìn)行求值，并將由求值結(jié)果構(gòu)成的表返回Pi：常數(shù)。Car：此函數(shù)將返回表中第1個(gè)元素。Pline：畫多段線。Line：畫直線。Arc：畫圓弧，先定義起點(diǎn)。Hatch：圖案填充。Strcat：此函數(shù)將用來連接字符串，并返回最后得到的字符串。Ver：垂直。Ridius：半徑。Nth:（nth n 列表）返回：列表的第n個(gè)元素。2. 數(shù)學(xué)運(yùn)算功能函數(shù)（十 數(shù)值 數(shù)值…）返回：累計(jì)實(shí)數(shù)或整數(shù)數(shù)值（一 數(shù)值 數(shù)值…）返回：差值（* 數(shù)值 數(shù)值…）返回：所有數(shù)值乘積（/ 數(shù)值 數(shù)值…）返回：第一個(gè)數(shù)值除以第二個(gè)以后數(shù)值的商（cos 角度）返回：角度的余弦值，角度值為弧度（max 數(shù)值 數(shù)值…）返回：數(shù)值中的最大值（min 數(shù)值 數(shù)值…）返回：數(shù)值中的最小值（sin 角度）返回：角度的正旋值，角度值為弧度（sqrt 數(shù)值）返回：數(shù)值的平方根3. 檢驗(yàn)與邏輯運(yùn)算功能函數(shù)（= 表達(dá)式1 表達(dá)式2）比較表達(dá)式1是否等于式2，適用數(shù)值及字符串（／= 表達(dá)式1 表達(dá)式2）比較表達(dá)式1是否大于等于表達(dá)式2
（＜ 表達(dá)式1 表達(dá)式2) 比較表達(dá)式1是否＜小于表達(dá)式2（＜= 表達(dá)式1 表達(dá)式2）比較表達(dá)式1是否＜一小于等于表達(dá)式2（＞ 表達(dá)式1 表達(dá)式2） 比較表達(dá)式1是否＞大于表達(dá)式2（＞= 表達(dá)式1 表達(dá)式2） 比較表達(dá)式1是否大于等于表達(dá)式2 深溝球軸承對(duì)話框界面的設(shè)計(jì)如圖所示是參數(shù)化繪制深溝球軸承的對(duì)話框界面，其DCL文件代碼是： 圖5 深溝球軸承對(duì)話框界面pdtlqzc:dialog{label=深溝球軸承 (GB/T2761994)。 :popup_list{key=popup_list。 label=軸承直徑系列。 edit_width=40。 list=3系列\(zhòng)n4系列\(zhòng)n5系列\(zhòng)n6系列\(zhòng)n7系列\(zhòng)n8系列\(zhòng)n9系列\(zhòng)n10系列\(zhòng)n12系列\(zhòng)n15系列\(zhòng)n17系列\(zhòng)n20系列\(zhòng)n25系列\(zhòng)n30系列\(zhòng)n35系列\(zhòng)n40系列\(zhòng)n45系列\(zhòng)n50系列\(zhòng)n55系列\(zhòng)n60系列\(zhòng)n65系列\(zhòng)n70系列\(zhòng)n75系列\(zhòng)n80系列\(zhòng)n85系列\(zhòng)n90系列\(zhòng)n95系列\(zhòng)n100系列。 } :text{value= d d1最小 D B 軸承代號(hào)。} :list_box{ key=list。 list=3\\t8\t3\t619/3\n3\\t10\t4\t623\n4\\t9\\t628/4\n4\\t11\t4\t619/4\n4\\t13\t5\t624\n4\\t16\t5\t634\n5\\t13\t4\t619/5\n5\\t14\t5\t605\n5\\t16\t5\t625\n5\\t19\t6\t626\n6\\t13\t5\628/9\n6\\t15\t5\t619/6\n6\\t17\t6\t606\n6\\t19\t6\t626\n7\\n14\t5\t288/7\n7\\n17\5\t619/7\n7\\t19\t6\t607\n7\\t27\t7\t627\n8\\t16\t5\t628/8\n8\\t19\t6\t619/8\n8\\t22\t7\t608\n8\\t24\t8\t628\n9\\t17\t5\t628/9\n9\\t20\t6\t619/9\n9\\t24\t7\t609\n9\\t26\t8\t629\n10\t12\t19\t5\t61800\n10\\t22\t6\t61900\n10\\t26\t8\t6000\n10\t15\t30\t9\t6200\n10\t15\t35\t11\t6300\n12\t14\t21\t5\t61801\n12\\t24\t6\t61901\n12\\t28\t7\t16001\n12\\t28\t8\t6001\n12\t17\t32\10\t6201\n12\t18\t37\t12\t6301\n15\t17\t24\t5\t61802\n15\\t28\t7\t61902\n15\\t32\t8\t16002\n15\\t32\t9\t6002\n15\t20\t35\t11\t6202\n15\t21\t42\t13\t6302\n17\t19\t26\t5\t61803\n17\\t30\t7\t61903\n17\\t35\t8\t16003\n17\\t35\t10\t6003\n17\t22\t40\t12\t6203\n17\t23\t47\t14\t6303\n17\t24\t62\t17\t6403\n20\\t32\t7\t61804\n20\\t37\t9\t61904\n20\\t42\t8\t16004\n25\t42\t12\t6004\n20\t26\t47\t16\t6204\n20\t27\t52\t15\t6304\n20\t27\t72\t19\t6404\n25\\t37\t7\t61805\n25\\t47\t9\t61905\n25\\t47\t8\t16005\n25\t30\t47\t12\t6005\n25\t31\t52\t15\t6205\n25\t32\t62\t17\t6305\n25\t34\t80\t21\t6405\n30\\t42\t7\t61806\n30\\t47\t9\t61906\n30\\t47\t9\t61906\n30\\t55\t9\t16006\n30\t36\t55\t13\t6006\n30\t36\t62\t16\t6206\n30\t37\t72\t19\t6306\n30\t39\t90\t23\t6406\n35\\t47\t7\t61087\n35\t40\t55\t10\t61907\n30\\t62\t9\t16007\n35\t41\t62\t14\t6007\n35\t42\t72\t17\t6207\n35\t44\t80\t21\t6307\n35\t44\t100\t25\t6407\n40\\t52\t7\t61808\n40\t45\t62\t12\t61908\n40\\t68\t9\t16008\n40\t46\t68\t15\t6008\n40\t47\t80\t18\t6208\n40\t49\t90\t23\t6308\n40\t50\t110\t27\t6408\n45\\t58\t7\t61809\n45\t50\t68\t12\t61909\n45\t50\t75\t10\t16009\n45\t51\t75\t16\t6009\n45\t52\t89\t19\t6209\n45\t54\t100\t25\t6309\n45\t55\t120\t29\t6409\n50\\t