【文章內(nèi)容簡(jiǎn)介】 可以利用 SCR文件作為中性文件，由高級(jí)語(yǔ)言編程直接生成SCR文件，在AutoCAD中運(yùn)行SCR文件繪制圖形。AutoCAD提供的SCR文件是一種繪圖命令集文件，類似操作系統(tǒng)中的批處理文件，可以執(zhí)行某一預(yù)定任務(wù)的命令和參數(shù)序列。它也是一ASCⅡ碼文件，在AutoCAD中用“SCRIPT”命令從指定的SCR文件中讀出命令組，并執(zhí)行。SCR文件格式為每一AutoCAD命令占一行，命令與參數(shù)用空格隔開(kāi)，并嚴(yán)格遵循AutoCAD命令應(yīng)答格式。例如用命令文件畫(huà)出一邊長(zhǎng)為一個(gè)單位的正方形，然后加以擦除工作，可以編輯生成一名為TEST．SCR命令文件來(lái)完成。 LINE，1010，1111，1111，1010，10（畫(huà)出正方形） ERASE L（擦除） 在AutoCAD環(huán)境中，鍵入SCRIPT命令，如： COMAND：SCRIPTJ SCRIPT FILE（DEFAULT）（SCR文件名缺省值)：TESTJ此時(shí)，TEST．SCR文件中的命令序列得到執(zhí)行，繪出圖形?？梢钥闯?，在AutoCAD中，當(dāng)需要將計(jì)算后的數(shù)據(jù)生成圖形，采用高級(jí)語(yǔ)言直接建立SCR文件較之 建立DXF文件或IGES文件更為簡(jiǎn)潔易懂。2．DBF格式數(shù)據(jù)庫(kù)與高級(jí)語(yǔ)言的接口在CAD系統(tǒng)中，可以借用關(guān)系數(shù)據(jù)庫(kù)作為CAD軟件的數(shù)據(jù)庫(kù)。為了在CAD環(huán)境下實(shí)時(shí)地生成、調(diào)用和更新數(shù)據(jù)，需要開(kāi)發(fā)高級(jí)語(yǔ)言與數(shù)據(jù)庫(kù)的接口。DBF格式的數(shù)據(jù)庫(kù)文件是最常用的數(shù)據(jù)庫(kù)格式文件之一，它可由多種數(shù)據(jù)庫(kù)軟件創(chuàng)建，包括dBASE、Foxpro，乃至最新的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言VisuI Foxpro、Delphi等。這種格式的數(shù)據(jù)庫(kù)文件與高級(jí)語(yǔ)言的接口方法也可分為直接型接口和間接型接口。1）直接型接口所謂直接型接口，就是不依賴于中性文件，由高級(jí)語(yǔ)言直接對(duì)數(shù)據(jù)庫(kù)文件進(jìn)行讀寫(xiě)操作。當(dāng)然，必須首先分析DBF文件的數(shù)據(jù)存儲(chǔ)格式，也就是DBF文件的數(shù)據(jù)結(jié)構(gòu)。DBF文件分兩部分：文件頭部分存儲(chǔ)記錄的個(gè)數(shù)，每個(gè)記錄的字段的個(gè)數(shù)，字段名等總體信息；文件的主體存儲(chǔ)各個(gè)記錄的內(nèi)容。接口程序的編制步驟如下：（1）由DBF文件建立線性鏈表。通過(guò)讀取DBF文件頭，可以知道記錄的總體情況，然后分配內(nèi)存空間，建立相應(yīng)的數(shù)據(jù)結(jié)構(gòu)。（2）編制對(duì)線性表進(jìn)行刪除、插入、遍歷等各種操作的子程序。（3）將修改后的線性表寫(xiě)回DBF文件。2）間接型接口間接型接口就是數(shù)據(jù)的傳遞是通過(guò)中性文件來(lái)實(shí)現(xiàn)的。在絕大多數(shù)的數(shù)據(jù)庫(kù)編程軟件中，都有將數(shù)據(jù)庫(kù)文件轉(zhuǎn)換為文本文件的功能。文本文件即ASCⅡ碼文件，是軟件系統(tǒng)之間數(shù)據(jù)交換最基本的文件格式之一。數(shù)據(jù)轉(zhuǎn)換步驟如下：（1）DBF文件轉(zhuǎn)換為TXT文件以dBASE為例，在dBASE中，可用“下述命令將DBF數(shù)據(jù)庫(kù)文件內(nèi)容輸出到一文本文件中。COPY TO（文件名）［FOR 〈表達(dá)式〉］[FIELD〈 字段名表〉][SDF]／［DELIMITED」若在COPY命令中選用了選擇項(xiàng)[SDF]或［DELIMITED」時(shí)，則產(chǎn)生一個(gè)文本文件。文件中的數(shù)據(jù)可以是當(dāng)前數(shù)據(jù)庫(kù)文件的部分?jǐn)?shù)據(jù)或全部數(shù)據(jù)，取決于命令行中其它選擇項(xiàng)的使用，系統(tǒng)會(huì)自動(dòng)再此類文件名后加上擴(kuò)展名．TXT。這兩個(gè)選擇項(xiàng)的區(qū)別在于：用［SDF］產(chǎn)生的是標(biāo)準(zhǔn)格式的數(shù)據(jù)文件，用［DELIMITED］產(chǎn)生的是通用格式的數(shù)據(jù)文件。標(biāo)準(zhǔn)數(shù)據(jù)格式是：每一個(gè)記錄定長(zhǎng)；記錄從文件頭開(kāi)始存放；每一個(gè)記錄用回車換行結(jié)柬；各記錄中的同一數(shù)據(jù)項(xiàng)的長(zhǎng)度及類型都相同，不足的用空格補(bǔ)充。通用數(shù)據(jù)格式是：數(shù)據(jù)項(xiàng)與數(shù)據(jù)項(xiàng)之間用逗號(hào)分開(kāi)；字符型數(shù)據(jù)或邏輯型數(shù)據(jù)用單、雙引號(hào)或其它限制符括起來(lái)；數(shù)字型數(shù)據(jù)不加任何限制符；記錄可以定長(zhǎng)，也可以不定長(zhǎng)；在每個(gè)記錄后面用回車換行結(jié)柬。（2）將TXT文件中的數(shù)據(jù)加人到DBF文件中在dBASE環(huán)境下，利用APPEND命令可以把其它外部軟件建立的擴(kuò)展名為．TXT文件中的數(shù)據(jù)轉(zhuǎn)移到數(shù)據(jù)庫(kù)文件中。傳遞數(shù)據(jù)的要求是數(shù)據(jù)格式要匹配。命令如下：APPEND FROM　〈文件名〉〔FOR 〈表達(dá)式〉］［SDF］／［DELIMITED］命令行中〈文件名〉所指出的文件為提供數(shù)據(jù)的文件（簡(jiǎn)稱施主）；當(dāng)前被打開(kāi)的數(shù)據(jù)庫(kù)文件為接受數(shù)據(jù)的文件（簡(jiǎn)稱受主）。如果指出了選擇項(xiàng)［SDF］或［DELIMITED］，可以實(shí)現(xiàn)數(shù)據(jù)文件（.TXT文件）中的數(shù)據(jù)按規(guī)定的格式轉(zhuǎn)移。特別需要指出的是，由于數(shù)據(jù)文件沒(méi)有結(jié)構(gòu)，所以數(shù)據(jù)是按位置轉(zhuǎn)移的，這時(shí)要注意施主和受主在同一位置上的數(shù)據(jù)類型要一致，也就是說(shuō)，若受主的第一個(gè)字段是材料，則施主在相應(yīng)位置上也應(yīng)該是與材料有關(guān)的數(shù)據(jù)。概括的說(shuō)，這種數(shù)據(jù)轉(zhuǎn)換的過(guò)程如下：將數(shù)據(jù)庫(kù)文件內(nèi)容輸出到文本文件；外部軟件從文本文件中讀取數(shù)據(jù)或?qū)ζ溥M(jìn)行處理；將文本文件中的數(shù)據(jù)輸入到數(shù)據(jù)庫(kù)文件中。3）數(shù)據(jù)庫(kù)與面向?qū)ο缶幊陶Z(yǔ)言的接口 隨著軟件技術(shù)的發(fā)展，在出現(xiàn)了面向?qū)ο缶幊痰母呒?jí)語(yǔ)言后，數(shù)據(jù)庫(kù)與高級(jí)語(yǔ)言的接口問(wèn)題似乎得到了完美的解決。在最新出現(xiàn)的面向?qū)ο缶幊痰恼Z(yǔ)言如：Visul BASIC、Delphi中，已將數(shù)據(jù)庫(kù)的操作完全融合進(jìn)程序設(shè)計(jì)中，也就是說(shuō)，這一類的編程語(yǔ)言既繼承了以前高級(jí)語(yǔ)言的全部功能，又具備了數(shù)據(jù)庫(kù)編程的能力。用該類編程語(yǔ)言操作數(shù)據(jù)庫(kù)文件，無(wú)需分析數(shù)據(jù)庫(kù)文件的存儲(chǔ)格式，在讀寫(xiě)數(shù)據(jù)庫(kù)內(nèi)容上有了更大的靈活性，在程序設(shè)計(jì)中，只需在FORM(面向?qū)ο蟪绦蛟O(shè)計(jì)中程序界面的一個(gè)窗口)中加人數(shù)據(jù)源、數(shù)據(jù)庫(kù)表、數(shù)據(jù)顯示表格、數(shù)據(jù)庫(kù)操作控制器等少許幾個(gè)控件，然后將數(shù)據(jù)庫(kù)表與相應(yīng)的數(shù)據(jù)庫(kù)文件相連接，便可在程序中隨意操作數(shù)據(jù)庫(kù)文件，因?yàn)閷?duì)于連接并打開(kāi)的數(shù)據(jù)庫(kù)，每一個(gè)字段在程序中都是作為一個(gè)字段變量，可隨意讀寫(xiě)字段值。更值得稱道的是，該類編程語(yǔ)言通過(guò)配備的數(shù)據(jù)庫(kù)引擎，可以對(duì)多種格式的數(shù)據(jù)庫(kù)文件進(jìn)行操作。在開(kāi)發(fā)數(shù)據(jù)管理與計(jì)算一體的CAD系統(tǒng)中，使用該類編程語(yǔ)言將是最佳選擇。第 4章 程序設(shè)計(jì)程序設(shè)計(jì)的關(guān)鍵任務(wù)是確定怎樣具體地實(shí)現(xiàn)所要求的目標(biāo)系統(tǒng)，也就是要設(shè)計(jì)出程序的“藍(lán)圖”。除了應(yīng)該保證程序的可靠性之外，使將來(lái)編寫(xiě)出的程序的可讀性好，容易理解，容易測(cè)試和容易修改，維護(hù)是程序設(shè)計(jì)的最重要的目標(biāo)。程序流程圖、盒圖、PAD圖、HIPO圖、判定表、判定樹(shù)和PDL語(yǔ)言等等都是完成詳細(xì)設(shè)計(jì)的工具，選擇合適的工具并且正確的使用它們是十分重要的。用模塊開(kāi)發(fā)文件夾的形式組織管理與一個(gè)模塊有關(guān)的全部文檔，可能為行之有效的方法。詳細(xì)設(shè)計(jì)又稱過(guò)程設(shè)計(jì)，在總體設(shè)計(jì)階段，已經(jīng)確定了軟件系統(tǒng)的總體結(jié)構(gòu)，給出系統(tǒng)中各個(gè)組成模塊的功能和模塊間的關(guān)系。詳細(xì)設(shè)計(jì)就是要在總體設(shè)計(jì)的基礎(chǔ)上，考慮“怎樣實(shí)現(xiàn)”這個(gè)軟件系統(tǒng)，直到對(duì)系統(tǒng)中的每個(gè)模塊給出足夠詳細(xì)的過(guò)程性描述。需要指出，這些描述應(yīng)該用詳細(xì)設(shè)計(jì)的表達(dá)工具來(lái)表示，但他們還不是程序，一般不能夠在計(jì)算機(jī)上運(yùn)行。 詳細(xì)設(shè)計(jì)是編碼的先導(dǎo)。這個(gè)階段所產(chǎn)生的設(shè)計(jì)文檔的質(zhì)量，將直接影響下一階段程序的質(zhì)量。為了提高文檔的質(zhì)量和可讀性，本章除要說(shuō)明詳細(xì)設(shè)計(jì)的目的，任務(wù)與表達(dá)工具外，還將扼要介紹結(jié)構(gòu)程序設(shè)計(jì)的基本原理，以及如何用這些原理來(lái)指導(dǎo)模塊內(nèi)部的邏輯設(shè)計(jì)，提高模塊控制結(jié)構(gòu)的清晰度。程序流程圖又稱之為程序框圖，它是軟件開(kāi)發(fā)者最熟悉的一種算法表達(dá)工具。它獨(dú)立于任何一種程序設(shè)計(jì)語(yǔ)言，比較直觀和清晰地描述過(guò)程的控制流程，易于學(xué)習(xí)掌握，因此，至今仍是軟件開(kāi)發(fā)者最普遍采用的一種工具。流程圖也存在一些嚴(yán)重的不足，主要表現(xiàn)在：流程圖使用的符號(hào)不夠規(guī)范，特別是表示程序控制流程的箭頭，使用的靈活性極大。為了消除這些不足，應(yīng)嚴(yán)格定義流程圖所使用的符號(hào)。 主函數(shù)的程序設(shè)計(jì) 1. 流程圖。 主函數(shù)的流程圖2. 程序及注釋主函數(shù)的程序及注釋如下：(DEFUN main () (SETVAR cmdecho 0) ；關(guān)閉AUTOCAD命令提示 (COMMAND zoom a)；將繪圖區(qū)最大化 (COMMAND undefine layer)；圖層操作命令被禁止 (COMMAND menu )；調(diào)用內(nèi)部菜單命令 (justcheck)；調(diào)用justcheck函數(shù) (IF (= val_flag 1)；版權(quán)是否有效 (nump)；調(diào)用nump函數(shù) (PROGN (tellval) (COMMAND menu )(COMMAND quit n))；調(diào)用tellval函數(shù)，卸載AUTOCAD菜單命令，退出AUTOCAD頁(yè)面 )。end if (repeat 50 (princ \n))；重復(fù)50次)。end MAIN 功能模塊設(shè)計(jì)在本節(jié)中將完成掃描圖層模塊、圖層實(shí)體名識(shí)別模塊、線條數(shù)目判斷模塊、直線判斷模塊、圓弧判斷模塊、兩點(diǎn)坐標(biāo)相同判斷模塊功能模塊的設(shè)計(jì)。 掃描圖層模塊 1. 功能 掃描圖層模塊的功能是讀取某一層內(nèi)的實(shí)體列表。2. 流程圖。3. 程序及注釋 掃描圖層模塊的程序及注釋如下： 　　　(DEFUN scanlayer (layername / beg lbeg etab kk)。定義scanlayer函數(shù)，參數(shù)為圖層名 (SETQ beg (SSGET x (LIST (CONS 8 layername))))。層內(nèi)所有實(shí)體構(gòu)成選擇集，并將選擇集賦予beg (IF (NOT beg)(SETQ etab NIL)。beg為空時(shí)etab也為空 (PROGN (SETQ lbeg (SSLENGTH beg) etab NIL kk 0)。將選擇的長(zhǎng)度賦予lbeg，并將第一個(gè)實(shí)體賦予kk (WHILE ( kk lbeg)。當(dāng)kk小于選擇集的長(zhǎng)度時(shí) (SETQ etab (CONS (SSNAME beg kk) etab) kk (1+ kk) ))。將選擇集的實(shí)體名加入到etab排隊(duì) (SETQ beg etab)。返回實(shí)體表beg ))。end PROGN and IF )。end subroutine SACNLAYER 掃描圖層模塊流程圖4. 引用分析掃描圖層模塊的引用分析如下：（1）anstab變量是存儲(chǔ)問(wèn)答層的實(shí)體列表，因此要用到掃描圖層功能模塊將問(wèn)答層的實(shí)體列表存儲(chǔ)到相應(yīng)的變量?jī)?nèi)。（2）keytab 變量是存儲(chǔ)問(wèn)答層的實(shí)體列表，因此要用到掃描圖層功能模塊將問(wèn)答層的實(shí)體列表存儲(chǔ)到相應(yīng)的變量?jī)?nèi)。（3）entp 功能模塊用到變量anstab變量(即問(wèn)答層內(nèi)的實(shí)體列表)，此實(shí)體列表是通過(guò)掃描圖層功能模塊所得到的。 （4）在主程序中當(dāng)檢查到軟件為正版時(shí)我們調(diào)用到nump函數(shù)，而此函數(shù)功能模塊要用到掃描圖層功能模塊。 （5）在cklin、ckarc、ckcir功能模塊內(nèi)都要用到keytab變量而此變量?jī)?nèi)的參數(shù)列表都是通過(guò)掃描圖層功能模塊得到的。 圖層實(shí)體名識(shí)別模塊1. 功能圖層實(shí)體名識(shí)別功能模塊的功能判斷圖層的實(shí)體名是否為line、arc、circle。2. 流程圖(a)(b)所示。3. 程序及其注釋 圖層實(shí)體名功能模塊程序及其注釋如下： (DEFUN entp ()。/ kk mn dlist nam nodnam)；定義entp函數(shù) (SETQ kk (LENGTH anstab) mn 0 errnum 0 flag0 NIL) ；將anstab圖層的實(shí)體長(zhǎng)度存入kk mn賦0 errnum賦0 flag0為空 (WHILE (AND (NOT flag0) ( mn kk))(SETQ dlist (ENTGET (SETQ nam (NTH mn anstab))) nodnam (CDR (ASSOC 0 dlist)) )；將問(wèn)答層的第mn個(gè)實(shí)體名賦予表dlist，在聯(lián)合表dlist中搜尋以0為名稱的對(duì)應(yīng)值如果找到則assoc會(huì)返回其對(duì)應(yīng)值，若找不到則返回nil并返回assoc表中除了第一個(gè)元素外所有元素的表 (COND ((= nodnam LINE) (cklin nam))；如果nodnam為line則調(diào)用cklin函數(shù) ((= nodnam ARC) (ckarc nam))；如果nodnam為arc則調(diào)用ckarc函數(shù) ((= nodnam CIRCLE) (ckcir nam))；如果nodnam為circle則調(diào)用ckcir函數(shù) (T (tellnot) (SETQ flag0 T)) ) (SETQ mn (1+ mn))；mn加1 )。end WHILE (IF (NOT flag0) (IF (= errnum 0) (tellgod) (tellerr)) ) ；如果errnum為0則調(diào)用tellgod函數(shù)否則調(diào)用tellerr函數(shù) )。end subroutine ENTCOMP(a)(b) 圖層實(shí)體名識(shí)別模塊流程圖4. 引用說(shuō)明 圖層實(shí)體名識(shí)別模塊的引用如下：（1） 在nump函數(shù)中，當(dāng)我們判斷到numans==numkey時(shí)就調(diào)用entp函數(shù)將問(wèn)答層中圖元的線形名與line、arc、circle三種圖層實(shí)體進(jìn)行對(duì)比在相同的情況下再將問(wèn)答層中同名的線與答案層中的線的起點(diǎn)與終點(diǎn)進(jìn)行比較。（2） 在應(yīng)用直線、圓弧、圓的檢查功能模塊時(shí)引用了參數(shù)errnum，而errnum參數(shù)是在圖層實(shí)體名識(shí)別功能模塊中定義的，因此，直線、圓弧、圓的檢查功能模塊引用了圖層實(shí)體名識(shí)別功能模塊。 線條數(shù)目判斷模塊 1. 功能線條數(shù)目判斷模塊的功能：判斷問(wèn)答層的線條數(shù)目是否與答案層的線條數(shù)目相等。2. 流