給排水設計給排水ＣＡＤ軟件開發實例

給排水設計給排水ＣＡＤ軟件開發實例

【摘要】本文介紹了用戶幻燈菜單及功能和開發方法,并給出了標高標注和圖例繪制程序的開發方法以及程序注解。
　　
　�。庇脩艋脽舨藛魏喗橛脩艋脽舨藛危ㄏ挛暮喎Q幻燈菜單）是在ＡｕｔｏＣＡＤ平臺上開發的一種高效實用的用戶圖形界面,由幻燈和相應的ＡｕｔｏＬＩＳＰ實用程序組成。其功能及用法類似于ＡｕｔｏＣＡＤ的圖標菜單。調用時幻燈菜單屏幕上出現一幅幻燈,幻燈顯示不同圖形界面,由幻燈和相應的ＡｕｔｏＣＡＤ實用程序組成。其功能及用法的功能區域,每個區域對應相應的功能,用鼠標點取即可調用該功能。
　　
　　幻燈菜單可以用于開發本部門使用的工具軟件或是商業化的ＣＡＤ軟件,可以大大提高開發效率以及設計繪圖速度。
　　
　　下面以我院開發的標高標注程序為例介紹幻燈菜單的功能:在ｃｏｍｍａｎｄ:狀態下從下拉菜單中點取“標高標注１”后屏幕上出現如圖１所示幻燈,用鼠標在某一標高種類格中點擊后幻燈消失,恢復前一圖面,在提示行中提示“請輸入起點”,給點后又提示:“標高值”,輸入數值后自動按選擇的種類畫好標高符號并寫好標高值;然后重復提示“請輸入起點”標注下一個,回車則回到圖１幻燈重復使用,點ＥＸＩＴ退出。
　　
　�。不脽舨藛蔚奶攸c
　　
　　幻燈菜單可以實現ＡｕｔｏＣＡＤ的圖標菜單的各項功能,并且有如下優點:
　　
　�。幔�制作、修改效率高。制作圖標菜單時,要實現的功能數與幻燈數及菜單項的數量相同。而制作一個幻燈菜單只需要作一個幻燈,幻燈數量大幅減少,修改也容易得多。
　　
　�。猓�使用效率高。為了提高軟件效率,盡量減少擊鍵次數是今后軟件的發展方向�；脽舨藛慰梢詫⒍喾N形式的選擇以圖形形式直觀地顯示出來,以供選擇。以標高標注為例,以前的方法是先問標高符號形式,再問方向,而使用幻燈菜單只需點取一次即可。
　　
　�。悖�界面美觀,制作靈活多樣,使用方便�；脽舨藛卧谝环�幻燈中劃分的功能區數量不限,并且可以根據需要制作成方格、橫格、豎格、扇型格、圓環格等多種形式,甚至可以達到可編程序對話框的很多功能。
　　
　�。洌�適用性強,移植方便�；脽舨藛芜m用于Ｒ９．０版以上的各種中、西文ＡｕｔｏＣＡＤ版本。使用幻燈菜單時,由于它包含在用ＡＤＳ或ＡｕｔｏＬＩＳＰ等語言編制的程序中,所以只要能運行程序即可調出幻燈菜單,版本升級時不必改變新的菜單文件。而圖標菜單的菜單項必須逐條加入到新的菜單文件中。
　　
　�。澹�可以作成定型模塊重復使用,從而大大提高編程效率。
　　
　�。郴脽舨藛蔚闹谱�
　　
　　幻燈菜單的原理是:將ＡｕｔｏＣＡＤ繪圖區分為若干規則的圖形區域,每一區域可以對應一組功能,在程序調用幻燈菜單時,要求用戶根據需要在某一圖形區域中選取一點,然后程序自動計算出該點所在的區域位置,從而調用所對應的程序功能。
　　
　　點的定位是幻燈菜單制作編程的關鍵所在,以矩形格幻燈菜單為例,其步驟是:
　　
　�。幔�獲取下列ＡｕｔｏＣＡＤ系統變量:
　　
　�。觯椋澹鳎螅椋�ｅ-當前繪圖區高,用繪圖單位計算;
　　
　�。觯椋澹鳎悖簦�-當前繪圖區中心點坐標值;
　　
　�。觯螅恚幔�、ｖｓｍｉｎ-虛擬屏幕的左下角及右上角點坐標值,可以用來求繪圖區寬高比,從而求出繪圖區寬度。
　　
　�。猓�根據橫向和豎向分格數,求出每格的寬和高。
　　
　�。悖�由點的坐標值分別求出點所在格的橫向和豎向序號。
　　
　�。洌畽M向和豎向序號連接即可獲得該格的區域代碼。
　　
　　后文將給出我院開發的標高標注和圖例繪制兩個實例,以下程序均在ＡｕｔｏＣＡＤＲ１０至１３各版本下順利運行,并已非常成熟。需要指出的是,為了簡化程序,突出重點,刪去了一些諸如容錯或裝飾性的語句,但不影響程序運行。
　　
　�。磳嵗�一———標高標注程序
　　
　　由程序ａｂｇ．ｌｓｐ和幻燈文件ａｃｄｌ．ｓｌｄ文件組成,使用說明已在前面敘述,標題７ａ給出ａｂｇ．ｌｓｐ程序清單及注解
　　
　�。幔猓纾�ｌｓｐ程序包括主程序ａｂｇ和１５個標高標注子函數,子函數ａｂｇｌ至ａｂｇ１５類似,本文只列出ａｂｇｌ子函數程序。
　　
　�。祵嵗�二———圖例繪制軟件本軟件由用戶在６頁幻燈菜單中連續選取圖例,給出一個插入圖例的左上角點后,程序自動將所選擇的圖例按順序逐項向下排列連續繪出。軟件由ＡｕｔｏＬＩＳＰ程序ａｔｌ．ｌｓｐ和６頁幻燈以及近百個圖塊組成�；脽粑募�為ａｔｌ１～ａｔｌ６．ｓｌｄ。圖塊名為ａｔｌａｂｃ．ｄｗｇ,ａｔｌ為前綴,ａ代表幻燈頁序號,為１～６;ｂ代表幻燈菜單左右代碼,左面為１,右面為２;ｃ代表幻燈菜單中上下序號,分別為１～８。
　　
　　本軟件設計的核心思想是通過點的定位計算出的所對應的圖例圖塊名,然后插入圖例,多重選擇由表處理語句來完成。本文中第７節的ｂ部分給出ａｔｌ．ｌｓｐ中與幻燈菜單有關的程序清單及注解。后面還有幾個子函數,由于篇幅有限本文不詳細列出程序,只做簡單介紹:
　　
　�。欤幔螅簦螅欤渥雍瘮祵�幻燈名字符串進行運算,求出上一頁幻燈名;
　　
　�。睿澹�ｔｓｌｄ子函數對幻燈名字符串進行運算,求出下一頁幻燈名;
　　
　�。螅澹簦睿椋熳雍瘮祵Ω髯兞浚ū仨毎�括ｗｈｉｌｌ）賦空值,并退出程序:
　　
　�。螅澹簦铮胱雍瘮祵Ρ贿x擇的圖例表進行處理,并逐項連續插入圖例。
　　
　�。缎〗Y
　　
　�。幔畼烁邩俗⒊绦蚴抢�用幻燈菜單調出相應的標高標注子程序。
　　
　�。猓畧D例程序是利用幻燈菜單給圖例名稱賦值,然后運用字符串處理和表處理技術求得圖例名稱的列表,從而連續逐項插入被選中的圖例。
　　
　�。悖畧D例幻燈菜單分兩個大區,上面是圖例區,下面是幻燈菜單的操作區,可見幻燈菜單能做成復雜高效的菜單。
　　
　�。烦绦蚯鍐�
　　
　�。幔�ａｂｇ．ｌｓｐ程序及注解;
　　
　�。ǎ洌澹妫酰睿茫海拢牵拢冢ǎ�
　　
　�。ǎ螅澹簦瘢鳎瑁椋欤保簦�
　　
　�。ǎ鳎瑁椋欤澹鳎瑁椋欤保�
　　
　�。�
　　
　　
　　
　�。悖铮恚恚幔睿洹澹觯螅欤椋洌濉濉澹幔悖洌薄澹�
　　
　�。ǎ椋妫ǎ螅澹簦瘢穑穑ǎ纾澹簦穑铮椋睿簟逭堻c取標高種類″））
　　
　�。ǎ穑颍铮纾�
　　
　�。ǎ颍澹洌颍幔鳎�
　　
　�。ǎ螅澹簦瘢瑁ǎ纾澹簦觯幔颉澹觯椋澹鳎螅椋�ｅ″）
　　
　�。穑悖澹睿ǎ纾澹簦觯幔颉澹觯椋澹鳎螅椋�ｅ″）
　　
　�。穑恚幔�（ｇｅｔｖａｒ″ｖｓｍａｘ″）
　　
　�。穑恚椋恚ǎ纾澹簦觯幔颉澹觯螅恚椋睢澹┨摂M屏幕左下角）
　　
　�。ǎ螅澹簦瘢鳎�*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
　　
　�。�-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
　　
　�。ǎ螅澹簦瘢穑穑埃ǎ欤椋螅簦�-（ｃａｒｐｃｅｎ）（／ｗ３））
　　
　�。�-（ｃａｄｒｐｃｅｎ（
　　
　�。�ｈ３））））
　　
　�。ǎ螅澹簦瘢穑穑保ǎ欤椋螅簦�+（ｃａｒｐｃｅｎ）（／ｗ３））
　　
　�。�+（ｃａｄｒｐｃｅｎ）（／ｈ３））））
　　
　�。ǎ螅澹簦瘢洌�（／ｗ６）ｄｙ（／ｈ６））
　　
　�。ǎ螅澹簦瘢欤�（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））
　　
　�。ǎ螅澹簦瘢穑欤�（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））
　　
　�。ǎ螅澹簦穑欤�（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））
　　
　�。ǎ螅澹簦穑�（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
　　
　�。ǎ螅澹簦瘢�（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
　　
　�。ǎ螅澹簦瘢睿睿ǎ螅簦颍悖幔簦ǎ椋簦铮幔�）（ｉｔｏａｙ）））
　　
　�。ǎ悖铮睿洌ǎǎ剑睿睿保矗�（ａｂｇ１））
　　
　�。ǎǎ剑睿睿保常�（ａｂｇ２））
　　
　�。ǎǎ剑睿睿保玻�（ａｂｇ３））
　　
　�。ǎǎ剑睿睿保保�（ａｂｇ４））
　　
　　主程序ＢＧＢＺ開始
　　
　　設ｗｈｉｌ１值為真
　　
　　當ｗｈｉｌ１為真時執行下列程序
　　
　　顯示幻燈在幻燈菜單中選點
　　
　　重畫恢復原畫面
　　
　　繪圖區高
　　
　　繪圖區中心點
　　
　　虛擬屏幕右上角
　　
　　共獲取系統變量
　　
　　求繪圖區寬
　　
　　有效區左下角,（有效區寬和高占繪圖寬和高的三分之二）
　　
　　有效區右上角
　　
　　每格寬和高
　　
　�。校悬c的Ｘ和Ｙ坐標
　　
　　左下角點坐標
　　
　�。校悬c和ＰＰ０點Ｘ和Ｙ坐標差;
　　
　�。胤较蚋裥蛱�
　　
　�。俜较蚋裥蛱�
　　
　　將Ｘ和Ｙ連接
　　
　　多項選擇條件函數
　　
　�。睿睿剑保硶r運行ａｂｅ２子函數
　　
　�。ǎǎ剑睿睿玻矗�（ａｂｇ５））
　　
　�。ǎǎ剑睿睿玻常�（ａｂｇ６））
　　
　�。ǎǎ剑睿睿玻玻�（ａｂｇ７））
　　
　�。ǎǎ剑睿睿玻保�（ａｂｇ８））
　　
　�。ǎǎ剑睿睿常矗�（ａｂｇ９））
　　
　�。ǎǎ剑睿睿常常�（ａｂｇ１０））
　　
　�。ǎǎ剑睿睿常玻�（ａｂｇ１１））
　　
　�。ǎǎ剑睿睿常保�（ａｂｇ１２））
　　
　�。ǎǎ剑睿睿矗矗�（ａｂｇ１３））
　　
　�。ǎǎ剑睿睿矗常�（ａｂｇ１４））
　　
　�。ǎǎ剑睿睿矗玻�（ａｂｇ１５））
　　
　�。ǎǎ剑睿睿矗保�（ｓｅｔｑｗｈｉｌ１ｎｉｌ））
　　
　�。�;ｃｏｎｄ）
　　
　�。�））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ
　　
　�。ǎ洌澹妫酰睿幔猓纾保ǎ�
　　
　�。ǎ鳎瑁椋欤澹ǎ螅澹簦瘢穑保ǎ纾澹簦穑铮椋睿簟遢斎肫瘘c″））
　　
　�。ǎ椋睿椋簦纾澹簦保�
　　
　�。ǎ螅澹簦瘢螅保ǎ纾澹簦颍澹幔臁鍢烁咧�:″））
　　
　�。ǎ螅澹簦瘢穑玻ǎ穑铮欤幔颍穑保埃福�）
　　
　�。ǎ螅澹簦瘢穑常ǎ穑铮欤幔颍穑玻ǎ�ｐｉ４）３．２））
　　
　�。ǎ螅澹簦瘢穑矗ǎ欤椋螅簦�+（ｃａｒｐ２）０）（+（ｃａｄｒｐ２）２．９）））
　　
　�。ǎ椋妫ǎ剑螅保埃�（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））
　　
　�。ǎ悖铮恚恚幔睿洹澹欤椋睿濉澹穑薄澹溃保矗迹啊濉濉濉澹欤椋睿濉澹穑常穑�
　　
　　″＠３．２＜１３５″″＠１２．８＜０″″″
　　
　　″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……
　　
　�。猓�ａｔｌ．ｌｓｐ程序及注解
　　
　　為１１-４４格規定功能,即每一格對應一個子函數
　　
　　主程序ＢＧＢＺ結束
　　
　　定義ａｂｇ１子函數
　　
　　標高符號起點
　　
　　不接受空值
　　
　　標高值
　　
　　計算各點位置
　　
　　標高為０時加“±”
　　
　　畫標高符號
　　
　　寫標高值ｃｏｍｍａ
　　
　　
　　
　�。睿�
　　
　�。鳎瑁椋欤�；ｄｅｆｕｎ-ａｂｇ１ａ
　　
　�。猓纾病�ａｂｇ１５子函數省略
　　
　�。ǎ洌澹妫酰睿茫海裕蹋ǎ�
　　
　�。ǎ螅澹簦瘢幔簦欤欤椋螅簦睿椋欤簦欤螅欤洹澹幔簦欤帷澹簦欤螅欤洌睢澹薄澹鳎瑁椋欤保簦�
　　
　�。ǎ螅澹簦瘢簦欤穑幔簦琛澹�ｃａｄ／ａｔｌ″）
　　
　�。ǎ穑颍铮恚簦稹澹埽罱o排水圖例程序
　　—ＢＥＲＩＳ″）
　　
　�。ǎ鳎瑁椋欤澹鳎瑁椋欤�
　　
　�。ǎ悖铮恚恚幔睿洹澹觯螅欤椋洌濉澹ǎ螅簦颍悖幔簦簦欤穑幔簦琛澹幔簦臁澹簦欤螅欤洌睿�）
　　
　�。ǎ椋睿椋簦纾澹簦保�
　　
　�。ǎ螅澹簦瘢穑穑ǎ纾澹簦穑铮椋睿簟澹埽钫堖B續點取圖例,并點取〈確定〉″））
　　
　�。ǎ螅澹簦瘢瑁ǎ纾澹簦觯幔颉澹觯椋澹鳎螅椋�ｅ″））
　　
　�。ǎ螅澹簦瘢穑悖澹睿ǎ纾澹簦觯幔颉澹觯椋澹鳎悖簦颉澹�）
　　
　　圖例繪制主程序
　　
　　賦初始值
　　
　　圖例圖塊路徑
　　
　　提示
　　
　　當ｗｈｉｌ１為真執行下面程序調出幻燈（幻燈名由三個變量連接而成,圖２為第一頁）
　　
　　不接受空值
　　
　　以下內容同標高標注程序
　　
　�。ǎ螅澹簦瘢穑恚幔�（ｇｅｔｖａｒ″ｖｓｍａｘ″））
　　
　�。ǎ螅澹簦瘢穑恚椋睿ǎ纾澹簦觯幔颉澹觯螅恚椋睢澹�）
　　
　�。ǎ螅澹簦瘢鳎�*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
　　
　�。�-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
　　
　�。ǎ螅澹簦瘢穑穑埃ǎ欤椋螅簦�-（ｃａｒｐｃｅｎ）（*ｗ０．４４））
　　
　�。�-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））
　　
　�。ǎ螅澹簦瘢穑穑保ǎ欤椋螅簦�+（ｃａｒｐｃｅｎ）（*ｗ０．４４））
　　
　�。�+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））
　　
　�。ǎ螅澹簦瘢洌�（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））
　　
　�。ǎ螅澹簦瘢穑�（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））
　　
　�。ǎ螅澹簦瘢穑�０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））
　　
　�。ǎ椋妫ǎ迹穑�ｐｙ０）（ｄｑ２）（ｄｑ１））））
　　
　�。ǎ洌澹妫酰睿洌瘢保ǎ�（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））
　　
　�。ǎ螅澹簦瘢幔铮颍狻澹薄澹�
　　
　�。ǎ螅澹簦瘢幔铮颍狻澹病澹�）
　　
　�。ǎ螅澹簦瘢�ｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
　　
　�。ǎ螅澹簦瘢猓欤耄睿幔恚�
　　
　�。ǎ螅簦颍悖幔簟澹幔簦臁澹簦欤螅欤洌睿幔铮颍猓ǎ椋簦铮幔�ｈ））））
　　
　�。ǎ洌澹妫酰睿洌瘢玻ǎ�
　　
　�。ǎ螅澹簦瘢�ｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
　　
　�。ǎ悖铮睿洌ǎǎ剑�ｈ１１）（ｌａｓｔｓｌｄ））
　　
　�。ǎǎ剑�ｈ１２）（ｎｅｘｔｓ
　　
　　
　�。欤洌�）
　　
　�。ǎǎ剑�ｈ１３）（ｓｅｔｎｉｌ））
　　
　�。ǎǎ剑�ｈ１４）（ｓｅｔｏｋ））））
　　
　�。ǎ洌澹妫酰睿欤幔螅簦螅欤洌ǎ�）
　　
　�。ǎ洌澹妫酰睿睿澹�ｔｓｌｄ（））
　　
　�。ǎ洌澹妫酰睿螅澹簦睿椋欤ǎ�）
　　
　�。ǎ洌澹妫酰睿螅澹簦铮耄ǎ�）
　　
　　如點在上半部分運行ｄｑ１,否則運行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ圖例主程序結束定義ｄｑ１子函數
　　
　　點落在左面ａｏｒｂ為１
　　
　　點在右面ａｏｒｂ為２;ｉｆ
　　
　　計算縱向序號計算圖例圖塊名（由４部分連接組成）
　　
　�。洌瘢苯Y束
　　
　　定義ｄｑ２子函數
　　
　　計算橫向序號
　　
　　運行ｌａｓｔｓｌｄ子函數,向前翻頁
　　
　　運行ｎｅｘｔｓｌｄ子函數,向后翻頁
　　
　　運行ｓｅｔｎｉｌ子函數,賦空退出
　　
　　運行ｓｅｔｏｋ子函數,插入圖例
　　
　　定義ｌａｓｔｓｌｄ子函數,略
　　
　　定義ｎｅｘｔｓｌｄ子函數,略
　　
　　定義ｓｅｔｎｉｌ子函數,略
　　
　　定義ｓｉｔｏｋ子函數,略
　　
　　
　　

【給排水設計給排水ＣＡＤ軟件開發實例】相關文章：

建筑給排水設計與環境保護探討08-19

建筑給排水設計與環境保護探討08-19

排水專業求職信08-25

給排水實習報告7篇08-25

站外排水問題報告08-23

排水施工合同04-06

給排水工作總結05-28

排水畫大班美術教案08-26

精選給排水的實習報告三篇06-18

精選給排水實習報告4篇03-29