AutoLisp編寫工程地質(zhì)剖面圖小工具

1、AutoLisp編寫工程地質(zhì)剖面圖小工具朱紅雷 李健民 (浙江省水利水電勘測設(shè)計院 杭州 310002)在我院應(yīng)用的CAD工程地質(zhì)制圖系統(tǒng)中，通常采用的各種高級語言編制的程序，一般是通過編制數(shù)據(jù)文件，生成CAD圖形數(shù)據(jù)交換文件(一般為*.SCR或*.DXF)達(dá)到繪制CAD圖紙的目的。這種方法往往顯得不符合我們的繪圖習(xí)慣，也很不直觀。為此，我們利用AutoLisp語言開發(fā)繪制工程地質(zhì)剖面圖組件，在實際應(yīng)用中取得了較好的效果。其實，繪圖過程就是各種工程地質(zhì)剖面圖組件的拼接過程。一幅工程地質(zhì)剖面圖，一般而言不外乎以下幾個組件：圖幅圖簽、剖面圖框架(如標(biāo)尺、樁號等)、勘探信息(如鉆孔、平硐等)、地質(zhì)構(gòu)

2、造、圖例花紋、各種地質(zhì)線條等。如果我們分別對不同組件編寫不同的繪制工具，并把他們有機(jī)地、相互關(guān)聯(lián)地放置在一起，就繪制出了一幅工程地質(zhì)圖紙。因此，開發(fā)出一套繪制各種工程地質(zhì)組件的程序，具有一定的實用價值。AutoLisp語言內(nèi)嵌于AutoCAD，編寫的小程序可以方便地在 AutoCAD界面下進(jìn)行人機(jī)對話。例如下列程序代碼段通過輸入幾個數(shù)據(jù)即可實現(xiàn)繪制一個簡單的鉆孔。(defun c:zk()(setq pt0 (getpoint /n請輸入鉆孔位置：)(setq blc (getreal /n請輸入比例尺：)(steq ks (getreal /n請輸入孔深(m):)(setq ksx (* (

3、/ ks blc) 1000)(setq pt1 (list (- (car pt0) 0.5) (cadr pt0)(setq pt2 (list (- (car pt0) 0.5) (- (cadr pt0) ksx)(setq pt3 (list (+ (car pt0) 0.5) (- (cadr pt0) ksx)(setq pt4 (list (+ (car pt0) 0.5) (cadr pt0)(command PLINE pt1 pt2 pt3 pt4 ) 我們在用AutoLisp編制上述小工具時，遇到了一些問題，也有些心得體會，愿與大家交流，權(quán)作拋磚引玉。1 常用數(shù)據(jù)應(yīng)建立

4、磁盤文件進(jìn)行保存，如工程名稱、比例尺、剖面方向等，需要在不同的Autolisp甚至于不同的圖紙間通用，因此需建立磁盤文件進(jìn)行保存。相關(guān)的函數(shù)有read-line、wrtie-line等進(jìn)行磁盤讀寫操作；rtos、atof等進(jìn)行數(shù)值與字符串的轉(zhuǎn)換。2 盡量應(yīng)用表格進(jìn)行編寫，可以使程序簡潔并增加可讀性。事實上，一個AutoLisp程序本身就是一個表或若干表的集合。而各種數(shù)據(jù)組成的表又是AutoLisp的數(shù)組，在某種程度上，這種表比其它高級語言的數(shù)組更容易操作，因為AutoLisp提供了豐富的表操作語言，如(subst newitem olditem list);從list表中搜尋olditem并以

5、newitem代替。(reverse list);返回元素被倒置后的list表等等。而且AutoLisp在獲得實體信息時就是以表的形式進(jìn)行存放的；在編寫節(jié)理玫瑰圖、繪制巖土層代號、獲取鉆孔信息等都會用到各種結(jié)構(gòu)的表。3 應(yīng)用Setvar、getvar改變AutoCAD系統(tǒng)變量。如在某些應(yīng)用中，由于OSNAP、ORTHO等的狀態(tài)對圖形繪制有加大影響。修改系統(tǒng)變量，程序結(jié)束時再改回去，這是一種很好的編程習(xí)慣。4 建立下拉菜單和圖標(biāo)菜單。大量的工具編寫完成后，可以組織編寫一個圖標(biāo)菜單，應(yīng)用時就顯得非常方便。下拉菜單的編寫比較方便，r12版修改Acad.mnu，R14版修改Acad.mns，一般就是增

6、加一段pop代碼即可。圖標(biāo)菜單也大同小異，但除了增加一段icon代碼，還需繪制圖標(biāo)。繪制圖標(biāo)可用各種柵格圖象編輯器，建議還是用AutoCAD R14版內(nèi)置的圖標(biāo)編輯器比較方便。具體操作是：把光標(biāo)移動到ACAD的圖標(biāo)菜單上，點擊鼠標(biāo)右鍵，選擇編輯，把一個個彩色的點拼成圖形即可，在繪制時其右方的一個小窗口可看到效果，完成后再另存為需要的文件名。一般只需繪制16*16點陣的小圖標(biāo)即可，除非你習(xí)慣于采用大圖標(biāo)菜單。5 如何使每次啟動AutoCAD都自動調(diào)入AutoLisp程序，而不需重新手工調(diào)入，可以修改ACAD的SYSTEM目錄下的Acad.mnl文件，在適當(dāng)位置增加下列語句：用(load path

7、 filename)則在啟動ACAD時自動調(diào)入filename.lsp文件，如選用Autoload則只在第一次使用時調(diào)入。6 有時需要在ACAD環(huán)境下直接編輯文本文件，可以由AutoLisp調(diào)用，具體如(winapp notepad.exe filename) 即可。對于輸入大量數(shù)據(jù)(如用于節(jié)理統(tǒng)計等)建立的數(shù)據(jù)文件，在AutoLisp運(yùn)行過程中直接打開發(fā)現(xiàn)錯誤的文件進(jìn)行修改，可以減少界面切換，加快繪圖過程。以上只是工程地質(zhì)制圖工具集編制過程中的一些小體會，與大家共饗，希望得到同行的批評指正。 MS Word中插入AutoCAD圖形的完美方法任鳴春 (國家電力公司成都勘測設(shè)計研究院 成都 61

8、0072)用AutoCAD整理插圖、MS Word編排科技論文報告是我們經(jīng)常要做的事情。但凡做過此事的朋友，相信都遇到過這樣或那樣的煩惱：插入的圖形顯示正常，打印出來線條細(xì)得看都看不清，如果在Word中修改線條粗細(xì)，改后的Word文件會成5倍的體積增長，而且圖形還會經(jīng)常出現(xiàn)“大紅叉”；AutoCAD R14以后版本更是會連背景一起都拷到Word中，盡管可以在AutoCAD中改變背景設(shè)置，但除了操作麻煩外，圖片的大小也難以控制。為了解決這些問題，探索者想了很多的辦法，甚至動用了商用的軟件，然而效果并不理想?，F(xiàn)在好了，筆者通過潛心的研究、偶然的發(fā)現(xiàn)，終于搞清楚了插圖過程中的技術(shù)細(xì)節(jié)，總結(jié)了一套方便

9、實用，不需要額外的軟件投入的方法，用你手上現(xiàn)有的軟件工具，完美地插入AutoCAD圖形。所需軟件工具：任意版本的AutoCAD，當(dāng)然;-)MS Office97以上版本，廢話！不過重要的是，Office中除了已經(jīng)安裝的Word外，必須安裝Powerpoint，這是本文的關(guān)鍵(沒有Powerpoint也可以做，但插圖的質(zhì)量不是最好)。不要懷疑，現(xiàn)在跟著我一步一步的做：1.在AutoCAD中打開將要插入的圖形，使要插入到報告中的那些圖元在屏幕上可見，便于選擇；2.使用菜單“編輯/復(fù)制”運(yùn)行copyclip命令(或Ctrl-C),框選要復(fù)制的圖元，將其復(fù)制到系統(tǒng)剪切板；3.新建一個Powerpoin

10、t演示文檔，用Ctrl-V插入剛才拷貝的內(nèi)容(Office97版本可以用“選擇性粘貼/圖片”格式粘貼進(jìn)來；4.用鼠標(biāo)右鍵點擊粘貼進(jìn)來的圖片邊緣背景部分，在彈出的快捷菜單中選“組合/取消組合”項，一直重復(fù)到“取消組合”無效(即已無組合)為止；5.單擊并選中圖片背景部分，用Del鍵刪除背景，做此項操作時應(yīng)小心，確定你僅選擇了背景；如果你的AutoCAD背景為黑色，線條白色，做背景刪除后可能什么都看不見了，此時不要驚慌，你的圖形內(nèi)容還在，只是在白色的背景下看不見而已，繼續(xù)下面的步驟，我們接著做！6.在Powerpoint的顯示頁面上，用Ctrl-A選中全部圖形(顯示為所有圖形的編輯“夾點”，圖形仍然

11、不可見)，在任意“夾點”上點鼠標(biāo)右鍵，選“設(shè)置自選圖形格式”項，出現(xiàn)圖形格式對話框，設(shè)置其中線條顏色為黑色，粗細(xì)先設(shè)定為圖中最多的線條的粗細(xì)值(通過比較，一般設(shè)為0.35磅比較合適)，確定后圖形就顯示出來了；7.接著設(shè)置個別不同線寬的圖元，選中要設(shè)置的圖元，用第6步的方法按需設(shè)置即可，如果不能選擇你所需要的圖元，說明它還是一個組合，用前面講的方法取消組合就可以了。8.所有的圖元線條設(shè)置好后，你還可以做一些必要的編輯工作，如插入文字注釋，添加圖元等；9 .確定不需要進(jìn)一步編輯了，再次用Ctrl-A選中所有圖元，在任意“夾點”上點鼠標(biāo)右鍵，選“組合/組合”項將所有零散的圖元組合成一個圖形；10.最

12、后一步，選中已組合的圖形，用Ctrl-C將其拷貝至系統(tǒng)剪切板，打開編輯的Word報告，在插圖點用“編輯/選擇性粘貼”用“圖片”格式插入之(這是要點，請不要隨便用Ctrl-V插入，否則Word文件會長很大，還會出現(xiàn)“大紅叉”)。到此，插入操作完成了，插入的圖形是不是很完美？你可能覺得操作很復(fù)雜，其實用熟悉了是很快很方便的。此方法最大的好處是不需要額外的軟件，而且插入質(zhì)量絕對是其他方法不可比的，整個過程的控制性也很好，可以編輯修改被插入圖形的任何部分，用起來比花錢的商用軟件還順手，不信你就試一試。操作過程中，所有需要進(jìn)行圖形“粘貼”操作的地方，最好用編輯菜單中的“選擇性粘貼”進(jìn)行操作，以“圖片”格式粘貼，因為Office在進(jìn)行粘貼操作時，缺省的C