1 概述
美國Autodesk公司開發(fā)的AutoCAD系統(tǒng)自1982年推出以來，以其使用方便、功能強(qiáng)大和系統(tǒng)開放性一直獨(dú)領(lǐng)風(fēng)騷。成為各工程領(lǐng)域首選的CAD系統(tǒng)。
水利水電工程領(lǐng)域利用AutoCAD平臺(tái)進(jìn)行二次開發(fā)也取得了一系列成果，如90年代以來陸續(xù)開發(fā)的水電站地面廠房CAD系統(tǒng)、重力壩CAD系統(tǒng)、隧洞CAD系統(tǒng)、水機(jī)油汽水CAD系統(tǒng)、地質(zhì)柱狀圖CAD等均取得了較好的應(yīng)用效果。但水電工程設(shè)計(jì)的復(fù)雜性決定了任何現(xiàn)成的CAD軟件都有其局限性，設(shè)計(jì)過程中許多問題還只能用原始的方法解決。本文通過幾個(gè)實(shí)例對AutoCAD二次開發(fā)常用的Lisp語言在水電工程設(shè)計(jì)中的應(yīng)用進(jìn)行了初步探討，希望能夠起到拋磚引玉的作用。
VisualLisp語言是AutoCADR14版本以后提供的全新的開發(fā)環(huán)境，是嵌于AutoCAD內(nèi)部，將Lisp語言與AutoCAD相結(jié)合的產(chǎn)物，是一種智能型語言。利用AutoLisp可以靈活方便地增加AutoCAD新命令，幾乎無限地?cái)U(kuò)展AutoCAD新功能，
2 應(yīng)用實(shí)例
2 .1 坐標(biāo)畫線
利用已知坐標(biāo)點(diǎn)畫線是設(shè)計(jì)工作中經(jīng)常遇到的問題，如河道、堤防等實(shí)測斷面、水位流量關(guān)系曲線、堰面曲線等數(shù)據(jù)的處理，均可歸結(jié)為坐標(biāo)畫線問題。對于堰面曲線等有函數(shù)方程的曲線可以利用EXCEL按照期望的步長自動(dòng)生成一系列坐標(biāo)點(diǎn)。對于測量常用的起點(diǎn)距-高程形式的數(shù)據(jù)，也可以利用EXCEL轉(zhuǎn)化成坐標(biāo)點(diǎn)形式。
（1）利用腳本文件(.SCR)
利用任何文本編輯器如Note、Uedit、Word、Excel等建立純文本文件EX1.SCR，注意文本文件后綴必須為.SCR,坐標(biāo)之間用半角逗號(hào)分開，文件中不允許出現(xiàn)空格，文件最后一行必須為空回車。文件建立時(shí)，可以直接把 EXCEL或其他文件中的坐標(biāo)表利用拷貝、粘貼功能加入腳本文件中。
Pline
345.66,238.65
213.45,124.56
128.44,235.66
文件保存后，執(zhí)行AutoCAD中“工具”下的“運(yùn)行腳本”，在顯示的窗口中查找并選中EX1.SCR，屏幕上會(huì)立即顯示所繪線條。
（2）利用LSP程序
建立坐標(biāo)表文件EX2.DAT，后綴任意，可以依次輸入多段曲線，中間用曲線名稱分開，程序自動(dòng)繪制多條曲線并可標(biāo)注坐標(biāo)表。
“曲線1”
213.45,124.56
128.44,235.66
345.66,231.78
“曲線2”
433.34,567.23
434.12,464.12
利用AutoCAD中“工具”菜單下的“VisulLisp編輯器”建立DRLINE.LSP文件如下
(defun C:drline()
2 .3 沿曲線標(biāo)注
在設(shè)計(jì)中會(huì)遇到沿給定曲線進(jìn)行標(biāo)注問題，如平面布置圖中的開挖線符號(hào)沿開挖輪廓的標(biāo)注，剖面圖中巖石符號(hào)沿輪廓線標(biāo)注、點(diǎn)筋標(biāo)注、沿任意曲線進(jìn)行漢字標(biāo)注等。此類問題主要應(yīng)用AutoCAD的Measure或divide命令來解決。兩個(gè)命令的主要差別是前者按指定的長度在曲線上標(biāo)注，后者按給定的分段數(shù)等分曲線并在等分點(diǎn)處進(jìn)行標(biāo)注。要標(biāo)注的輪廓曲線用pline線，要標(biāo)注的符號(hào)預(yù)先做成圖塊，圖塊采用單位塊，執(zhí)行measure或divide命令，選取要標(biāo)注的曲線，指定標(biāo)注符號(hào)，分段長度或分段數(shù)即可完成標(biāo)注，當(dāng)發(fā)現(xiàn)標(biāo)注的符號(hào)太密或太疏時(shí)，可以執(zhí)行erase命令選擇P進(jìn)行刪除，比例不合適或符號(hào)方向不正確，可以利用特性編輯器，選中所有標(biāo)注符號(hào)，對標(biāo)注符號(hào)的比例和旋轉(zhuǎn)角度進(jìn)行調(diào)整，直到滿意為止。對于更高級(jí)的應(yīng)用，可以編制LSP程序，實(shí)現(xiàn)符號(hào)和文字沿任意曲線標(biāo)注。
美國Autodesk公司開發(fā)的AutoCAD系統(tǒng)自1982年推出以來，以其使用方便、功能強(qiáng)大和系統(tǒng)開放性一直獨(dú)領(lǐng)風(fēng)騷。成為各工程領(lǐng)域首選的CAD系統(tǒng)。
水利水電工程領(lǐng)域利用AutoCAD平臺(tái)進(jìn)行二次開發(fā)也取得了一系列成果，如90年代以來陸續(xù)開發(fā)的水電站地面廠房CAD系統(tǒng)、重力壩CAD系統(tǒng)、隧洞CAD系統(tǒng)、水機(jī)油汽水CAD系統(tǒng)、地質(zhì)柱狀圖CAD等均取得了較好的應(yīng)用效果。但水電工程設(shè)計(jì)的復(fù)雜性決定了任何現(xiàn)成的CAD軟件都有其局限性，設(shè)計(jì)過程中許多問題還只能用原始的方法解決。本文通過幾個(gè)實(shí)例對AutoCAD二次開發(fā)常用的Lisp語言在水電工程設(shè)計(jì)中的應(yīng)用進(jìn)行了初步探討，希望能夠起到拋磚引玉的作用。
VisualLisp語言是AutoCADR14版本以后提供的全新的開發(fā)環(huán)境，是嵌于AutoCAD內(nèi)部，將Lisp語言與AutoCAD相結(jié)合的產(chǎn)物，是一種智能型語言。利用AutoLisp可以靈活方便地增加AutoCAD新命令，幾乎無限地?cái)U(kuò)展AutoCAD新功能，
2 應(yīng)用實(shí)例
2 .1 坐標(biāo)畫線
利用已知坐標(biāo)點(diǎn)畫線是設(shè)計(jì)工作中經(jīng)常遇到的問題，如河道、堤防等實(shí)測斷面、水位流量關(guān)系曲線、堰面曲線等數(shù)據(jù)的處理，均可歸結(jié)為坐標(biāo)畫線問題。對于堰面曲線等有函數(shù)方程的曲線可以利用EXCEL按照期望的步長自動(dòng)生成一系列坐標(biāo)點(diǎn)。對于測量常用的起點(diǎn)距-高程形式的數(shù)據(jù)，也可以利用EXCEL轉(zhuǎn)化成坐標(biāo)點(diǎn)形式。
（1）利用腳本文件(.SCR)
利用任何文本編輯器如Note、Uedit、Word、Excel等建立純文本文件EX1.SCR，注意文本文件后綴必須為.SCR,坐標(biāo)之間用半角逗號(hào)分開，文件中不允許出現(xiàn)空格，文件最后一行必須為空回車。文件建立時(shí)，可以直接把 EXCEL或其他文件中的坐標(biāo)表利用拷貝、粘貼功能加入腳本文件中。
Pline
345.66,238.65
213.45,124.56
128.44,235.66
文件保存后，執(zhí)行AutoCAD中“工具”下的“運(yùn)行腳本”，在顯示的窗口中查找并選中EX1.SCR，屏幕上會(huì)立即顯示所繪線條。
（2）利用LSP程序
建立坐標(biāo)表文件EX2.DAT，后綴任意，可以依次輸入多段曲線，中間用曲線名稱分開，程序自動(dòng)繪制多條曲線并可標(biāo)注坐標(biāo)表。
“曲線1”
213.45,124.56
128.44,235.66
345.66,231.78
“曲線2”
433.34,567.23
434.12,464.12
利用AutoCAD中“工具”菜單下的“VisulLisp編輯器”建立DRLINE.LSP文件如下
(defun C:drline()
2 .3 沿曲線標(biāo)注
在設(shè)計(jì)中會(huì)遇到沿給定曲線進(jìn)行標(biāo)注問題，如平面布置圖中的開挖線符號(hào)沿開挖輪廓的標(biāo)注，剖面圖中巖石符號(hào)沿輪廓線標(biāo)注、點(diǎn)筋標(biāo)注、沿任意曲線進(jìn)行漢字標(biāo)注等。此類問題主要應(yīng)用AutoCAD的Measure或divide命令來解決。兩個(gè)命令的主要差別是前者按指定的長度在曲線上標(biāo)注，后者按給定的分段數(shù)等分曲線并在等分點(diǎn)處進(jìn)行標(biāo)注。要標(biāo)注的輪廓曲線用pline線，要標(biāo)注的符號(hào)預(yù)先做成圖塊，圖塊采用單位塊，執(zhí)行measure或divide命令，選取要標(biāo)注的曲線，指定標(biāo)注符號(hào)，分段長度或分段數(shù)即可完成標(biāo)注，當(dāng)發(fā)現(xiàn)標(biāo)注的符號(hào)太密或太疏時(shí)，可以執(zhí)行erase命令選擇P進(jìn)行刪除，比例不合適或符號(hào)方向不正確，可以利用特性編輯器，選中所有標(biāo)注符號(hào)，對標(biāo)注符號(hào)的比例和旋轉(zhuǎn)角度進(jìn)行調(diào)整，直到滿意為止。對于更高級(jí)的應(yīng)用，可以編制LSP程序，實(shí)現(xiàn)符號(hào)和文字沿任意曲線標(biāo)注。