給排水設計給排水ＣＡＤ軟件開(kāi)發(fā)實(shí)例

【摘要】本文介紹了用戶(hù)幻燈菜單及功能和開(kāi)發(fā)方法,并給出了標高標注和圖例繪制程序的開(kāi)發(fā)方法以及程序注解。

１用戶(hù)幻燈菜單簡(jiǎn)介用戶(hù)幻燈菜單（下文簡(jiǎn)稱(chēng)幻燈菜單）是在ＡｕｔｏＣＡＤ平臺上開(kāi)發(fā)的一種高效實(shí)用的用戶(hù)圖形界面,由幻燈和相應的ＡｕｔｏＬＩＳＰ實(shí)用程序組成。其功能及用法類(lèi)似于ＡｕｔｏＣＡＤ的圖標菜單。調用時(shí)幻燈菜單屏幕上出現一幅幻燈,幻燈顯示不同圖形界面,由幻燈和相應的ＡｕｔｏＣＡＤ實(shí)用程序組成。其功能及用法的功能區域,每個(gè)區域對應相應的功能,用鼠標點(diǎn)取即可調用該功能。

幻燈菜單可以用于開(kāi)發(fā)本部門(mén)使用的工具軟件或是商業(yè)化的ＣＡＤ軟件,可以大大提高開(kāi)發(fā)效率以及設計繪圖速度。

下面以我院開(kāi)發(fā)的標高標注程序為例介紹幻燈菜單的功能:在ｃｏｍｍａｎｄ:狀態(tài)下從下拉菜單中點(diǎn)取“標高標注１”后屏幕上出現如圖１所示幻燈,用鼠標在某一標高種類(lèi)格中點(diǎn)擊后幻燈消失,恢復前一圖面,在提示行中提示“請輸入起點(diǎn)”,給點(diǎn)后又提示:“標高值”,輸入數值后自動(dòng)按選擇的種類(lèi)畫(huà)好標高符號并寫(xiě)好標高值;然后重復提示“請輸入起點(diǎn)”標注下一個(gè),回車(chē)則回到圖１幻燈重復使用,點(diǎn)ＥＸＩＴ退出。

２幻燈菜單的特點(diǎn)

幻燈菜單可以實(shí)現ＡｕｔｏＣＡＤ的圖標菜單的各項功能,并且有如下優(yōu)點(diǎn):

ａ．制作、修改效率高。制作圖標菜單時(shí),要實(shí)現的功能數與幻燈數及菜單項的數量相同。而制作一個(gè)幻燈菜單只需要作一個(gè)幻燈,幻燈數量大幅減少,修改也容易得多。

ｂ．使用效率高。為了提高軟件效率,盡量減少擊鍵次數是今后軟件的發(fā)展方向�；脽舨藛慰梢詫⒍喾N形式的選擇以圖形形式直觀(guān)地顯示出來(lái),以供選擇。以標高標注為例,以前的方法是先問(wèn)標高符號形式,再問(wèn)方向,而使用幻燈菜單只需點(diǎn)取一次即可。

ｃ．界面美觀(guān),制作靈活多樣,使用方便�；脽舨藛卧谝环�幻燈中劃分的功能區數量不限,并且可以根據需要制作成方格、橫格、豎格、扇型格、圓環(huán)格等多種形式,甚至可以達到可編程序對話(huà)框的很多功能。

ｄ．適用性強,移植方便�；脽舨藛芜m用于Ｒ９．０版以上的各種中、西文ＡｕｔｏＣＡＤ版本。使用幻燈菜單時(shí),由于它包含在用ＡＤＳ或ＡｕｔｏＬＩＳＰ等語(yǔ)言編制的程序中,所以只要能運行程序即可調出幻燈菜單,版本升級時(shí)不必改變新的菜單文件。而圖標菜單的菜單項必須逐條加入到新的菜單文件中。

ｅ．可以作成定型模塊重復使用,從而大大提高編程效率。

３幻燈菜單的制作

幻燈菜單的原理是:將ＡｕｔｏＣＡＤ繪圖區分為若干規則的圖形區域,每一區域可以對應一組功能,在程序調用幻燈菜單時(shí),要求用戶(hù)根據需要在某一圖形區域中選取一點(diǎn),然后程序自動(dòng)計算出該點(diǎn)所在的區域位置,從而調用所對應的程序功能。

點(diǎn)的定位是幻燈菜單制作編程的關(guān)鍵所在,以矩形格幻燈菜單為例,其步驟是:

