水利工程論文-CAD技術(shù)在水利水電工程中的應(yīng)用.doc

水利工程論文-CAD技術(shù)在水利水電工程中的應(yīng)用摘要：AutoCAD是廣大工程設(shè)計人員普遍使用的通用繪圖軟件，結(jié)合專業(yè)特點，通過對AutoCAD系統(tǒng)的二次開發(fā)可以開發(fā)出滿足各種用途的專業(yè)軟件，即使對于普通設(shè)計人員也可以通過AutoCAD內(nèi)嵌的VisualLisp語言方便地增加CAD命令，擴充完善適合本專業(yè)的新功能，從而極大地提高工作效率，本文通過幾個應(yīng)用實例對AutoCAD在水工設(shè)計上的應(yīng)用進行了探討。關(guān)鍵詞：CAD技術(shù)應(yīng)用水利水電工程AutoCADVisualLisp語言1概述美國Autodesk公司開發(fā)的AutoCAD系統(tǒng)自1982年推出以來，以其使用方便、功能強大和系統(tǒng)開放性一直獨領(lǐng)風騷。成為各工程領(lǐng)域首選的CAD系統(tǒng)。水利水電工程領(lǐng)域利用AutoCAD平臺進行二次開發(fā)也取得了一系列成果，如90年代以來陸續(xù)開發(fā)的水電站地面廠房CAD系統(tǒng)、重力壩CAD系統(tǒng)、隧洞CAD系統(tǒng)、水機油汽水CAD系統(tǒng)、地質(zhì)柱狀圖CAD等均取得了較好的應(yīng)用效果。但水電工程設(shè)計的復雜性決定了任何現(xiàn)成的CAD軟件都有其局限性，設(shè)計過程中許多問題還只能用原始的方法解決。本文通過幾個實例對AutoCAD二次開發(fā)常用的Lisp語言在水電工程設(shè)計中的應(yīng)用進行了初步探討，希望能夠起到拋磚引玉的作用。VisualLisp語言是AutoCADR14版本以后提供的全新的開發(fā)環(huán)境，是嵌于AutoCAD內(nèi)部，將Lisp語言與AutoCAD相結(jié)合的產(chǎn)物，是一種智能型語言。利用AutoLisp可以靈活方便地增加AutoCAD新命令，幾乎無限地擴展AutoCAD新功能，2應(yīng)用實例2.1坐標畫線利用已知坐標點畫線是設(shè)計工作中經(jīng)常遇到的問題，如河道、堤防等實測斷面、水位流量關(guān)系曲線、堰面曲線等數(shù)據(jù)的處理，均可歸結(jié)為坐標畫線問題。對于堰面曲線等有函數(shù)方程的曲線可以利用EXCEL按照期望的步長自動生成一系列坐標點。對于測量常用的起點距-高程形式的數(shù)據(jù)，也可以利用EXCEL轉(zhuǎn)化成坐標點形式。（1）利用腳本文件(.SCR)利用任何文本編輯器如Note、Uedit、Word、Excel等建立純文本文件EX1.SCR，注意文本文件后綴必須為.SCR,坐標之間用半角逗號分開，文件中不允許出現(xiàn)空格，文件最后一行必須為空回車。文件建立時，可以直接把EXCEL或其他文件中的坐標表利用拷貝、粘貼功能加入腳本文件中。Pline345.66,238.65213.45,124.56128.44,235.66文件保存后，執(zhí)行AutoCAD中“工具”下的“運行腳本”，在顯示的窗口中查找并選中EX1.SCR，屏幕上會立即顯示所繪線條。（2）利用LSP程序建立坐標表文件EX2.DAT，后綴任意，可以依次輸入多段曲線，中間用曲線名稱分開，程序自動繪制多條曲線并可標注坐標表?！扒€1”213.45,124.56128.44,235.66345.66,231.78“曲線2”433.34,567.23434.12,464.12利用AutoCAD中“工具”菜單下的“VisulLisp編輯器”建立DRLINE.LSP文件如下(defunC:drline()(iffn(setqfn(getfiled坐標點文件名fn2)(setqfn(getfiled坐標點文件名2)(setqf(openfnr)(setqp0(getpointn畫線起點:)(setqbz0mm1)(commandpline)(while(/=bz1)(setqmd(read-linef)(if(/=mdnil)(setqzbb(readmd)(setqbz1)(setqdx(carzbb)dy(cadrzbb)(setqp1(list(+dx(carp0)(+dy(cadrp0)(commandp1)(setqmm(1+mm)(command)(closef)文件存盤后，加載運行，相當于新增加了坐標畫線命令DRLINE，按提示選中存放坐標表的文件即可實現(xiàn)自動繪制曲線。2.2地形切剖面水電工程設(shè)計中經(jīng)常遇到在地形圖上切剖面的問題，借助VisualLisp可以實現(xiàn)快速切剖面。（1）初始地形圖處理把帶z坐標的地形平面圖進行變換，變換后z坐標值成為層名，為加快切剖面運行速度，把“LWPOLYLINE”和”SPLINE”均轉(zhuǎn)化為”LINE“線，程序如下(defunc:pltol()；LWPOLYLINE轉(zhuǎn)化為LINE(setqn0)(setqe(ssgetX(list(cons0LWPOLYLINE)(setqsh(sslengthe)(ife(while(nsh)(setqe1(ssnameen)(commandpedite1d)(setqx(entgete1)(setqngc(atof(setqla(fld8x)(commandexplodee1)(setqn(+n1)(defunfld(numlst)(cdr(assocnumlst)(defunc:spltol()；SPLINE轉(zhuǎn)化為LINE(setqn0)(setqe(ssge