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

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

2、造、圖例花紋、各種地質(zhì)線條等。如果我們分別對(duì)不同組件編寫不同的繪制工具，并把他們有機(jī)地、相互關(guān)聯(lián)地放置在一起，就繪制出了一幅工程地質(zhì)圖紙。因此，開發(fā)出一套繪制各種工程地質(zhì)組件的程序，具有一定的實(shí)用價(jià)值。AutoLisp語言內(nèi)嵌于AutoCAD，編寫的小程序可以方便地在 AutoCAD界面下進(jìn)行人機(jī)對(duì)話。例如下列程序代碼段通過輸入幾個(gè)數(shù)據(jù)即可實(shí)現(xiàn)繪制一個(gè)簡單的鉆孔。(defun c:zk()(setq pt0 (getpoint /n請(qǐng)輸入鉆孔位置：)(setq blc (getreal /n請(qǐng)輸入比例尺：)(steq ks (getreal /n請(qǐng)輸入孔深(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 ) 我們?cè)谟肁utoLisp編制上述小工具時(shí)，遇到了一些問題，也有些心得體會(huì)，愿與大家交流，權(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)行編寫，可以使程序簡潔并增加可讀性。事實(shí)上，一個(gè)AutoLisp程序本身就是一個(gè)表或若干表的集合。而各種數(shù)據(jù)組成的表又是AutoLisp的數(shù)組，在某種程度上，這種表比其它高級(jí)語言的數(shù)組更容易操作，因?yàn)锳utoLisp提供了豐富的表操作語言，如(subst newitem olditem list);從list表中搜尋olditem并以

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

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

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

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

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

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

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

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