ａ．獲取下列ＡｕｔｏＣＡＤ系統變量:

ｖｉｅｗｓｉｚｅ-當前繪圖區高,用繪圖單位計算;

ｖｉｅｗｃｔｒ-當前繪圖區中心點(diǎn)坐標值;

ｖｓｍａｘ、ｖｓｍｉｎ-虛擬屏幕的左下角及右上角點(diǎn)坐標值,可以用來(lái)求繪圖區寬高比,從而求出繪圖區寬度。

ｂ．根據橫向和豎向分格數,求出每格的寬和高。

ｃ．由點(diǎn)的坐標值分別求出點(diǎn)所在格的橫向和豎向序號。

ｄ．橫向和豎向序號連接即可獲得該格的區域代碼。

后文將給出我院開(kāi)發(fā)的標高標注和圖例繪制兩個(gè)實(shí)例,以下程序均在ＡｕｔｏＣＡＤＲ１０至１３各版本下順利運行,并已非常成熟。需要指出的是,為了簡(jiǎn)化程序,突出重點(diǎn),刪去了一些諸如容錯或裝飾性的語(yǔ)句,但不影響程序運行。

４實(shí)例一———標高標注程序

由程序ａｂｇ．ｌｓｐ和幻燈文件ａｃｄｌ．ｓｌｄ文件組成,使用說(shuō)明已在前面敘述,標題７ａ給出ａｂｇ．ｌｓｐ程序清單及注解

ａｂｇ．ｌｓｐ程序包括主程序ａｂｇ和１５個(gè)標高標注子函數,子函數ａｂｇｌ至ａｂｇ１５類(lèi)似,本文只列出ａｂｇｌ子函數程序。

５實(shí)例二———圖例繪制軟件本軟件由用戶(hù)在６頁(yè)幻燈菜單中連續選取圖例,給出一個(gè)插入圖例的左上角點(diǎn)后,程序自動(dòng)將所選擇的圖例按順序逐項向下排列連續繪出。軟件由Ａｕ ｔｏＬＩＳＰ程序ａｔｌ．ｌｓｐ和６頁(yè)幻燈以及近百個(gè)圖塊組成�；脽粑募�為ａｔｌ１～ａｔｌ６．ｓｌｄ。圖塊名為ａｔｌａｂｃ．ｄｗｇ,ａｔｌ為前綴,ａ代表幻燈頁(yè)序號,為１～６;ｂ代表幻燈菜單左右代碼,左面為１,右面為２;ｃ代表幻燈菜單中上下序號,分別為１～８。

本軟件設計的核心思想是通過(guò)點(diǎn)的定位計算出的所對應的圖例圖塊名,然后插入圖例,多重選擇由表處理語(yǔ)句來(lái)完成。本文中第７節的ｂ部分給出ａｔｌ．ｌｓｐ中與幻燈菜單有關(guān)的程序清單及注解。后面還有幾個(gè)子函數,由于篇幅有限本文不詳細列出程序,只做簡(jiǎn)單介紹:

ｌａｓｔｓｌｄ子函數對幻燈名字符串進(jìn)行運算,求出上一頁(yè)幻燈名;

ｎｅｘｔｓｌｄ子函數對幻燈名字符串進(jìn)行運算,求出下一頁(yè)幻燈名;

ｓｅｔｎｉｌ子函數對各變量（必須包括ｗｈｉｌｌ）賦空值,并退出程序:

ｓｅｔｏｋ子函數對被選擇的圖例表進(jìn)行處理,并逐項連續插入圖例。

６小結

ａ．標高標注程序是利用幻燈菜單調出相應的標高標注子程序。

ｂ．圖例程序是利用幻燈菜單給圖例名稱(chēng)賦值,然后運用字符串處理和表處理技術(shù)求得圖例名稱(chēng)的列表,從而連續逐項插入被選中的圖例。

ｃ．圖例幻燈菜單分兩個(gè)大區,上面是圖例區,下面是幻燈菜單的操作區,可見(jiàn)幻燈菜單能做成復雜高效的菜單。

７程序清單

ａ．ａｂｇ．ｌｓｐ程序及注解;

（ｄｅｆｕｎＣ：ＢＧＢＺ（）

（ｓｅｔｑｗｈｉｌ１ｔ）

（ｗｈｉｌｅｗｈｉｌ１）

（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″″ａｃｄ１″）

（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″請點(diǎn)取標高種類(lèi)″））

（ｐｒｏｇｎ

