|
給排水設(shè)計給排水ＣＡＤ軟件開發(fā)實例
給排水設(shè)計給排水ＣＡＤ軟件開發(fā)實例 【摘要】本文介紹了用戶幻燈菜單及功能和開發(fā)方法,并給出了標(biāo)高標(biāo)注和圖例繪制程序的開發(fā)方法以及程序注解。
１用戶幻燈菜單簡介用戶幻燈菜單（下文簡稱幻燈菜單）是在ＡｕｔｏＣＡＤ平臺上開發(fā)的一種高效實用的用戶圖形界面,由幻燈和相應(yīng)的ＡｕｔｏＬＩＳＰ實用程序組成。其功能及用法類似于ＡｕｔｏＣＡＤ的圖標(biāo)菜單。調(diào)用時幻燈菜單屏幕上出現(xiàn)一幅幻燈,幻燈顯示不同圖形界面,由幻燈和相應(yīng)的ＡｕｔｏＣＡＤ實用程序組成。其功能及用法的功能區(qū)域,每個區(qū)域?qū)?yīng)相應(yīng)的功能,用鼠標(biāo)點取即可調(diào)用該功能。
幻燈菜單可以用于開發(fā)本部門使用的工具軟件或是商業(yè)化的ＣＡＤ軟件,可以大大提高開發(fā)效率以及設(shè)計繪圖速度。
下面以我院開發(fā)的標(biāo)高標(biāo)注程序為例介紹幻燈菜單的功能:在ｃｏｍｍａｎｄ:狀態(tài)下從下拉菜單中點取“標(biāo)高標(biāo)注１”后屏幕上出現(xiàn)如圖１所示幻燈,用鼠標(biāo)在某一標(biāo)高種類格中點擊后幻燈消失,恢復(fù)前一圖面,在提示行中提示“請輸入起點”,給點后又提示:“標(biāo)高值”,輸入數(shù)值后自動按選擇的種類畫好標(biāo)高符號并寫好標(biāo)高值;然后重復(fù)提示“請輸入起點”標(biāo)注下一個,回車則回到圖１幻燈重復(fù)使用,點ＥＸＩＴ退出。
２幻燈菜單的特點
幻燈菜單可以實現(xiàn)ＡｕｔｏＣＡＤ的圖標(biāo)菜單的各項功能,并且有如下優(yōu)點:
ａ．制作、修改效率高。制作圖標(biāo)菜單時,要實現(xiàn)的功能數(shù)與幻燈數(shù)及菜單項的數(shù)量相同。而制作一個幻燈菜單只需要作一個幻燈,幻燈數(shù)量大幅減少,修改也容易得多。
ｂ．使用效率高。為了提高軟件效率,盡量減少擊鍵次數(shù)是今后軟件的發(fā)展方向�；脽舨藛慰梢詫⒍喾N形式的選擇以圖形形式直觀地顯示出來,以供選擇。以標(biāo)高標(biāo)注為例,以前的方法是先問標(biāo)高符號形式,再問方向,而使用幻燈菜單只需點取一次即可。
ｃ．界面美觀,制作靈活多樣,使用方便。幻燈菜單在一幅幻燈中劃分的功能區(qū)數(shù)量不限,并且可以根據(jù)需要制作成方格、橫格、豎格、扇型格、圓環(huán)格等多種形式,甚至可以達到可編程序?qū)υ捒虻暮芏喙δ堋?nbsp;
ｄ．適用性強,移植方便�；脽舨藛芜m用于Ｒ９．０版以上的各種中、西文ＡｕｔｏＣＡＤ版本。使用幻燈菜單時,由于它包含在用ＡＤＳ或ＡｕｔｏＬＩＳＰ等語言編制的程序中,所以只要能運行程序即可調(diào)出幻燈菜單,版本升級時不必改變新的菜單文件。而圖標(biāo)菜單的菜單項必須逐條加入到新的菜單文件中。
ｅ．可以作成定型模塊重復(fù)使用,從而大大提高編程效率。
３幻燈菜單的制作
幻燈菜單的原理是:將ＡｕｔｏＣＡＤ繪圖區(qū)分為若干規(guī)則的圖形區(qū)域,每一區(qū)域可以對應(yīng)一組功能,在程序調(diào)用幻燈菜單時,要求用戶根據(jù)需要在某一圖形區(qū)域中選取一點,然后程序自動計算出該點所在的區(qū)域位置,從而調(diào)用所對應(yīng)的程序功能。
點的定位是幻燈菜單制作編程的關(guān)鍵所在,以矩形格幻燈菜單為例,其步驟是:
ａ．獲取下列ＡｕｔｏＣＡＤ系統(tǒng)變量:
ｖｉｅｗｓｉｚｅ-當(dāng)前繪圖區(qū)高,用繪圖單位計算;
ｖｉｅｗｃｔｒ-當(dāng)前繪圖區(qū)中心點坐標(biāo)值;
ｖｓｍａｘ、ｖｓｍｉｎ-虛擬屏幕的左下角及右上角點坐標(biāo)值,可以用來求繪圖區(qū)寬高比,從而求出繪圖區(qū)寬度。
ｂ．根據(jù)橫向和豎向分格數(shù),求出每格的寬和高。
ｃ．由點的坐標(biāo)值分別求出點所在格的橫向和豎向序號。
ｄ．橫向和豎向序號連接即可獲得該格的區(qū)域代碼。
后文將給出我院開發(fā)的標(biāo)高標(biāo)注和圖例繪制兩個實例,以下程序均在ＡｕｔｏＣＡＤＲ１０至１３各版本下順利運行,并已非常成熟。需要指出的是,為了簡化程序,突出重點,刪去了一些諸如容錯或裝飾性的語句,但不影響程序運行。
４實例一———標(biāo)高標(biāo)注程序
由程序ａｂｇ．ｌｓｐ和幻燈文件ａｃｄｌ．ｓｌｄ文件組成,使用說明已在前面敘述,標(biāo)題７ａ給出ａｂｇ．ｌｓｐ程序清單及注解
ａｂｇ．ｌｓｐ程序包括主程序ａｂｇ和１５個標(biāo)高標(biāo)注子函數(shù),子函數(shù)ａｂｇｌ至ａｂｇ１５類似,本文只列出ａｂｇｌ子函數(shù)程序。
５實例二———圖例繪制軟件本軟件由用戶在６頁幻燈菜單中連續(xù)選取圖例,給出一個插入圖例的左上角點后,程序自動將所選擇的圖例按順序逐項向下排列連續(xù)繪出。軟件由Ａｕ ｔｏＬＩＳＰ程序ａｔｌ．ｌｓｐ和６頁幻燈以及近百個圖塊組成�；脽粑募䴙椋幔簦欤薄幔簦欤叮螅欤�。圖塊名為ａｔｌａｂｃ．ｄｗｇ,ａｔｌ為前綴,ａ代表幻燈頁序號,為１～６;ｂ代表幻燈菜單左右代碼,左面為１,右面為２;ｃ代表幻燈菜單中上下序號,分別為１～８。
本軟件設(shè)計的核心思想是通過點的定位計算出的所對應(yīng)的圖例圖塊名,然后插入圖例,多重選擇由表處理語句來完成。本文中第７節(jié)的ｂ部分給出ａｔｌ．ｌｓｐ中與幻燈菜單有關(guān)的程序清單及注解。后面還有幾個子函數(shù),由于篇幅有限本文不詳細(xì)列出程序,只做簡單介紹:
ｌａｓｔｓｌｄ子函數(shù)對幻燈名字符串進行運算,求出上一頁幻燈名;
ｎｅｘｔｓｌｄ子函數(shù)對幻燈名字符串進行運算,求出下一頁幻燈名;
ｓｅｔｎｉｌ子函數(shù)對各變量（必須包括ｗｈｉｌｌ）賦空值,并退出程序:
ｓｅｔｏｋ子函數(shù)對被選擇的圖例表進行處理,并逐項連續(xù)插入圖例。
６小結(jié)
ａ．標(biāo)高標(biāo)注程序是利用幻燈菜單調(diào)出相應(yīng)的標(biāo)高標(biāo)注子程序。
ｂ．圖例程序是利用幻燈菜單給圖例名稱賦值,然后運用字符串處理和表處理技術(shù)求得圖例名稱的列表,從而連續(xù)逐項插入被選中的圖例。
ｃ．圖例幻燈菜單分兩個大區(qū),上面是圖例區(qū),下面是幻燈菜單的操作區(qū),可見幻燈菜單能做成復(fù)雜高效的菜單。
７程序清單
ａ．ａｂｇ．ｌｓｐ程序及注解;
（ｄｅｆｕｎＣ：ＢＧＢＺ（）
（ｓｅｔｑｗｈｉｌ１ｔ）
（ｗｈｉｌｅｗｈｉｌ１）
（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″″ａｃｄ１″）
（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″請點取標(biāo)高種類″））
（ｐｒｏｇｎ
（ｒｅｄｒａｗ）
（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）
ｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″）
ｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″）
ｐｍｉｍ（ｇｅｔｖａｒ″ｖｓｍｉｎ″）虛擬屏幕左下角）
（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
（-（ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（／ｗ３））
（-（ｃａｄｒｐｃｅｎ（
／ｈ３））））
（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（／ｗ３））
（+（ｃａｄｒｐｃｅｎ）（／ｈ３））））
（ｓｅｔｑｄｘ（／ｗ６）ｄｙ（／ｈ６））
（ｓｅｔｑｌｘ（ｃａｒｐｐ）ｌｙ（ｃａｄｒｐｐ））
（ｓｅｔｑｐｌｘ（ｃａｒｐｐ０）ｐｌｙ（ｃａｄｒｐｐ０））
（ｓｅｔｐｌｘ（-ｌｘｐｌｘ）ｌｙ（-ｌｙｐｌｙ））
（ｓｅｔｐｘ（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
（ｓｅｔｑｙ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
（ｓｅｔｑｎｎ（ｓｔｒｃａｔ（ｉｔｏａｘ）（ｉｔｏａｙ）））
（ｃｏｎｄ（（＝ｎｎ１４）（ａｂｇ１））
（（＝ｎｎ１３）（ａｂｇ２））
（（＝ｎｎ１２）（ａｂｇ３））
（（＝ｎｎ１１）（ａｂｇ４））
主程序ＢＧＢＺ開始
設(shè)ｗｈｉｌ１值為真
當(dāng)ｗｈｉｌ１為真時執(zhí)行下列程序
顯示幻燈在幻燈菜單中選點
重畫恢復(fù)原畫面
繪圖區(qū)高
繪圖區(qū)中心點
虛擬屏幕右上角
共獲取系統(tǒng)變量
求繪圖區(qū)寬
有效區(qū)左下角,（有效區(qū)寬和高占繪圖寬和高的三分之二）
有效區(qū)右上角
每格寬和高
ＰＰ點的Ｘ和Ｙ坐標(biāo)
左下角點坐標(biāo)
ＰＰ點和ＰＰ０點Ｘ和Ｙ坐標(biāo)差;
Ｘ方向格序號
Ｙ方向格序號
將Ｘ和Ｙ連接
多項選擇條件函數(shù)
ｎｎ＝１３時運行ａｂｅ２子函數(shù)
（（＝ｎｎ２４）（ａｂｇ５））
（（＝ｎｎ２３）（ａｂｇ６））
（（＝ｎｎ２２）（ａｂｇ７））
（（＝ｎｎ２１）（ａｂｇ８））
（（＝ｎｎ３４）（ａｂｇ９））
（（＝ｎｎ３３）（ａｂｇ１０））
（（＝ｎｎ３２）（ａｂｇ１１））
（（＝ｎｎ３１）（ａｂｇ１２））
（（＝ｎｎ４４）（ａｂｇ１３））
（（＝ｎｎ４３）（ａｂｇ１４））
（（＝ｎｎ４２）（ａｂｇ１５））
（（＝ｎｎ４１）（ｓｅｔｑｗｈｉｌ１ｎｉｌ））
）;ｃｏｎｄ）
）））;ｐｒｏｇｎ；ｉｆ；ｗｈｉｌｅ；ｄｅｆｕｎ
（ｄｅｆｕｎａｂｇ１（）
（ｗｈｉｌｅ（ｓｅｔｑｐ１（ｇｅｔｐｏｉｎｔ″輸入起點″））
（ｉｎｉｔｇｅｔ１）
（ｓｅｔｑｓ１（ｇｅｔｒｅａｌ″標(biāo)高值:″））
（ｓｅｔｑｐ２（ｐｏｌａｒｐ１０８））
（ｓｅｔｑｐ３（ｐｏｌａｒｐ２（／ｐｉ４）３．２））
（ｓｅｔｑｐ４（ｌｉｓｔ（+（ｃａｒｐ２）０）（+（ｃａｄｒｐ２）２．９）））
（ｉｆ（＝ｓ１０）（ｓｅｔｐｓ２″%%ｐ０．００″）（ｓｅｔｑｓ２（ｒｔｏｓｓ１２２）））
（ｃｏｍｍａｎｄ″ｌｉｎｅ″ｐ１″＠１４＜０″″″″ｌｉｎｅ″ｐ３ｐ２
″＠３．２＜１３５″″＠１２．８＜０″″″
″ｔｅｘｔ″ｐ４２．８０ｓ２）））;……
ｂ．ａｔｌ．ｌｓｐ程序及注解
為１１-４４格規(guī)定功能,即每一格對應(yīng)一個子函數(shù)
主程序ＢＧＢＺ結(jié)束
定義ａｂｇ１子函數(shù)
標(biāo)高符號起點
不接受空值
標(biāo)高值
計算各點位置
標(biāo)高為０時加“±”
畫標(biāo)高符號
寫標(biāo)高值ｃｏｍｍａｎｄ
ｗｈｉｌｅ；ｄｅｆｕｎ-ａｂｇ１ａ
ｂｇ２～ａｂｇ１５子函數(shù)省略
（ｄｅｆｕｎＣ：ＴＬ（）
（ｓｅｔｑａｔｌｌｉｓｔｎｉｌｔｌｓｌｄ″ａｔｌａ″ｔｌｓｌｄｎ″１″ｗｈｉｌ１ｔ）
（ｓｅｔｑｔｌｐａｔｈ″／ｃａｄ／ａｔｌ″）
（ｐｒｏｍｔｐ″＼ｎ給排水圖例程序
—ＢＥＲＩＳ″）
（ｗｈｉｌｅｗｈｉｌ１
（ｃｏｍｍａｎｄ″ｖｓｌｉｄｅ″（ｓｔｒｃａｔｔｌｐａｔｈ″ａｔｌ″ｔｌｓｌｄｎ））
（ｉｎｉｔｇｅｔ１）
（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″＼ｎ請連續(xù)點取圖例,并點取〈確定〉″））
（ｓｅｔｑｈ（ｇｅｔｖａｒ″ｖｉｅｗｓｉｚｅ″））
（ｓｅｔｑｐｃｅｎ（ｇｅｔｖａｒ″ｖｉｅｗｃｔｒ″））
圖例繪制主程序
賦初始值
圖例圖塊路徑
提示
當(dāng)ｗｈｉｌ１為真執(zhí)行下面程序調(diào)出幻燈（幻燈名由三個變量連接而成,圖２為第一頁）
不接受空值
以下內(nèi)容同標(biāo)高標(biāo)注程序
（ｓｅｔｑｐｍａｘ（ｇｅｔｖａｒ″ｖｓｍａｘ″））
（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））
（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））
（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））
（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））
（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））
（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））
（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））
（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））
（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））
（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））
（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））
（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））
（ｓｅｔｑａｏｒｂ″１″）
（ｓｅｔｑａｏｒｂ″２″））
（ｓｅｔｑｘｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））
（ｓｅｔｑｂｌｋｎａｍｅ
（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））
（ｄｅｆｕｎｄｑ２（）
（ｓｅｔｑｘｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））
（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））
（（＝ｘｈ１２）（ｎｅｘｔｓ
ｌｄ））
（（＝ｘｈ１３）（ｓｅｔｎｉｌ））
（（＝ｘｈ１４）（ｓｅｔｏｋ））））
（ｄｅｆｕｎｌａｓｔｓｌｄ（））
（ｄｅｆｕｎｎｅｘｔｓｌｄ（））
（ｄｅｆｕｎｓｅｔｎｉｌ（））
（ｄｅｆｕｎｓｅｔｏｋ（））
如點在上半部分運行ｄｑ１,否則運行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ圖例主程序結(jié)束定義ｄｑ１子函數(shù)
點落在左面ａｏｒｂ為１
點在右面ａｏｒｂ為２;ｉｆ
計算縱向序號計算圖例圖塊名（由４部分連接組成）
ｄｑ１結(jié)束
定義ｄｑ２子函數(shù)
計算橫向序號
運行ｌａｓｔｓｌｄ子函數(shù),向前翻頁
運行ｎｅｘｔｓｌｄ子函數(shù),向后翻頁
運行ｓｅｔｎｉｌ子函數(shù),賦空退出
運行ｓｅｔｏｋ子函數(shù),插入圖例
定義ｌａｓｔｓｌｄ子函數(shù),略
定義ｎｅｘｔｓｌｄ子函數(shù),略
定義ｓｅｔｎｉｌ子函數(shù),略
定義ｓｉｔｏｋ子函數(shù),略
|