《AutoCAD軟件的二次開發(fā).ppt》由會員分享，可在線閱讀，更多相關(guān)《AutoCAD軟件的二次開發(fā).ppt（55頁珍藏版）》請在裝配圖網(wǎng)上搜索。

第七章AutoCAD軟件的二次開發(fā),VisualLISP簡介AutoLISP程序設(shè)計語言,改變AutoCAD工作方式的方法：定制編程AutoLISP/VisualLISPAutoCADVBA(VisualBasicforApplication)ADS(AutoCADDevelopmentSystem)ObjectARX(AutoCADRuntimeeXtension),1.LISP(ListProcessingLanguage)：人工智能領(lǐng)域中廣泛采用的一種程序設(shè)計語言，由于其處理的對象是符號表達(dá)式，因此也稱為符號式語言。應(yīng)用領(lǐng)域：人工智能、機器人、專家系統(tǒng)、博弈、定理證明等。版本：MacLISP、InterLISP、ZetaLISP、CommonLISP,2.AutoLISP：嵌套于AutoCAD內(nèi)部，將LISP語言與AutoCAD有機結(jié)合的編程語言，用于定制和擴展AutoCAD的功能，是AutoCAD二次開發(fā)的工具之一。使用AutoLISP可以直接調(diào)用幾乎所有的AutoCAD命令；AutoLISP既具備高級語言的基本結(jié)構(gòu)和功能，又具有一般高級語言所沒有的強大的圖形處理功能。用途：利用AutoLISP進行AutoCAD二次開發(fā)，實現(xiàn)直接增加和修改AutoCAD命令；擴大AutoCAD的圖形編輯功能；建立圖形庫和數(shù)據(jù)庫并對當(dāng)前圖形進行直接訪問和修改；開發(fā)CAD軟件包。,一、AutoLISP簡介,3.AutoLISP的典型應(yīng)用參數(shù)化繪圖程序設(shè)計尺寸驅(qū)動程序鼠標(biāo)驅(qū)動程序驅(qū)動利用AutoCAD提供的PDB模板構(gòu)成的DCL（DialogControlLanguage)文件創(chuàng)建自己的對話框。,4.AutoLISP的特點AutoLISP語言是在普通LISP語言基礎(chǔ)上，擴充了許多適用于CAD應(yīng)用的特殊功能而形成的，是一種僅能用解釋方式運行于AutoCAD內(nèi)部的解釋型程序設(shè)計語言。AutoLISP語言中的一切成分都是以函數(shù)形式給出的，沒有語句概念和其它語法結(jié)構(gòu)。AutoLISP把數(shù)據(jù)和程序統(tǒng)一表達(dá)為表結(jié)構(gòu)，因此可以把程序當(dāng)作數(shù)據(jù)來處理，也可以把數(shù)據(jù)當(dāng)作程序來執(zhí)行。AutoLISP語言中的程序運行過程就是對函數(shù)求值得過程，在函數(shù)求值過程中實現(xiàn)函數(shù)功能。AutoLISP語言的主要控制結(jié)構(gòu)采用遞歸方式，程序設(shè)計簡單易懂。,一、AutoLISP簡介,二、AutoLISP的程序結(jié)構(gòu)：AutoLISP程序是由一個或者一系列按照特定順序排列的標(biāo)準(zhǔn)表組成的，程序所實現(xiàn)的功能就是每個標(biāo)準(zhǔn)表所實現(xiàn)功能的總和。,1.標(biāo)準(zhǔn)表：由左右兩個括號組成，其功能由括號內(nèi)的代碼實現(xiàn)；標(biāo)準(zhǔn)表中的第一個元素均為操作符或者函數(shù)名，其余元素都是相應(yīng)函數(shù)的參數(shù)。標(biāo)準(zhǔn)表格式：(函數(shù)名[][]……[]),標(biāo)準(zhǔn)表示例：(setqx10.0)(setqy10.0)(setqz(+xy))(setqa“HelloWorld!”)(command“l(fā)ine”“0.0”“10,10”“”)(command“circle”“100,100”“50”),注意：標(biāo)準(zhǔn)表中可包含別的表。,2.AutoLISP程序書寫格式的特點AutoLISP程序是由標(biāo)準(zhǔn)表組成的，因此程序中所有的括號都必須左右匹配；AutoLISP程序閱讀函數(shù)時，按照從左到右的規(guī)則進行。操作符（函數(shù)名）必須放在標(biāo)準(zhǔn)表中第一個元素的位置。標(biāo)準(zhǔn)表中的函數(shù)與參數(shù)、參數(shù)與參數(shù)之間至少要用一個空格來分開。2個標(biāo)準(zhǔn)表之間和表內(nèi)的多余空格和回車都是不需要的，因此一個表可以占多行，一行內(nèi)也可寫多個表。AutoLISP程序中用“；”作注釋，程序執(zhí)行時會自動跳過每一行中分號以后的部分。注釋可放于程序中的任何地方。AutoLISP程序的擴展名為（.lsp），并以ASCII碼文本文件的形式表達(dá)，可用文本編輯軟件進行編輯。,(setqx10.0)(setqy10.0)(setqz(+xy))(setqa“HelloWorld!”)(command“l(fā)ine”“0.0”“10,10”“”)(command“circle”“100,100”“50”),學(xué)習(xí)AutoLISP的核心是掌握AutoLISP函數(shù)，包括AutoCAD自帶的內(nèi)部函數(shù)和由用戶自行定義的外部函數(shù)。,二、AutoLISP的程序結(jié)構(gòu),三、AutoLISP的內(nèi)存分配,1.AutoLISP運行時所需的兩個內(nèi)存區(qū)域：Heap（堆區(qū)域）：存儲所有函數(shù)和變量。程序使用的函數(shù)和表越多，變量名越長，函數(shù)越復(fù)雜，該區(qū)域所占的空間越大。Heap：25000bytesStack（棧區(qū)域）：存儲函數(shù)的變量和局部結(jié)構(gòu)。標(biāo)準(zhǔn)表中嵌套的表越多，函數(shù)執(zhí)行的遞歸次數(shù)越多，該區(qū)域所占的空間越大。Stack：20000byets,2.內(nèi)存出錯提示信息堆空間用光：Insufficientnodespace。沒有足夠的內(nèi)存裝載AutoLISP：Insufficiecntmemory-AutoLISPdisabled。,注意：AutoCAD平臺上運行AutoLISP時，用戶不能擴展系統(tǒng)的堆或?？臻g,四、AutoLISP程序執(zhí)行過程,在AutoCAD環(huán)境中command命令提示符下輸入AutoLISP程序，回車直接運行，返回結(jié)果立即顯示在文本屏幕上。,例：(setqstring“programmingwithAutoLISPisgreatfun!”),用文本編輯軟件編寫AutoLISP程序，再用Load函數(shù)在AutoCAD環(huán)境中裝載并運行。,例：1.編寫AutoLISP程序代碼，存盤（d:\MyAutoLISP.lsp)(princ“\nWelcome!)(defunc:welcome()(print“AutoLISPwelcomeyou!”))2.啟動AutoCAD，加載AutoLISP應(yīng)用程序在command命令提示符下鍵入：(load“d:/lisp/myautolisp.lsp”)3.運行defun定義的函數(shù)在command命令提示行下鍵入：welcome，回車,五、VisualLISP:Autodesk公司為增強AutoLISP程序開發(fā)能力而設(shè)計的軟件工具。,VisualLISP集成開發(fā)環(huán)境的組成部分：語法檢查器：可識別錯誤的AutoLISP結(jié)構(gòu)和內(nèi)部函數(shù)調(diào)用中不合適的參數(shù)。文件編譯器：可改善程序的執(zhí)行速度并提供一個有效的開發(fā)平臺。資源管理器：允許用戶在一個窗口中一步步地執(zhí)行AutoLISP程序源代碼，并在AutoCAD圖形窗口中顯示代碼執(zhí)行結(jié)果。AutoLISP格式工具：可重新安排程序格式，增強程序可讀性。檢查和觀察工具：可方便地訪問變量和表達(dá)式的值，還可瀏覽AutoCAD圖形實體的各項屬性值。上下文相關(guān)菜單：提供有關(guān)AutoLISP函數(shù)信息以及對符號名的搜索。項目管理系統(tǒng)：使用戶可以更方便地管理多文件應(yīng)用程序。編譯過的AutoLISP文件將被封裝為一個單獨的模塊。窗口保護和恢復(fù)功能：使用戶可以保存并再次使用任一VisualLISP情景窗口環(huán)境。智能化的控制臺窗口：基本功能對應(yīng)于AutoCAD文本屏幕窗口，同時提供了一些交互特性。,AutoLISP表達(dá)式和數(shù)據(jù)結(jié)構(gòu)AutoLISP變量基本輸出函數(shù)符號和函數(shù)控制,一、數(shù)據(jù)類型,1.整型：32位帶符號的整數(shù).范圍：-2147483648~+2147483647(-231~+231-1)。注意：如果輸入的整數(shù)超過范圍，則AutoLISP將整數(shù)轉(zhuǎn)換為實數(shù)；如果兩個整數(shù)運算結(jié)果超過這個范圍，結(jié)果將是無效的。例：(seta2147483648)輸出：2.14748e+009轉(zhuǎn)換為實數(shù)(seta(+21474836463)輸出：-2147483647無效結(jié)果,2.實型：用雙精度的浮點數(shù)表示，至少有14位有效位數(shù)的精度，可用科學(xué)計數(shù)法表示。,3.字符串：字符常數(shù)，由雙引號引起來的字符系列。字符串長度：不包括雙引號的字符個數(shù)，最大為100個字符，超過部分無效。任何字符都可以用\nnn的格式表示，\是ASCII碼的前導(dǎo)標(biāo)識字符，nnn是該字符的ASCII碼。（例：ABCD可表示為\101\102\103\104）,注意：其中的字符e、n、r、t都必須是小寫。,常用控制字符的表示方法,例：(setqa(getpoint“\n請用鼠標(biāo)指示一個點：”))(setqa(getpoint“\012請用鼠標(biāo)指示一個點：”)),4.表：以“(”開始，以配對的“)”結(jié)束，()里可為空，可有若干元素（簡單或復(fù)雜），還可是其他的表。表的長度：表中的元素個數(shù)。例：(1.01.00.0)(“this”“that”“theother”)(1“ONE”)((ab)c(cd))長度：3323(+123)(sin(*0.5pi)),長度：42,用表可以方便地構(gòu)造出復(fù)雜的數(shù)據(jù)結(jié)構(gòu)。,5.選擇集：一個或多個圖形對象的集合，用戶可通過AutoLISP程序向選擇集添加或者從選擇集中刪除圖形對象。例：_$(ssget“X”)說明：返回一個包含圖形文件中所有對象的選擇集。,6.實體名：為圖形對象指定的16進制的數(shù)字標(biāo)識。通過該標(biāo)識，可找到實體在圖形數(shù)據(jù)庫中的位置，并可進一步對其進行編輯。例：_$(entlast)說明：返回最后一個加入圖形文件的對象的實體名,7.VLA：VisualLISP在ActiveX中使用的對象。AutoCAD的對象如直線、圖層、視圖、視口等都屬于VLA對象。,8.文件描述：賦予被打開文件的標(biāo)識，類似于文件指針。例：_$(setqfile(open“c:\\1.txt”“r”))#,9.符號與變量：,（1）符號：標(biāo)識，用來作為變量、函數(shù)的名稱。規(guī)定：不能只包含數(shù)字，不能包含：().‘“；，大小寫等價。例：合法符號：A11AB1-d+e非法符號：(a)b’4“5注意：符號的長度如果不是十分必要，最好不要超過6個字符。,（2）變量的數(shù)據(jù)類型：變量被賦予的值得類型就是變量本省的類型，程序運行過程中，同一變量可被賦予不同類型的值，可用type命令了解變量的數(shù)據(jù)類型。,（3）變量賦值Setq函數(shù)：(setq變量1值1變量2值2……)例：(setqa(+12)),（4）預(yù)定義符號Nil：如果變量沒有被賦值，則其值為Nil，注意：Nil不是空串也不是0值。T：邏輯常量True。PAUSE：與command函數(shù)配合使用，用于暫停，等待用戶輸入。PI：圓周率。注意：每個變量都占用一定的內(nèi)存空間，為節(jié)省存儲空間，可重復(fù)使用變量名，或?qū)⒉辉偈褂玫淖兞抠x予Nil，以便釋放該變量所占用的內(nèi)存空間。如果所定義變量名與預(yù)定義符號或系統(tǒng)內(nèi)部函數(shù)名稱相同，則后面的定義取代前面的定義。,（5）顯示變量的值：在變量名稱前加“！”，可在AutoCAD命令提示區(qū)看到變量的值?？衫眠@種方法將變量的值直接傳遞給AutoCAD。例：command:(setqa‘(10.010.0))command:lineSpecifyfirstpoint!a,二、表達(dá)式,1.操作符前置表示法：函數(shù)名和操作符號放在所有操作數(shù)前面。例：(seta(*z(+xy)))說明：a=z*(x+y)操作符前置表示法使得運算和函數(shù)的調(diào)用形式得到統(tǒng)一。,2.運算的優(yōu)先級：函數(shù)之間不存在優(yōu)先的關(guān)系，運算的順序僅由表的層次來決定。最里層的表最先被求值，把求值的結(jié)果返回給外面的層，一直到求出最終的結(jié)果。例：(seta(*z(+xy)))說明：a=z*(x+y),3.AutoLISP的求值過程：函每個表達(dá)式都返回一個數(shù)值，供外層表達(dá)式使用。如果沒有外層表達(dá)式，AutoLISP將這個值返回給AutoCAD，AutoCAD最多顯示六位小數(shù)。,3.AutoLISP的求值規(guī)則整型數(shù)、實型數(shù)、字符串、文件指針和函數(shù)，以它們本省的值作為求值的結(jié)果；符號以它們當(dāng)前的約束值作為求值的結(jié)果；表根據(jù)其第一個元素來進行計算：如果第一個元素為函數(shù)名，則表中的剩余元素作為該函數(shù)的變元；如果表的第一個元素是一個表，這個表就假設(shè)為函數(shù)定義，以外層表中剩余的元素作為該函數(shù)的變元進行計算；如果表的第一個元素是quote函數(shù)，就不再對這樣的表求值，而是直接引用這個表例：(setqa(quote(1010)))等價于(setqa’(1010)),三、數(shù)據(jù)存儲結(jié)構(gòu),指針：如果內(nèi)存單元A的內(nèi)容是另一個內(nèi)存單元B的地址，則A稱為指向B的指針。,節(jié)點：如果內(nèi)存單元A分為左右兩個部分，分別存放2個內(nèi)存單元B、C的地址，則A稱為左右2個指針，具有左右2個指針的內(nèi)存單元稱為節(jié)點。,AotoLISP的內(nèi)存由一系列的節(jié)點組成，每個節(jié)點長度為12個字節(jié)，等分為兩部分，作為左右指針，每個節(jié)點都有它的地址。AutoLISP通過訪問符號、字符串、表等節(jié)點對其進行存取。,1.符號的存儲結(jié)構(gòu)：一個符號至少需要3個節(jié)點。,,,符號表,鏈接到符號表鏈尾，并指向存放符號名的節(jié)點,存放符號名和符號值指針的節(jié)點,存放符號值的節(jié)點,符號名超過6個字符，需申請存放符號名的空間，原半個節(jié)點作為指向符號名的指針,2.字符串的存儲結(jié)構(gòu)：字符串在內(nèi)存中是以連續(xù)空間存儲的。,3.表的存儲結(jié)構(gòu)：用一組節(jié)點存儲，節(jié)點的右指針指向下一個元素的地址，最后一個元素的右指針為空，節(jié)點的左指針指向各自的元素。,4.點對：只有兩個元素，且兩個元素都是原子的表。形式：(原子.原子)例：(a.b)(1.2)點對只用1個節(jié)點存放指針，節(jié)點的左指針指向第一個元素，節(jié)點的右指針指向第二個元素。,點對可以節(jié)省存儲空間，且可簡化某些函數(shù)對表的運算，是AutoLISP程序開發(fā)中常用的數(shù)據(jù)結(jié)構(gòu)。,四、AutoLISP語言的控制流程,1.AutoLISP的3種基本結(jié)構(gòu)：順序結(jié)構(gòu)分支結(jié)構(gòu)循環(huán)結(jié)構(gòu)直到型循環(huán)（給定邏輯條件不滿足時執(zhí)行循環(huán)體，直到滿足為止）當(dāng)型循環(huán)（當(dāng)給定邏輯條件滿足時執(zhí)行循環(huán)體，直到不滿足為止）,2.AutoLISP的3種控制語句：選擇語句、循環(huán)語句、轉(zhuǎn)移語句,（1）條件語句：If語句和cond語句,If語句的基本形式：(iftestexprthenexpr[elseexpr]),例：Command:(if(=13)“Yes!!”“no.”)Command:(if(=2(+11))“Yes!!”)Command:(if(=2(+34))“Yes!!”),If語句可嵌套使用,cond語句的基本形式：(cond[(testresult…)…]),例：(cond((minuspa)(-a));;;判斷a是否為負(fù)數(shù)，如果是，返回-a(ta);;;默認(rèn)情況，用t作為測試表達(dá)式),求a的絕對值,例：(cond((=s“Y”)1)((=s“y”)1)((=s“N”)0)((=s“n”)0)(tnil)),判斷字符串s的值，視情況返回0、1、Nil,（2）循環(huán)語句：repeat循環(huán)和while循環(huán),repeat函數(shù)的基本形式：(repeatint[expr…]),例：Command:(setqa10b100)100Command:(repeat4(setqa(+a10)(setqb(+b100))500,While函數(shù)的基本形式：(whiletestexpr[expr…]),例：(setqtest1)while(10為止，期間執(zhí)行循環(huán)體,四、函數(shù)與函數(shù)控制,1.定義AutoLISP函數(shù)defun函數(shù)格式：(defun函數(shù)名([函數(shù)參數(shù)][/變量表…])表達(dá)式…),例：(defunadd10(x)setqx(+10 x))command:(setqx5)command:(add10 x),定義加10的函數(shù),函數(shù)調(diào)用,2.調(diào)用AutoLISP函數(shù)(函數(shù)名[函數(shù)參數(shù)…]),3.調(diào)用AutoCAD命令：command函數(shù)(command“AutoCAD命令”“命令所需的數(shù)據(jù)”),例：(command“l(fā)ine”“10,10”“”“20,20”“”),4.定義AutoCAD命令：defun函數(shù)(defunC:AutoCAD命令名(/局部變量表…)表達(dá)式…),例：(defunc:cir(/p1p2)(setqp1(getpoint“\n請指示圓心:”))(setqp2(getpoint“\n請指示圓上一點:”))(setqr(distancep1p2)(command“circle”p1r)),查詢與Command函數(shù)顯示控制幾何工具的使用方法,一、查詢和命令,1.Command函數(shù)：將AutoCAD命令送到AutoCAD操作環(huán)境的命令行。格式：(command“AutoCAD命令”“命令所需的數(shù)據(jù)”)說明：函數(shù)參數(shù)的類型可以是整型、實型、字符串、點、實體名或選擇集。如果參數(shù)是類似于角度、距離和點的數(shù)據(jù)，則可用字符串或者數(shù)據(jù)本身的值作為參數(shù)輸入。,例：(command“circle”“0,0”“3,3”)(command“thickness”1)(setqpt‘(113))(setradius5)(command“circle”ptradius),（1）暫停以等候輸入的預(yù)定義參數(shù)：pause,例：(command“circle”“5,5”pause“l(fā)ine”“5,5”“7,5”),注意：暫停等候用戶輸入時，函數(shù)被認(rèn)為是激活的，用戶不能其它的AutoLISP表達(dá)式來進行計算。,例：(setqblk“MY_BLOCK”)(setqoldlayer(getvar“clayer”)(command“l(fā)ayer”“set”“NEW_LAY”“”)(command“insert”blkpause“”“”pause)(command“l(fā)ayer”“set”oldlayer),（2）將拾取點傳入AutoCAD命令,對需要用戶指定拾取點和對象的AutoCAD命令，要將這些點和對象的組合不使用pause符號而傳入command函數(shù)，則必須將它們保存在變量中，在傳入command函數(shù)（其中點可作為字符串傳入command函數(shù)）。,例：(command“circle”“5,5”“2”)(command“l(fā)ine”“3,5”“7,5”)(setqe1(entlast))(setqpoint‘(57))(command“trim”e1“”point“”),（3）對command函數(shù)的undo操作,如果想將幾條command函數(shù)作為一組命令全部撤銷，則必須使用undobegin和undoend選項。,例：(command"undo""be")(command“circle”“5,5”“2”)(command“l(fā)ine”“3,5”“7,5”“”)(setqe1(entlast))(setqpoint‘(57))(command“trim”e1“”point“”)(command"undo"“end"),2.系統(tǒng)和環(huán)境變量的查詢和設(shè)置查詢函數(shù)：(getvar“AutoCAD系統(tǒng)變量名”)說明：獲得AutoCAD系統(tǒng)變量的值。設(shè)置函數(shù)：(setvar“AutoCAD系統(tǒng)變量名”系統(tǒng)變量值)說明：設(shè)置AutoCAD系統(tǒng)變量值。,AutoCAD系統(tǒng)變量值的類型：整數(shù)、實數(shù)、字符串、二維點、三維點。,例：(if(<(getvar“filletrad”)1)(setvar“filletrad”1)),例：(if(<(getvar“isolines”)8)(setvar“isolines”8)),二、顯示控制,2.菜單查詢和控制函數(shù)：menucmd格式：(menucmdstring)說明：控制圖形窗口的菜單顯示，包括顯示、修改和查詢當(dāng)前的子菜單。,指定菜單區(qū)域或菜單項,指定在菜單區(qū)域或菜單項上執(zhí)行的操作,例：(setqs(menucmd"P11.3=?"));;;Getsthestatusofthemenuitem(if(=s“”);;;Ifthestatusisanemptystring,(menucmd"P11.3=~");;;disablethemenuitem),1.文本輸出函數(shù)：prompt、princ、print,3.控制圖形和文本窗口的函數(shù)graphscr函數(shù)：顯示圖形窗口。textscr函數(shù)：顯示文本窗口。,格式：(redraw[ename[mode]])參數(shù)：ename——實體名；mode——顯示模式,例：(redraw(entlast)3),redraw函數(shù)：圖形對象重繪函數(shù)。,顯示模式參數(shù)：重繪實體：1消隱實體：2亮顯實體：3不亮顯實體：4,三、獲取用戶輸入,例：(setqp(00))(getcornerp"inputacorner:"),例：(initget1"YesNo")(setqx(getkword"Areyousure?(YesorNo)"))(if(="Yes"x)(princ"\nUserpressYes")(princ"\nUserpressno")),例：(initget6)(setqr(getreal"輸入半徑")(command"circle""0,0"r),例：(getpoint(00)"inputotherpt"),四、幾何工具,1.angle函數(shù)：計算直線與x軸的夾角（弧度）。,2.distance函數(shù)：計算2點間的距離。,3.polar函數(shù)：依靠極坐標(biāo)獲得1個點。,4.insert函數(shù)：計算2條直線的交點。,例：(setqpt1(3.06.00.0))(setqpt2(5.02.00.0))(setqbase(1.07.00.0))(setqrads(anglept1pt2))(setqlen(distancept1pt2))(setqendpt(polarbaseradslen)),5.osnap函數(shù)：對象捕捉函數(shù)。,例：(setqpt2(osnappt1“midp”),捕捉靠近pt1對象的中點,例：(setqpt2(osnappt1"_end,_int")),捕捉靠近pt1對象的端點或交點,6.aperture系統(tǒng)變量確定在使用對象捕捉時，選擇點與對象允許的接近程度。,五、數(shù)據(jù)轉(zhuǎn)換,1.rots函數(shù)：將實數(shù)轉(zhuǎn)換為字符串。,實數(shù)的單位由lunits系統(tǒng)變量控制實數(shù)的精度由luprec系統(tǒng)變量控制結(jié)果字符中如何顯示前面和后面的0由尺寸變量dimzin控制,例：(setqx17.5)(setqstr"\nValueformattedas")(setqfmtval(rtosx14));模式1表示科學(xué)計數(shù)法(princ(strcatstrfmtval))(setqfmtval(rtosx24));模式2表示10進制表示(princ(strcatstrfmtval))(setqfmtval(rtosx34));模式3表示工程表示(princ(strcatstrfmtval))(setqfmtval(rtosx44));模式4表示建筑表示(princ(strcatstrfmtval))(setqfmtval(rtosx54));模式5表示分?jǐn)?shù)表示(princ(strcatstrfmtval)),格式：(rtosnumber[mode[precision]]),2.Distof函數(shù)：將字符串轉(zhuǎn)換為實數(shù)。,格式：(Distofstring[mode]),例：(distof"1.7500E+01"1);模式1表示科學(xué)計數(shù)法1.7500E+01(distof"17.50"2);模式2表示10進制表示17.50(distof"1‘-5.50\""3);模式3表示工程表示1-5.5"(distof"1‘-51/2\""4);模式4表示建筑表示1-51/2"(distof"171/2"5);模式5表示分?jǐn)?shù)表示,注意反斜杠\的作用,3.angtos函數(shù)：將角度轉(zhuǎn)換為字符串。,例：(setqang3.14159str2"\nAngleformattedas")(setqfmtval(angtosang00));模式0表示角度(princ(strcatstr2fmtval))(setqfmtval(angtosang14));模式1表示度/分/秒形式表示角度(princ(strcatstr2fmtval))(setqfmtval(angtosang24));模式2表示梯度表示法(princ(strcatstr2fmtval))(setqfmtval(angtosang34));模式3表示弧度(princ(strcatstr2fmtval))(setqfmtval(angtosang42));模式4表示測量員表示方式(princ(strcatstr2fmtval)),格式：(angtosangle[unit[precision]]),4.angtof函數(shù)：將字符串轉(zhuǎn)換為角度。,格式：(angtofstring[units]),例：(setqa(angtof"180"0));模式0角度表示法(setqb(angtof"180d00\""1));模式1表示度分秒表示法(setqc(angtof"200.0000g"2));模式2表示梯度表示法(setqd(angtof"3.14159r"3));模式3表示弧度表示法(setqe(angtof"W"4));模式4表示測量員表示法,都返回3.14159,例：將角度值從弧度轉(zhuǎn)換為角度：先用angtos函數(shù)獲得角度的字符串，然后用atof函數(shù)將字符串轉(zhuǎn)換為實數(shù)。(setqpoint1(11)point2(12))(setqrad(anglepoint1point2))(setqdegree(atof(angtosrad02))),六、坐標(biāo)系轉(zhuǎn)換,(transptfromto[disp]),說明：pt：Alistofthreerealsthatcanbeinterpretedaseithera3Dpointora3Ddisplacement(vector).,from：Anintegercode,entityname,or3Dextrusionvectoridentifyingthecoordinatesysteminwhichptisexpressed.Theintegercodecanbeoneofthefollowing:0World(WCS)1User(currentUCS)2Ifusedwithcode0or1,thisindicatestheDisplayCoordinateSystem(DCS)ofthecurrentviewport.Whenusedwithcode3,itindicatestheDCSofthecurrentmodelspaceviewport.3PaperspaceDCS(usedonlywithcode2),to：Anintegercode,entityname,or3Dextrusionvectoridentifyingthecoordinatesystemofthereturnedpoint.Seethefromargumentforalistofvalidintegercodes.,例：用getpoint函數(shù)獲取點后，將該點轉(zhuǎn)換為世界坐標(biāo)系下的點。(setqpnt(getpoint“輸入點：”))(transpnt10),一、DCL文件結(jié)構(gòu),二、DCL語法,1.定義控件,格式：name:item1[:item2:item3…]{attribute=value;…},說明：每個item都是預(yù)先定義的控件。新定義的控件繼承了所有控件（item1…）的屬性；大括號的屬性定義補充或替換繼承的定義；如果多個item指定相同的屬性，則使用第1個遇到的屬性；,2.引用控件,格式：name；,或:name{attribute=value;…},例：spacer;ok_cancel;,3.屬性和屬性值,格式：attribute=value;,attribute：屬性value：屬性值;：賦值語句結(jié)束標(biāo)志,4.注釋：DCL文件中前帶//的語句是注釋，//到行尾的內(nèi)容被忽略。也可使用/*注釋文字*/的整段注釋,三、控件及其屬性,1.加框列（boxed_column）和加框行（boxed_row）屬性：標(biāo)題，如果標(biāo)題為空，加框列和行內(nèi)的控件將被無標(biāo)題的線包圍。,例：:boxed_column{label=“Insulation:”;……},2.加框單選列（boxed_radio_column）和加框行（boxed_radio_row）屬性：標(biāo)題。值：用雙引號括起來的表示單選按鈕關(guān)鍵字的字符串，其值為1。,3.button屬性：label、is_default、is_cancel。說明：如果設(shè)置為true，則用戶按回車鍵的結(jié)果與點擊該按鈕一樣；如果設(shè)置為true，則用戶按Esc鍵的響應(yīng)與點擊該按鈕一樣。,4.Edit_box屬性：label、edit_width、edit_limit、value、allow_accept。說明：edit_width是以字符為單位的edit_box控件之寬度；edit_limit是規(guī)定用戶能夠在edit_box控件中輸入的字符數(shù)；value屬性值為用引號括起來的字符，對話框可見時出現(xiàn)在edit_box中；allow_accept設(shè)置為true時，用戶按回車鍵，相當(dāng)于鼠標(biāo)選擇edit_box。,5.image_button屬性：color、aspect_ratio。說明：color是背景色，0~7或black、red、yellow、green、cyan、blue、magenta、white;aspect_ratio是圖像控件的寬和高之比。,例：:edit_box{key=“l(fā)yr_ebox”;value=“0”;edit_width=31;edit_limit=31;},例：:image{key=“mfsld”;color=0;aspect_ratio=0.7;},6.list_box屬性：label、multiple_select、list、tabs、value、aspect_ratio。說明：multiple_select設(shè)置為true時，允許用戶在list_box中選擇多行文字；list屬性規(guī)定列表框中顯示文本的初始設(shè)置，每行文字用轉(zhuǎn)義字符\n分開，字符串中可包含制表符，允許特殊的字符串格式化；tab屬性是一個包含數(shù)值的字符串，規(guī)定list_box中的制表位置；value屬性是引號括起來的字符串，包含整數(shù)，以規(guī)定哪一行在初始化中被選中。,例：:list_box{key=“vpdes”;value=“”;width=60;height=10;tab=“51726”},6.popup_list屬性：label、edit_width、list、tabs、value。,7.radio_button屬性：label、value。說明：value為引號括起來的整數(shù)，“0”或“1”，“1”表示單選按鈕被選中。,8.toggle_button屬性：label、value。說明：value為引號括起來的整數(shù)，“0”或“1”，“1”表示復(fù)選按鈕被選中。,四、布局和尺寸屬性,width（寬度）height（高度）alignment（對齊）children_alignment（子控件對齊）fixed_width（固定寬度）fixed_height（固定高度）children_fixed_width（子控件固定寬度）children_fixed_height（子控件固定高度）,四、布局和尺寸屬性,五、功能屬性,Is_enabled：true或false，指定控件是否可選。Is_tab_stop：按Tab鍵可逐個通過對話框上is_tab_stop=true的控件。mnemonic：設(shè)置一個由mnemonic值表示的字符，當(dāng)按該字符時，聚焦到該空間，mnemonic字符必須大寫且須是控件標(biāo)題的大寫字符之一。,例：:edit_box{label=“A–TopVertOpng”;key=“l(fā)yr_ebox”;value=“0”;edit_width=31;edit_limit=31;mnemonic=“A”;},六、關(guān)鍵字key屬性：應(yīng)用程序與對話框中控件聯(lián)系的途徑。說明：每個激活的控件必須有一個關(guān)鍵字值，并且對于一個對話框是唯一的，關(guān)鍵字的值是引號括起來的字符串，區(qū)分大小寫。關(guān)鍵字前綴命名方案：,一、AutoLISP程序控制DCL對話框的方法,步驟：（1）用load_dialog函數(shù)將DCL文件加載到內(nèi)存中；（2）調(diào)用new_dialog函數(shù)，將對話框名和DCL標(biāo)識碼作為參數(shù)傳遞給該函數(shù)；（3）通過設(shè)置控件值、列表和圖像初始化對話框；（4）調(diào)用start_dialog將對話框的控制傳遞給AutoCAD并顯示出來；（5）調(diào)用unload_dialog，在用戶響應(yīng)后從內(nèi)存中刪除對話框。,hello:dialog{label="SampleDialogBox";:text{label="Hello,world";}ok_only;},例：hello對話框的控制方法,用戶單擊“確定”按鈕后，AutoCAD將ok_only控件指定動作done_dialog的調(diào)用傳遞給AutoLISP應(yīng)用程序，并關(guān)閉對話框。,二、動作表達(dá)式和回調(diào),action_tile函數(shù)：將AutoLISP表達(dá)式與控件相關(guān)聯(lián)，從而定義對話框中控件被選定時執(zhí)行的操作。格式：(action_tilekeyaction-expression),get_attr函數(shù)：檢索DCL文件中用戶定義的屬性。,get_tile函數(shù)：獲得控件的當(dāng)前運行值（基于用戶對控件的輸入）。,注意：定義動作表達(dá)式必須在調(diào)用new_dialog之后，調(diào)用start_dialog之前。用戶如何選定控件或修改控件內(nèi)容的信息，將作為回調(diào)返回給動作表達(dá)式，多數(shù)情況下，對話框每個被激活的控件都將產(chǎn)生一個回調(diào)。定義回調(diào)的動作表達(dá)表達(dá)式通常被當(dāng)作回調(diào)函數(shù)引用。該函數(shù)檢查關(guān)聯(lián)控件的合法性，并更新對話框中關(guān)于控件值的信息。只有OK按鈕（或與之等效的控件）可檢查控件的值，以永久保存用戶最終選定的設(shè)置。也就是說，應(yīng)該在OK按鈕的回調(diào)中更新與控件值相關(guān)聯(lián)的變量，而不是在單個空間的回調(diào)中更新，否則將無法通過Cancel按鈕來取消變量的值。如果OK按鈕的回調(diào)檢查到錯誤，則不應(yīng)退出對話框，而應(yīng)顯示錯誤信息，并將焦點返回到錯誤控件處。,1.動作表達(dá)式,動作表達(dá)式變量表,例：(action_tile“edit1”“(setqns$value)”),$value包含用戶輸入的字符串，動作表達(dá)式將其存入變量ns中,2.回調(diào)原因：指明動作發(fā)生的原因，并返回$reason變量中。,回調(diào)原因代碼,三、控件處理,1.初始化控件和回調(diào)時改變控件的模式,使控件成為對話框的初始化鍵盤焦點。禁用或啟用控件。如果控件是編輯框或圖像，則高亮顯示其內(nèi)容。,set_tile函數(shù)：設(shè)置控件的值，格式：(set_tilekeyvalue)mode_tile函數(shù)：設(shè)置控件模式，格式：(mode_tilekeymode),key：指定控件的字符串value：賦予控件的新值mode：控件控件模式代碼0啟用控件1禁用控件2將焦點設(shè)置到控件上3選擇編輯框內(nèi)容4圖像亮顯開關(guān),例：,注意：當(dāng)調(diào)用mode_tile來禁用帶有當(dāng)前焦點的控件時，必須再次調(diào)用mode_tile將焦點設(shè)置到另一控件上。,2.單選按鈕的處理,單選按鈕出現(xiàn)在單選控件組中，每個單選按鈕以“1”表示開，“0”表示關(guān)。單選控件組的值是當(dāng)前選定按鈕的key屬性，又可編程對話框（PDB）功能模塊管理一個控件組中的單選按鈕組的值，并確保同一時刻只能有一個單選按鈕被打開?？蔀槊總€單選按鈕指定一個動作，但更為有效的辦法是為整個單選按鈕組指定一個動作，然后通過測試單選按鈕組的值來確定所選單選按鈕及相關(guān)聯(lián)的動作。,例：,3.滑塊的處理,當(dāng)處理滑塊的動作和回調(diào)時，應(yīng)用程序應(yīng)檢查在回調(diào)過程中收到的原因代碼。每當(dāng)?shù)竭_(dá)滑塊的增量邊界時，都要發(fā)生一個回調(diào)。,4.編輯框的處理,編輯框中的字符總是可見的，因此無須處理中間代碼；當(dāng)編輯框上的焦點轉(zhuǎn)移時，編輯框只需返回回調(diào)代碼。,滑塊和編輯框的處理示例程序,