（ｒｅｄｒａｗ）

（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）

ｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）

ｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″）

ｐｍｉｍ（ｇｅｔｖａｒ″ｖｓｍｉｎ″）虛擬屏幕左下角）

（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））

（-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（／ｗ３））

（-（ｃａｄｒｐｃｅｎ（

／ｈ３））））

（ｓｅｔｑｐｐ１（ｌｉｓｔ（ （ｃａｒｐｃｅｎ）（／ｗ３））

（ （ｃａｄｒｐｃｅｎ）（／ｈ３））））

（ｓｅｔｑｄｘ（／ｗ６）ｄｙ（／ｈ６））

（ｓｅｔｑｌｘ（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））

（ｓｅｔｑｐｌｘ（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））

（ｓｅｔｐｌｘ（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））

（ｓｅｔｐｘ（ｆｉｘ（１ （／（-ｐｘｐｘ０）ｄｘ））））

（ｓｅｔｑｙ（ｆｉｘ（１ （／（-ｐｙｐｙ０）ｄｙ））））

（ｓｅｔｑｎｎ（ｓｔｒｃａｔ（ｉｔｏａｘ）（ｉｔｏａｙ）））

（ｃｏｎｄ（（＝ｎｎ１４）（ａｂｇ１））

（（＝ｎｎ１３）（ａｂｇ２））

（（＝ｎｎ１２）（ａｂｇ３））

（（＝ｎｎ１１）（ａｂｇ４））

主程序ＢＧＢＺ開(kāi)始

設ｗｈｉｌ１值為真

當ｗｈｉｌ１為真時(shí)執行下列程序

顯示幻燈在幻燈菜單中選點(diǎn)

重畫(huà)恢復原畫(huà)面

繪圖區高

繪圖區中心點(diǎn)

虛擬屏幕右上角

共獲取系統變量

求繪圖區寬

有效區左下角,（有效區寬和高占繪圖寬和高的三分之二）

有效區右上角

每格寬和高

ＰＰ點(diǎn)的Ｘ和Ｙ坐標

左下角點(diǎn)坐標

ＰＰ點(diǎn)和ＰＰ０點(diǎn)Ｘ和Ｙ坐標差;

Ｘ方向格序號

Ｙ方向格序號

將Ｘ和Ｙ連接

多項選擇條件函數

ｎｎ＝１３時(shí)運行ａｂｅ２子函數

（（＝ｎｎ２４）（ａｂｇ５））

（（＝ｎｎ２３）（ａｂｇ６））

（（＝ｎｎ２２）（ａｂｇ７））

（（＝ｎｎ２１）（ａｂｇ８））

（（＝ｎｎ３４）（ａｂｇ９））

（（＝ｎｎ３３）（ａｂｇ１０））

（（＝ｎｎ３２）（ａｂｇ１１））

（（＝ｎｎ３１）（ａｂｇ１２））

（（＝ｎｎ４４）（ａｂｇ１３））

（（＝ｎｎ４３）（ａｂｇ１４））

（（＝ｎｎ４２）（ａｂｇ１５））

（（＝ｎｎ４１）（ｓｅｔｑｗｈｉｌ１ｎｉｌ））

）;ｃｏｎｄ）

）））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ

（ｄｅｆｕｎａｂｇ１（）

（ｗｈｉｌｅ（ｓｅｔｑｐ１（ｇｅｔｐｏｉｎｔ″輸入起點(diǎn)″））

（ｉｎｉｔｇｅｔ１）

（ｓｅｔｑｓ１（ｇｅｔｒｅａｌ″標高值:″））

（ｓｅｔｑｐ２（ｐｏｌａｒｐ１０８））

（ｓｅｔｑｐ３（ｐｏｌａｒｐ２（／ｐｉ４）３．２））

（ｓｅｔｑｐ４（ｌｉｓｔ（ （ｃａｒｐ２）０）（ （ｃａｄｒｐ２）２．９）））

（ｉｆ（＝ｓ１０）（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））

（ｃｏｍｍａｎｄ″ｌｉｎｅ″ｐ１″＠１４＜０″″″″ｌｉｎｅ″ｐ３ｐ２

″＠３．２＜１３５″″＠１２．８＜０″″″

″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……

ｂ．ａｔｌ．ｌｓｐ程序及注解

為１１-４４格規定功能,即每一格對應一個(gè)子函數

主程序ＢＧＢＺ結束

定義ａｂｇ１子函數

標高符號起點(diǎn)

