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

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

幻燈菜單可以用于開發本部門使用的工具軟件或是商業化的ＣＡＤ軟件,可以大大提高開發效率以及設計繪圖速度。  

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

２幻燈菜單的特點  

幻燈菜單可以實現ＡｕｔｏＣＡＤ的圖標菜單的各項功能,并且有如下優點:  

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

ｂ．使用效率高。為了提高軟件效率,盡量減少擊鍵次數是今后軟件的發展方向。幻燈菜單可以將多種形式的選擇以圖形形式直觀地顯示出來,以供選擇。以標高標注為例,以前的方法是先問標高符號形式,再問方向,而使用幻燈菜單只需點取一次即可。  

ｃ．界面美觀,制作靈活多樣,使用方便。幻燈菜單在一幅幻燈中劃分的功能區數量不限,并且可以根據需要制作成方格、橫格、豎格、扇型格、圓環格等多種形式,甚至可以達到可編程序對話框的很多功能。  

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

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

３幻燈菜單的制作  

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

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

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

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

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

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

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

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

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

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

４實例一———標高標注程序  

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

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

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

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

ｌａｓｔｓｌｄ子函數對幻燈名字符串進行運算,求出上一頁幻燈名;  

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

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

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

６小結  

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

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

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

７程序清單  

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

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

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

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

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

（ｉｆ（ｓｅｔｑｐｐ（ｇｅｔｐｏｉｎｔ″請點取標高種類″））  

（ｐｒｏｇｎ  

（ｒｅｄｒａｗ）  

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

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

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

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

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

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

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

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

／ｈ３））））  

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

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

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

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

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

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

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

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

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

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

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

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

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

主程序ＢＧＢＺ開始  

設ｗｈｉｌ１值為真  

當ｗｈｉｌ１為真時執行下列程序  

顯示幻燈在幻燈菜單中選點  

重畫恢復原畫面  

繪圖區高  

繪圖區中心點  

虛擬屏幕右上角  

共獲取系統變量  

求繪圖區寬  

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

有效區右上角  

每格寬和高  

ＰＰ點的Ｘ和Ｙ坐標  

左下角點坐標  

ＰＰ點和ＰＰ０點Ｘ和Ｙ坐標差;  

Ｘ方向格序號  

Ｙ方向格序號  

將Ｘ和Ｙ連接  

多項選擇條件函數  

ｎｎ＝１３時運行ａｂｅ２子函數  

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

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

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

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

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

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

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

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

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

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

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

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

）;ｃｏｎｄ）  

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

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

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

（ｉｎｉｔｇｅｔ１）  

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

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

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

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

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

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

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

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

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

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

主程序ＢＧＢＺ結束  

定義ａｂｇ１子函數  

標高符號起點  

不接受空值  

標高值  

計算各點位置  

標高為０時加“±”  

畫標高符號  

寫標高值ｃｏｍｍａｎｄ  

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

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

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

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

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

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

（ｗｈｉｌｅｗｈｉｌ１  

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

（ｉｎｉｔｇｅｔ１）  

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

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

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

圖例繪制主程序  

賦初始值  

圖例圖塊路徑  

提示  

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

不接受空值  

以下內容同標高標注程序  

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

（ｄｅｆｕｎｄｑ２（）  

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

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

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

   
ｌｄ））  

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

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

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

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

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

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

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

點落在左面ａｏｒｂ為１  

點在右面ａｏｒｂ為２;ｉｆ  

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

ｄｑ１結束  

定義ｄｑ２子函數  

計算橫向序號  

運行ｌａｓｔｓｌｄ子函數,向前翻頁  

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

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

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

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

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

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

定義ｓｉｔｏｋ子函數,略