在程序中實現(xiàn)圖層的檢查及新建

1、我勸天公重抖擻，不拘一格降人才。風暖鳥聲碎，日高花影重。為有犧牲多壯志，敢教日月?lián)Q新天。大漠孤煙直，長河落日圓。關(guān)關(guān)雎鳩，在河之洲。窈窕淑女，君子好逑。在程序中實現(xiàn)圖層的檢查及新建 有些編程者編程時沒有考慮到用戶環(huán)境的不同，經(jīng)常所編制的程序能運行在自制的模板圖形上，而不能在用戶的圖形中運行，這種情況也是我經(jīng)常碰到的。 最容易碰到的是圖層。程序中，經(jīng)常會使用特定的圖層來放置程序所生成的對象，比如說你將圖層設置為“3”層，寫出的程序如下： (setq oldLayer ( getvar "clayer" ;將當前圖層保存起來，以便以后的恢復 (setvar "clay

2、er" "3" ;將圖層“3”轉(zhuǎn)換為當前圖層 這時，如果用戶當前圖形中不存在“3”圖層，程序就會出錯并中斷。為此，你首先應判斷“3”圖層是否存在，采用以下的聚光燈中判斷圖層的存在： (tblobjname "layer" "3" 這時，如果圖層“3”確實不存在時，則可用以下函數(shù)內(nèi)容建立該名稱的圖層： (entmake (list '(0 . "LAYER" '(100 . "AcDbSymbolTableRecord" '(100 . "AcDbLay

3、erTableRecord" '(6 . "CONTINUOUS" '(62 . 3 '(70 . 0 '(2. "3" 這樣就可以建立新圖層，完整的程序如下： (setq old_lay (getvar "clayer" (if (=(tblobjname "LAYER" "3" nil (progn (entmake (list '(0 . "LAYER" '(100 . "AcDbSymbolTable

4、Record" '(100 . "AcDbLayerTableRecord" '(6 . "CONTINUOUS" '(62 . 3 '(70 . 0 (cons 2 "3" (setvar "clayer" "3" 可能有人會說，使用command轉(zhuǎn)換及新建圖層不是更加簡單嗎？但我總認為其它函數(shù)能完成的動作，最好不要使用“command”函數(shù)，因為可能下一個版本中,command所引用的命令內(nèi)容會有變化（如功能的加強），使用程序出錯。就象R12、R13

5、、R14版中的清理命令Purge就各不相同。 回到頂部 將一個大程序分成多個小程序以簡化編寫過程 初學者常常會將所有的功能都編入到一個程序（或函數(shù)）中。這不僅會使程序冗長難讀，也會給修改和重用帶來麻煩。AutoLISP是一種函數(shù)式的語言，因此，將一個單獨的功能編制成一個函數(shù)可以使程序簡明易讀。對于重復調(diào)用次數(shù)較多的程序，應編制一個通用函數(shù)并在初始化時加載到環(huán)境中，以便于調(diào)用。 回到頂部 將自己編制的程序或函數(shù)的調(diào)用放在菜單系統(tǒng)中 不要讓自己編制的程序只能夠從命令行調(diào)用，要將它們安排在菜單中以方便用 戶的調(diào)用。 回到頂部 不要將自己編制的程序全都放入ACAD.LSP文件中 一些程序只喜歡將自己編

6、寫的程序或函數(shù)放在ACAD.LSP文件中，因為該文件可以在AutoCAD啟動時裝載到環(huán)境中。這樣做的確可以方便自己編制函數(shù)的調(diào)用。不過，如果ACAD.LSP文件太大，則調(diào)入每個繪圖的時間將變長,因為內(nèi)存減小了。 事實上，ACAD.LSP是用來存放通用函數(shù)的，只有頻率很高的函數(shù)才應放入到ACAD.LSP中。例如：用戶庫函數(shù)通常都放在ACAD.LSP中，或在ACAD.LSP中加載。 回到頂部 加載文件前應判別程序是否已被加載 在調(diào)用用戶自己定義的函數(shù)之前，應將與之相關(guān)的應用程序加載到AutoCAD環(huán)境中，否則AutoCAD會報告不存在該函數(shù)。當一個函數(shù)會被多次調(diào)用時，如果每次調(diào)用之前都加載一次文件

7、，則會浪費很多時間，因為一個文件只需加載一閃即可。這時，判別一下某文件是否已經(jīng)裝入是非常必要的，這種用法在菜單文件的語句中很常見，例如： . 技術(shù)要求(if(not jsyq(load"jsyq"(jsyq; . 這里我們假定jsyq是文件jsyq.lsp中的一個函數(shù)（不是一個變量），在調(diào)用函數(shù)(jsyq之前，(if not.語句首先判斷一下該函數(shù)是否已經(jīng)存在。如果不存在，就加載相關(guān)文件jsyq.lsp；否則說明步過加載語句。 回到頂部 為自己的應用程序建立一個單獨的目錄 不要將自己的應用程序放在AutoCAD軟件包所在的目錄下，這樣不僅會擾亂軟件包中文件的排列，也不便于管

8、理。通常開發(fā)者會建立一個單獨的目錄來旋轉(zhuǎn)自己的應用程序。此建立目錄的名字應盡量避免可能會因安裝 AutoCAD或其它第三方軟件包而產(chǎn)生的沖突。 回到頂部 盡量減小應用程序的文件數(shù) AutoLISP程序通常都很短小，因為一個功能一般只需幾十條語句就可以完成，這也是AutoLISP語言的效率所在。不過，如果將每一個編制的功能都生成一個單獨的文件，不僅會使程序的數(shù)量繁多，而且使用時也要一次次加載，十分不方便。因此，應盡量將相關(guān)甚至相關(guān)性不太強的文件合并為一。這樣，您可以將多個文件合為一個，使用時只要裝載一次而無需多次裝載。如本站提供的圖欄程序和流程程序就是這樣，圖欄程序?qū)⒘鶄€相關(guān)的功能組合在一起，而

9、流程程序?qū)⑺膫€相關(guān)的功能組合在一起。 回到頂部 用縮進方法使程序便于閱讀 和其它軟件開發(fā)程序一樣，AutoLISP程序也可以使用縮進的方法進行編寫以便于閱讀，縮進后程序的調(diào)用并不多占用內(nèi)存。 回到頂部 為變量取名應便于理解但不要太長 在為變量取名時，應力求簡潔且含義清晰。例如：ABC、QQX會被認為是無意義的，它不便于理解 testpgm之后，用戶可以通過！字符檢查defvar的當前值。 回到頂部 為命令行的選項提供右鍵快捷菜單 在AutoCAD2000中，命令行中的可選項可以使用鼠標的右鍵顯示，提高了用戶的操作速度，但這種方法必須按照一定的格式書寫程序，一般，選項內(nèi)容是用中括號.括起來，每個

10、選項之間使用"/"分隔。例如： (initget "Single Horizonal Vertical" (setq sele(getkword "n部裝明細序號填寫方式水平多項(H/垂直多項(V/單一序號(S<單一序號>:" 這樣，在程序運行到當前提示時，用戶可點擊鼠標右鍵彈出快捷菜單顯示各選項的內(nèi)容選取。 回到頂部 關(guān)于程序調(diào)試的一些建議 一個程序在編制是沒有一定的規(guī)定的，因此，程序的調(diào)試方法也沒有一定的規(guī)律。機器是不會告訴你程序到底錯在哪里，你只能從邏輯上一遍又一遍地檢查一個程序，可不幸的是，在某些情況下它還是會出錯

11、。 從這種角度出發(fā)，我們說編程是非常令人生厭的，也是極具有挑戰(zhàn)性的。其中最大困難的就是調(diào)試這一步，調(diào)試方法是否合適將直接影響到程序編制的進度。 下面我們將介紹一些調(diào)試的策略。 1.不要和計算機較勁 請記住，計算機是不知疲憊的，可你不行。如果感到累了，可以暫時放下工作去花園散散步或干脆去看場電影，等你精神轉(zhuǎn)好了再重新投入工作中去。 2.計算機是非常公正的 計算機的眼睛是雪亮的，它絕不會讓任何錯誤的數(shù)據(jù)蒙混過關(guān)。加外，計算機幾乎不會犯錯誤，因此，請多找一找自身的原因吧！ 3.在計算機中，相是的激勵應該得到相同的結(jié)果 有時，你的程序可能會在相同的輸入下得到不盡相同的結(jié)果，這時你要提醒自己：一定有什么

12、條件被改變了，雖然它還未暴露出來。 在調(diào)試程序時更要注意這一點，不要因之而影響你的判斷力。 4.兩種常見的錯誤類型 語法錯誤和邏輯錯誤是程序中兩種常見的錯誤類型。語法錯誤是較容易發(fā)現(xiàn)的，因為其中存在錯誤的命令，例如： (setq a (ang1 p1 p2 此處函數(shù)（ang1拼寫錯了，正確的名字是(angle，系統(tǒng)會提示發(fā)現(xiàn)空函數(shù)而終止。 邏輯錯誤是不容易發(fā)現(xiàn)的，例如： (angle pnt1 pnt2 這條語句看上去似乎是正確的，但如果pnt2的值為空，程序同樣運行不下去。 5.通過“斷點”檢查與變量有關(guān)的錯誤 如果希望在程序運行到某處時檢查變量a的當前值，可在程序中的該處加入如下語句： (

13、princ a (setq bp(getstring 這樣，到印出a的值之后，函數(shù)(getstring可使程序暫停，就好象遇到了一個斷點一樣，觀察完a的值之后，可按任意鍵使程序繼續(xù)。 6.變量作用哉的定義 在剛開始編 程時，應將函數(shù)中用到的變量定義成全局性的。在AutoLISP中，函數(shù)中的變量只要不在函數(shù)定義defun命令的函數(shù)名之后的(中用斜杠說明,該變量就是全局的,例如: (defun drawline( . 假設(drawline用到了兩個點pnt1和pnt2,則這兩個將成為全局性的.用戶可在命令稈用!字符檢查它們的值. 一旦將程序調(diào)試完畢確認無錯之后,便可將變量定義成局部的,例如: (

14、defun drawline(/ pnt1 pnt2 . 這樣,函數(shù)運行過程中pnt1和pnt2有效,運行完畢之后它們將消失,這樣可以節(jié)省出一點內(nèi)存空間來。 7.注意不要混淆度和弧度 當使用到角度時，最常見的錯誤是混淆了度和弧度兩種單位，請記住，AutoLISP函數(shù)使用弧度為單位，AutoCAD命令使用度為單位。 8.對相關(guān)的系統(tǒng)變量進行檢查 程序運行得正常與否與系統(tǒng)變量也有著直接的關(guān)系。例如：將對象捕捉系統(tǒng)變量OSMODE設置為終點捕捉模式(1或交戰(zhàn)捕捉模式(32，同一個程序在運行效果上可能就會產(chǎn)生很大的差別。 9.從屏幕上的細微變化觀察程序運行 在AutoLISP程序運行時，屏幕上常會產(chǎn)生

15、一些微小的變化，如：若出現(xiàn)一個表示點的小叉絲然后又消失，這有可能是在執(zhí)行insert或與插入點有關(guān)的命令。若屏幕上的對象變成虛線表示，這有可能是在執(zhí)行(ssget函數(shù)并選中了這些對象，總之，仔細觀察屏幕上的細微變化將有助于了解程序運行的進程，這對于程序的調(diào)試是有益的。 10.調(diào)試通則 程序出錯通常是由多個錯誤引發(fā)的，而許多錯誤會導致同一種現(xiàn)象，因此，在分析錯誤時，應將它們分享出來進行檢查，不要企圖一次性將所有的錯誤都改正過來。 回到頂部 使命令暫停以等待用戶輸入 在AutoLISP函數(shù)(command中，您可以加入pause項使命令在執(zhí)行到該處時暫時停下來以等待用戶輸入，例如： (comman

16、d "circle" pnt1 pause 該命令將pnt1指定為圓心之后暫停，等待用戶輸入圓的半徑值。 回到頂部 AutoCAD原始命令的取消與恢復 UNDEFINE和REDEFINE是AutoCAD的兩條命令。UNDEFINE用來取消AutoCAD的原始命令。例如：如果你在命令行上鍵入INDEFINE FILLET，AutoCAD會禁止FILLET命令的使用，這樣你使可以使用自己定義的FILLET命令。如果你想再使用AutoCAD的FILLET命令，這時應使用.FILLET命令，當然，你也可以干脆使用REDEFINE來恢復原先的狀態(tài)。 回到頂部 (findfile查找文

17、件 (findfile函數(shù)用來在磁盤上查找指定的文件，若只給出了文件名，則它會在當前路徑、DOS的PATH環(huán)境變量所指定的路徑和ACAD環(huán)境變量所指定的路徑中查找該文件（找到第一個便停止）。例如：若要查找TYL.INI文件，則使用： (findfile "tyl.ini 它 將返回: "c:program filesacad2000tyl.ini" 回到頂部 (getenv取系統(tǒng)的環(huán)境變量 庫函數(shù)允許用戶在AutoCAD環(huán)境中取系統(tǒng)的環(huán)境變量。例如： (getenv "acad" 它將返回： "C:program filesacad2

18、000support;C:program filesacad2000fonts;C:program filesacad2000express" 除ACAD之外，AutoCAD還有兩個系統(tǒng)環(huán)境變量，它們是ACADCFG和ACADDRV。其用法相同。 回到頂部 (setcfg設置應用程序配置 從AutoCAD R13版開始，AutoCAD為應用程序開發(fā)者和用戶提供了在ACAD14.CFG(AutoCAD2000中為ACAD2000.cfg文件中保存半永久性配置信息的方法。該文件可以用記事本打開，文件分成兩個部分。應用程序開發(fā)者和用戶可以控制的那一部分被稱為AppData。 在本站所提供的圖欄程序中就采用了該命令設置圖欄的默認設計單位在tyl.ini文件中的位置及其它設計單位的名稱，詞句如下： (setcfg "AppData/Tyl/Number" 1 (setcfg "AppData/Tyl/Other" "明經(jīng)通道" 該語句在ACAD.CFG文件中生成如下語句： AppData