不接受空值

標高值

計算各點(diǎn)位置

標高為０時(shí)加“±”

畫(huà)標高符號

寫(xiě)標高值ｃｏｍｍａｎｄ

ｗｈｉｌｅ；ｄｅｆｕｎ-ａｂｇ１ａ

ｂｇ２～ａｂｇ１５子函數省略

（ｄｅｆｕｎＣ：ＴＬ（）

（ｓｅｔｑａｔｌｌｉｓｔｎｉｌｔｌｓｌｄ″ａｔｌａ″ｔｌｓｌｄｎ″１″ｗｈｉｌ１ｔ）

（ｓｅｔｑｔｌｐａｔｈ″／ｃａｄ／ａｔｌ″）

（ｐｒｏｍｔｐ″＼ｎ給排水圖例程序
—ＢＥＲＩＳ″）

（ｗｈｉｌｅｗｈｉｌ１

（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））

（ｉｎｉｔｇｅｔ１）

（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ請連續點(diǎn)取圖例,并點(diǎn)取〈確定〉″））

（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））

（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））

圖例繪制主程序

賦初始值

圖例圖塊路徑

提示

當ｗｈｉｌ１為真執行下面程序調出幻燈（幻燈名由三個(gè)變量連接而成,圖２為第一頁(yè)）

不接受空值

以下內容同標高標注程序

（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））

（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））

（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））

（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））

（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））

（ｓｅｔｑｐｐ１（ｌｉｓｔ（ （ｃａｒｐｃｅｎ）（*ｗ０．４４））

（ （ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））

（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））

（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））

（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））

（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））

（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））

（ｓｅｔｑａｏｒｂ″１″）

（ｓｅｔｑａｏｒｂ″２″））

（ｓｅｔｑｘｈ（ｆｉｘ（１ （／（-ｐｙｐｙ０）ｄｙ））））

（ｓｅｔｑｂｌｋｎａｍｅ

（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））

（ｄｅｆｕｎｄｑ２（）

（ｓｅｔｑｘｈ１（ｆｉｘ（１ （／（-ｐｘｐｘ０）ｄｘ））））

（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））

（（＝ｘｈ１２）（ｎｅｘｔｓ


ｌｄ））

（（＝ｘｈ１３）（ｓｅｔｎｉｌ））

（（＝ｘｈ１４）（ｓｅｔｏｋ））））

（ｄｅｆｕｎｌａｓｔｓｌｄ（））

（ｄｅｆｕｎｎｅｘｔｓｌｄ（））

（ｄｅｆｕｎｓｅｔｎｉｌ（））

（ｄｅｆｕｎｓｅｔｏｋ（））

如點(diǎn)在上半部分運行ｄｑ１,否則運行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ圖例主程序結束定義ｄｑ１子函數

點(diǎn)落在左面ａｏｒｂ為１

點(diǎn)在右面ａｏｒｂ為２;ｉｆ

計算縱向序號計算圖例圖塊名（由４部分連接組成）

ｄｑ１結束

定義ｄｑ２子函數

計算橫向序號

運行ｌａｓｔｓｌｄ子函數,向前翻頁(yè)

運行ｎｅｘｔｓｌｄ子函數,向后翻頁(yè)

運行ｓｅｔｎｉｌ子函數,賦空退出

運行ｓｅｔｏｋ子函數,插入圖例

定義ｌａｓｔｓｌｄ子函數,略

定義ｎｅｘｔｓｌｄ子函數,略

定義ｓｅｔｎｉｌ子函數,略

定義ｓｉｔｏｋ子函數,略 論文出處(作者):
論“城市優(yōu)化供配水系統”研究與開(kāi)發(fā)—建設節水型城市的
給排水專(zhuān)業(yè)ＣＡＤ軟件開(kāi)發(fā)方法探討

【給排水設計給排水ＣＡＤ軟件開(kāi)發(fā)實(shí)例】相關(guān)文章：

給排水專(zhuān)業(yè)ＣＡＤ軟件開(kāi)發(fā)方法探討03-18

擴展實(shí)體數據在給排水工程ＣＡＤ中的應用03-18

淺談住宅建筑排水設計03-27

住宅給排水設計新思路03-24

建筑給排水設計流程淺析03-16

小議住宅給排水設計的具體細節03-07

提高建筑給排水設計節能優(yōu)化03-14

建筑給排水畢業(yè)設計開(kāi)題報告01-29

建筑給排水及消防系統設計要點(diǎn)論文11-14