天天被操天天被操综合网,亚洲黄色一区二区三区性色,国产成人精品日本亚洲11,欧美zozo另类特级,www.黄片视频在线播放,啪啪网站永久免费看,特别一级a免费大片视频网站

現(xiàn)在位置:范文先生網(wǎng)>理工論文>石油能源論文>給排水設(shè)計(jì)給排水CAD軟件開發(fā)實(shí)例

給排水設(shè)計(jì)給排水CAD軟件開發(fā)實(shí)例

時(shí)間:2022-08-06 10:19:54 石油能源論文 我要投稿
  • 相關(guān)推薦

給排水設(shè)計(jì)給排水CAD軟件開發(fā)實(shí)例

【摘要】本文介紹了用戶幻燈菜單及功能和開發(fā)方法,并給出了標(biāo)高標(biāo)注和圖例繪制程序的開發(fā)方法以及程序注解。
  
 �。庇脩艋脽舨藛魏�(jiǎn)介用戶幻燈菜單(下文簡(jiǎn)稱幻燈菜單)是在AutoCAD平臺(tái)上開發(fā)的一種高效實(shí)用的用戶圖形界面,由幻燈和相應(yīng)的AutoLISP實(shí)用程序組成。其功能及用法類似于AutoCAD的圖標(biāo)菜單。調(diào)用時(shí)幻燈菜單屏幕上出現(xiàn)一幅幻燈,幻燈顯示不同圖形界面,由幻燈和相應(yīng)的AutoCAD實(shí)用程序組成。其功能及用法的功能區(qū)域,每個(gè)區(qū)域?qū)?yīng)相應(yīng)的功能,用鼠標(biāo)點(diǎn)取即可調(diào)用該功能。
  
  幻燈菜單可以用于開發(fā)本部門使用的工具軟件或是商業(yè)化的CAD軟件,可以大大提高開發(fā)效率以及設(shè)計(jì)繪圖速度。
  
  下面以我院開發(fā)的標(biāo)高標(biāo)注程序?yàn)槔榻B幻燈菜單的功能:在command:狀態(tài)下從下拉菜單中點(diǎn)取“標(biāo)高標(biāo)注1”后屏幕上出現(xiàn)如圖1所示幻燈,用鼠標(biāo)在某一標(biāo)高種類格中點(diǎn)擊后幻燈消失,恢復(fù)前一圖面,在提示行中提示“請(qǐng)輸入起點(diǎn)”,給點(diǎn)后又提示:“標(biāo)高值”,輸入數(shù)值后自動(dòng)按選擇的種類畫好標(biāo)高符號(hào)并寫好標(biāo)高值;然后重復(fù)提示“請(qǐng)輸入起點(diǎn)”標(biāo)注下一個(gè),回車則回到圖1幻燈重復(fù)使用,點(diǎn)EXIT退出。
  
  2幻燈菜單的特點(diǎn)
  
  幻燈菜單可以實(shí)現(xiàn)AutoCAD的圖標(biāo)菜單的各項(xiàng)功能,并且有如下優(yōu)點(diǎn):
  
 �。幔谱�、修改效率高。制作圖標(biāo)菜單時(shí),要實(shí)現(xiàn)的功能數(shù)與幻燈數(shù)及菜單項(xiàng)的數(shù)量相同。而制作一個(gè)幻燈菜單只需要作一個(gè)幻燈,幻燈數(shù)量大幅減少,修改也容易得多。
  
  b.使用效率高。為了提高軟件效率,盡量減少擊鍵次數(shù)是今后軟件的發(fā)展方向。幻燈菜單可以將多種形式的選擇以圖形形式直觀地顯示出來,以供選擇。以標(biāo)高標(biāo)注為例,以前的方法是先問標(biāo)高符號(hào)形式,再問方向,而使用幻燈菜單只需點(diǎn)取一次即可。
  
 �。悖缑婷烙^,制作靈活多樣,使用方便�;脽舨藛卧谝环脽糁袆澐值墓δ軈^(qū)數(shù)量不限,并且可以根據(jù)需要制作成方格、橫格、豎格、扇型格、圓環(huán)格等多種形式,甚至可以達(dá)到可編程序?qū)υ捒虻暮芏喙δ堋?br />  
 �。洌m用性強(qiáng),移植方便。幻燈菜單適用于R9.0版以上的各種中、西文AutoCAD版本。使用幻燈菜單時(shí),由于它包含在用ADS或AutoLISP等語言編制的程序中,所以只要能運(yùn)行程序即可調(diào)出幻燈菜單,版本升級(jí)時(shí)不必改變新的菜單文件。而圖標(biāo)菜單的菜單項(xiàng)必須逐條加入到新的菜單文件中。
  
 �。澹梢宰鞒啥ㄐ湍K重復(fù)使用,從而大大提高編程效率。
  
 �。郴脽舨藛蔚闹谱�
  
  幻燈菜單的原理是:將AutoCAD繪圖區(qū)分為若干規(guī)則的圖形區(qū)域,每一區(qū)域可以對(duì)應(yīng)一組功能,在程序調(diào)用幻燈菜單時(shí),要求用戶根據(jù)需要在某一圖形區(qū)域中選取一點(diǎn),然后程序自動(dòng)計(jì)算出該點(diǎn)所在的區(qū)域位置,從而調(diào)用所對(duì)應(yīng)的程序功能。
  
  點(diǎn)的定位是幻燈菜單制作編程的關(guān)鍵所在,以矩形格幻燈菜單為例,其步驟是:
  
 �。幔@取下列AutoCAD系統(tǒng)變量:
  
 �。觯椋澹鳎螅椋�-當(dāng)前繪圖區(qū)高,用繪圖單位計(jì)算;
  
 �。觯椋澹鳎悖簦�-當(dāng)前繪圖區(qū)中心點(diǎn)坐標(biāo)值;
  
  vsmax、vsmin-虛擬屏幕的左下角及右上角點(diǎn)坐標(biāo)值,可以用來求繪圖區(qū)寬高比,從而求出繪圖區(qū)寬度。
  
  b.根據(jù)橫向和豎向分格數(shù),求出每格的寬和高。
  
 �。悖牲c(diǎn)的坐標(biāo)值分別求出點(diǎn)所在格的橫向和豎向序號(hào)。
  
  d.橫向和豎向序號(hào)連接即可獲得該格的區(qū)域代碼。
  
  后文將給出我院開發(fā)的標(biāo)高標(biāo)注和圖例繪制兩個(gè)實(shí)例,以下程序均在AutoCADR10至13各版本下順利運(yùn)行,并已非常成熟。需要指出的是,為了簡(jiǎn)化程序,突出重點(diǎn),刪去了一些諸如容錯(cuò)或裝飾性的語句,但不影響程序運(yùn)行。
  
 �。磳�(shí)例一———標(biāo)高標(biāo)注程序
  
  由程序abg.lsp和幻燈文件acdl.sld文件組成,使用說明已在前面敘述,標(biāo)題7a給出abg.lsp程序清單及注解
  
 �。幔猓纾欤螅鸪绦虬ㄖ鞒绦颍幔猓绾停保祩€(gè)標(biāo)高標(biāo)注子函數(shù),子函數(shù)abgl至abg15類似,本文只列出abgl子函數(shù)程序。
  
 �。祵�(shí)例二———圖例繪制軟件本軟件由用戶在6頁幻燈菜單中連續(xù)選取圖例,給出一個(gè)插入圖例的左上角點(diǎn)后,程序自動(dòng)將所選擇的圖例按順序逐項(xiàng)向下排列連續(xù)繪出。軟件由AutoLISP程序atl.lsp和6頁幻燈以及近百個(gè)圖塊組成�;脽粑募䴙椋幔簦欤薄幔簦欤叮螅欤�。圖塊名為atlabc.dwg,atl為前綴,a代表幻燈頁序號(hào),為1~6;b代表幻燈菜單左右代碼,左面為1,右面為2;c代表幻燈菜單中上下序號(hào),分別為1~8。
  
  本軟件設(shè)計(jì)的核心思想是通過點(diǎn)的定位計(jì)算出的所對(duì)應(yīng)的圖例圖塊名,然后插入圖例,多重選擇由表處理語句來完成。本文中第7節(jié)的b部分給出atl.lsp中與幻燈菜單有關(guān)的程序清單及注解。后面還有幾個(gè)子函數(shù),由于篇幅有限本文不詳細(xì)列出程序,只做簡(jiǎn)單介紹:
  
 �。欤幔螅簦螅欤渥雍瘮�(shù)對(duì)幻燈名字符串進(jìn)行運(yùn)算,求出上一頁幻燈名;
  
 �。睿澹簦螅欤渥雍瘮�(shù)對(duì)幻燈名字符串進(jìn)行運(yùn)算,求出下一頁幻燈名;
  
 �。螅澹簦睿椋熳雍瘮�(shù)對(duì)各變量(必須包括whill)賦空值,并退出程序:
  
 �。螅澹簦铮胱雍瘮�(shù)對(duì)被選擇的圖例表進(jìn)行處理,并逐項(xiàng)連續(xù)插入圖例。
  
  6小結(jié)
  
 �。幔畼�(biāo)高標(biāo)注程序是利用幻燈菜單調(diào)出相應(yīng)的標(biāo)高標(biāo)注子程序。
  
  b.圖例程序是利用幻燈菜單給圖例名稱賦值,然后運(yùn)用字符串處理和表處理技術(shù)求得圖例名稱的列表,從而連續(xù)逐項(xiàng)插入被選中的圖例。
  
  c.圖例幻燈菜單分兩個(gè)大區(qū),上面是圖例區(qū),下面是幻燈菜單的操作區(qū),可見幻燈菜單能做成復(fù)雜高效的菜單。
  
  7程序清單
  
 �。幔幔猓纾欤螅鸪绦蚣白⒔�;
  
 �。ǎ洌澹妫酰睿茫海拢牵拢冢ǎ�
  
  (setqwhil1t)
  
  (whilewhil1)
  
  (
  
  
  
  command″vslide″″acd1″)
  
 �。ǎ椋妫ǎ螅澹簦瘢穑穑ǎ纾澹簦穑铮椋睿簟逭�(qǐng)點(diǎn)取標(biāo)高種類″))
  
  (progn
  
 �。ǎ颍澹洌颍幔鳎�
  
 �。ǎ螅澹簦瘢瑁ǎ纾澹簦觯幔颉澹觯椋澹鳎螅椋濉澹�
  
  pcen(getvar″viewsize″)
  
 �。穑恚幔ǎ纾澹簦觯幔颉澹觯螅恚幔澹�
  
 �。穑恚椋恚ǎ纾澹簦觯幔颉澹觯螅恚椋睢澹┨摂M屏幕左下角)
  
 �。ǎ螅澹簦瘢鳎�*(/(-(carpmax)(carpmin))
  
 �。�-(cadrpmax)(cadrpmin)))h))
  
 �。ǎ螅澹簦瘢穑穑埃ǎ欤椋螅簦�-(carpcen)(/w3))
  
 �。�-(cadrpcen(
  
 �。瑁常�
  
 �。ǎ螅澹簦瘢穑穑保ǎ欤椋螅簦�+(carpcen)(/w3))
  
  (+(cadrpcen)(/h3))))
  
 �。ǎ螅澹簦瘢洌ǎ鳎叮洌ǎ瑁叮�
  
 �。ǎ螅澹簦瘢欤ǎ悖幔颍穑穑欤ǎ悖幔洌颍穑穑�
  
 �。ǎ螅澹簦瘢穑欤ǎ悖幔颍穑穑埃穑欤ǎ悖幔洌颍穑穑埃�
  
 �。ǎ螅澹簦穑欤�-lxplx)ly(-lyply))
  
 �。ǎ螅澹簦穑ǎ妫椋ǎ�+(/(-pxpx0)dx))))
  
 �。ǎ螅澹簦瘢ǎ妫椋ǎ�+(/(-pypy0)dy))))
  
 �。ǎ螅澹簦瘢睿睿ǎ螅簦颍悖幔簦ǎ椋簦铮幔ǎ椋簦铮幔�
  
 �。ǎ悖铮睿洌ǎǎ剑睿睿保矗ǎ幔猓纾保�
  
 �。ǎǎ剑睿睿保常ǎ幔猓纾玻�
  
 �。ǎǎ剑睿睿保玻ǎ幔猓纾常�
  
 �。ǎǎ剑睿睿保保ǎ幔猓纾矗�
  
  主程序BGBZ開始
  
  設(shè)whil1值為真
  
  當(dāng)whil1為真時(shí)執(zhí)行下列程序
  
  顯示幻燈在幻燈菜單中選點(diǎn)
  
  重畫恢復(fù)原畫面
  
  繪圖區(qū)高
  
  繪圖區(qū)中心點(diǎn)
  
  虛擬屏幕右上角
  
  共獲取系統(tǒng)變量
  
  求繪圖區(qū)寬
  
  有效區(qū)左下角,(有效區(qū)寬和高占繪圖寬和高的三分之二)
  
  有效區(qū)右上角
  
  每格寬和高
  
 �。校悬c(diǎn)的X和Y坐標(biāo)
  
  左下角點(diǎn)坐標(biāo)
  
  PP點(diǎn)和PP0點(diǎn)X和Y坐標(biāo)差;
  
 �。胤较蚋裥蛱�(hào)
  
 �。俜较蚋裥蛱�(hào)
  
  將X和Y連接
  
  多項(xiàng)選擇條件函數(shù)
  
 �。睿睿剑保硶r(shí)運(yùn)行abe2子函數(shù)
  
 �。ǎǎ剑睿睿玻矗ǎ幔猓纾担�
  
 �。ǎǎ剑睿睿玻常ǎ幔猓纾叮�
  
 �。ǎǎ剑睿睿玻玻ǎ幔猓纾罚�
  
 �。ǎǎ剑睿睿玻保ǎ幔猓纾福�
  
 �。ǎǎ剑睿睿常矗ǎ幔猓纾梗�
  
  ((=nn33)(abg10))
  
 �。ǎǎ剑睿睿常玻ǎ幔猓纾保保�
  
  ((=nn31)(abg12))
  
 �。ǎǎ剑睿睿矗矗ǎ幔猓纾保常�
  
 �。ǎǎ剑睿睿矗常ǎ幔猓纾保矗�
  
 �。ǎǎ剑睿睿矗玻ǎ幔猓纾保担�
  
 �。ǎǎ剑睿睿矗保ǎ螅澹簦瘢鳎瑁椋欤保睿椋欤�
  
 �。�;cond)
  
 �。�;progn;if;while;defun
  
 �。ǎ洌澹妫酰睿幔猓纾保ǎ�
  
 �。ǎ鳎瑁椋欤澹ǎ螅澹簦瘢穑保ǎ纾澹簦穑铮椋睿簟遢斎肫瘘c(diǎn)″))
  
 �。ǎ椋睿椋簦纾澹簦保�
  
 �。ǎ螅澹簦瘢螅保ǎ纾澹簦颍澹幔臁鍢�(biāo)高值:″))
  
 �。ǎ螅澹簦瘢穑玻ǎ穑铮欤幔颍穑保埃福�
  
  (setqp3(polarp2(/pi4)3.2))
  
 �。ǎ螅澹簦瘢穑矗ǎ欤椋螅簦�+(carp2)0)(+(cadrp2)2.9)))
  
 �。ǎ椋妫ǎ剑螅保埃ǎ螅澹簦穑螅病�%%p0.00″)(setqs2(rtoss122)))
  
 �。ǎ悖铮恚恚幔睿洹澹欤椋睿濉澹穑薄澹溃保矗迹啊濉濉濉澹欤椋睿濉澹穑常穑�
  
  ″@3.2<135″″@12.8<0″″″
  
  ″text″p42.80s2)));……
  
  b.atl.lsp程序及注解
  
  為11-44格規(guī)定功能,即每一格對(duì)應(yīng)一個(gè)子函數(shù)
  
  主程序BGBZ結(jié)束
  
  定義abg1子函數(shù)
  
  標(biāo)高符號(hào)起點(diǎn)
  
  不接受空值
  
  標(biāo)高值
  
  計(jì)算各點(diǎn)位置
  
  標(biāo)高為0時(shí)加“±”
  
  畫標(biāo)高符號(hào)
  
  寫標(biāo)高值comma
  
  
  
 �。睿�
  
 �。鳎瑁椋欤澹唬洌澹妫酰�-abg1a
  
 �。猓纾病幔猓纾保底雍瘮�(shù)省略
  
 �。ǎ洌澹妫酰睿茫海裕蹋ǎ�
  
 �。ǎ螅澹簦瘢幔簦欤欤椋螅簦睿椋欤簦欤螅欤洹澹幔簦欤帷澹簦欤螅欤洌睢澹薄澹鳎瑁椋欤保簦�
  
  (setqtlpath″/cad/atl″)
  
 �。ǎ穑颍铮恚簦稹澹埽罱o排水圖例程序
  —BERIS″)
  
  (whilewhil1
  
 �。ǎ悖铮恚恚幔睿洹澹觯螅欤椋洌濉澹ǎ螅簦颍悖幔簦簦欤穑幔簦琛澹幔簦臁澹簦欤螅欤洌睿�
  
 �。ǎ椋睿椋簦纾澹簦保�
  
  (setqpp(getpoint″\n請(qǐng)連續(xù)點(diǎn)取圖例,并點(diǎn)取〈確定〉″))
  
  (setqh(getvar″viewsize″))
  
 �。ǎ螅澹簦瘢穑悖澹睿ǎ纾澹簦觯幔颉澹觯椋澹鳎悖簦颉澹�
  
  圖例繪制主程序
  
  賦初始值
  
  圖例圖塊路徑
  
  提示
  
  當(dāng)whil1為真執(zhí)行下面程序調(diào)出幻燈(幻燈名由三個(gè)變量連接而成,圖2為第一頁)
  
  不接受空值
  
  以下內(nèi)容同標(biāo)高標(biāo)注程序
  
  (setqpmax(getvar″vsmax″))
  
 �。ǎ螅澹簦瘢穑恚椋睿ǎ纾澹簦觯幔颉澹觯螅恚椋睢澹�
  
  (setqw(*(/(-(carpmax)(carpmin))
  
 �。�-cadrpmax)(cadrpmin)))h))
  
 �。ǎ螅澹簦瘢穑穑埃ǎ欤椋螅簦�-(carpcen)(*w0.44))
  
 �。�-(cadrpcen)(*h0.26))))
  
 �。ǎ螅澹簦瘢穑穑保ǎ欤椋螅簦�+(carpcen)(*w0.44))
  
 �。�+(cadrpcen)(*h0.44))))
  
  (setqdx(/(*w0.88)4)dy(/(*h0.7)8))
  
 �。ǎ螅澹簦瘢穑ǎ悖幔颍穑穑穑ǎ悖幔洌颍穑穑�
  
  (setqpx0(carpp0)py0(cadrpp0))
  
 �。ǎ椋妫ǎ迹穑穑埃ǎ洌瘢玻ǎ洌瘢保�
  
  (defundq1()(if(<px(carpcen))
  
 �。ǎ螅澹簦瘢幔铮颍狻澹薄澹�
  
  (setqaorb″2″))
  
 �。ǎ螅澹簦瘢瑁ǎ妫椋ǎ�+(/(-pypy0)dy))))
  
  (setqblkname
  
 �。ǎ螅簦颍悖幔簟澹幔簦臁澹簦欤螅欤洌睿幔铮颍猓ǎ椋簦铮幔瑁�
  
  (defundq2()
  
 �。ǎ螅澹簦瘢瑁保ǎ妫椋ǎ�+(/(-pxpx0)dx))))
  
 �。ǎ悖铮睿洌ǎǎ剑瑁保保ǎ欤幔螅簦螅欤洌�
  
 �。ǎǎ剑瑁保玻ǎ睿澹簦�
  
  
  ld))
  
 �。ǎǎ剑瑁保常ǎ螅澹簦睿椋欤�
  
 �。ǎǎ剑瑁保矗ǎ螅澹簦铮耄�
  
 �。ǎ洌澹妫酰睿欤幔螅簦螅欤洌ǎ�
  
 �。ǎ洌澹妫酰睿睿澹簦螅欤洌ǎ�
  
  (defunsetnil())
  
 �。ǎ洌澹妫酰睿螅澹簦铮耄ǎ�
  
  如點(diǎn)在上半部分運(yùn)行dq1,否則運(yùn)行dq2while;defun圖例主程序結(jié)束定義dq1子函數(shù)
  
  點(diǎn)落在左面aorb為1
  
  點(diǎn)在右面aorb為2;if
  
  計(jì)算縱向序號(hào)計(jì)算圖例圖塊名(由4部分連接組成)
  
 �。洌瘢苯Y(jié)束
  
  定義dq2子函數(shù)
  
  計(jì)算橫向序號(hào)
  
  運(yùn)行lastsld子函數(shù),向前翻頁
  
  運(yùn)行nextsld子函數(shù),向后翻頁
  
  運(yùn)行setnil子函數(shù),賦空退出
  
  運(yùn)行setok子函數(shù),插入圖例
  
  定義lastsld子函數(shù),略
  
  定義nextsld子函數(shù),略
  
  定義setnil子函數(shù),略
  
  定義sitok子函數(shù),略
  
  
  
《.doc》
将本文的Word文档下载到电脑,方便收藏和打印
推荐度:
点击下载文档

【給排水設(shè)計(jì)給排水CAD軟件開發(fā)實(shí)例】相關(guān)文章:

建筑給排水設(shè)計(jì)與環(huán)境保護(hù)探討08-19

建筑給排水設(shè)計(jì)與環(huán)境保護(hù)探討08-19

排水專業(yè)求職信08-25

給排水實(shí)習(xí)報(bào)告7篇08-25

站外排水問題報(bào)告08-23

排水施工合同04-06

給排水工作總結(jié)05-28

排水畫大班美術(shù)教案08-26

精選給排水的實(shí)習(xí)報(bào)告三篇06-18

精選給排水實(shí)習(xí)報(bào)告4篇03-29

在线咨询

給排水設(shè)計(jì)給排水CAD軟件開發(fā)實(shí)例

【摘要】本文介紹了用戶幻燈菜單及功能和開發(fā)方法,并給出了標(biāo)高標(biāo)注和圖例繪制程序的開發(fā)方法以及程序注解。
  
 �。庇脩艋脽舨藛魏�(jiǎn)介用戶幻燈菜單(下文簡(jiǎn)稱幻燈菜單)是在AutoCAD平臺(tái)上開發(fā)的一種高效實(shí)用的用戶圖形界面,由幻燈和相應(yīng)的AutoLISP實(shí)用程序組成。其功能及用法類似于AutoCAD的圖標(biāo)菜單。調(diào)用時(shí)幻燈菜單屏幕上出現(xiàn)一幅幻燈,幻燈顯示不同圖形界面,由幻燈和相應(yīng)的AutoCAD實(shí)用程序組成。其功能及用法的功能區(qū)域,每個(gè)區(qū)域?qū)?yīng)相應(yīng)的功能,用鼠標(biāo)點(diǎn)取即可調(diào)用該功能。
  
  幻燈菜單可以用于開發(fā)本部門使用的工具軟件或是商業(yè)化的CAD軟件,可以大大提高開發(fā)效率以及設(shè)計(jì)繪圖速度。
  
  下面以我院開發(fā)的標(biāo)高標(biāo)注程序?yàn)槔榻B幻燈菜單的功能:在command:狀態(tài)下從下拉菜單中點(diǎn)取“標(biāo)高標(biāo)注1”后屏幕上出現(xiàn)如圖1所示幻燈,用鼠標(biāo)在某一標(biāo)高種類格中點(diǎn)擊后幻燈消失,恢復(fù)前一圖面,在提示行中提示“請(qǐng)輸入起點(diǎn)”,給點(diǎn)后又提示:“標(biāo)高值”,輸入數(shù)值后自動(dòng)按選擇的種類畫好標(biāo)高符號(hào)并寫好標(biāo)高值;然后重復(fù)提示“請(qǐng)輸入起點(diǎn)”標(biāo)注下一個(gè),回車則回到圖1幻燈重復(fù)使用,點(diǎn)EXIT退出。
  
  2幻燈菜單的特點(diǎn)
  
  幻燈菜單可以實(shí)現(xiàn)AutoCAD的圖標(biāo)菜單的各項(xiàng)功能,并且有如下優(yōu)點(diǎn):
  
 �。幔谱�、修改效率高。制作圖標(biāo)菜單時(shí),要實(shí)現(xiàn)的功能數(shù)與幻燈數(shù)及菜單項(xiàng)的數(shù)量相同。而制作一個(gè)幻燈菜單只需要作一個(gè)幻燈,幻燈數(shù)量大幅減少,修改也容易得多。
  
  b.使用效率高。為了提高軟件效率,盡量減少擊鍵次數(shù)是今后軟件的發(fā)展方向。幻燈菜單可以將多種形式的選擇以圖形形式直觀地顯示出來,以供選擇。以標(biāo)高標(biāo)注為例,以前的方法是先問標(biāo)高符號(hào)形式,再問方向,而使用幻燈菜單只需點(diǎn)取一次即可。
  
 �。悖缑婷烙^,制作靈活多樣,使用方便�;脽舨藛卧谝环脽糁袆澐值墓δ軈^(qū)數(shù)量不限,并且可以根據(jù)需要制作成方格、橫格、豎格、扇型格、圓環(huán)格等多種形式,甚至可以達(dá)到可編程序?qū)υ捒虻暮芏喙δ堋?br />  
 �。洌m用性強(qiáng),移植方便。幻燈菜單適用于R9.0版以上的各種中、西文AutoCAD版本。使用幻燈菜單時(shí),由于它包含在用ADS或AutoLISP等語言編制的程序中,所以只要能運(yùn)行程序即可調(diào)出幻燈菜單,版本升級(jí)時(shí)不必改變新的菜單文件。而圖標(biāo)菜單的菜單項(xiàng)必須逐條加入到新的菜單文件中。
  
 �。澹梢宰鞒啥ㄐ湍K重復(fù)使用,從而大大提高編程效率。
  
 �。郴脽舨藛蔚闹谱�
  
  幻燈菜單的原理是:將AutoCAD繪圖區(qū)分為若干規(guī)則的圖形區(qū)域,每一區(qū)域可以對(duì)應(yīng)一組功能,在程序調(diào)用幻燈菜單時(shí),要求用戶根據(jù)需要在某一圖形區(qū)域中選取一點(diǎn),然后程序自動(dòng)計(jì)算出該點(diǎn)所在的區(qū)域位置,從而調(diào)用所對(duì)應(yīng)的程序功能。
  
  點(diǎn)的定位是幻燈菜單制作編程的關(guān)鍵所在,以矩形格幻燈菜單為例,其步驟是:
  
 �。幔@取下列AutoCAD系統(tǒng)變量:
  
 �。觯椋澹鳎螅椋�-當(dāng)前繪圖區(qū)高,用繪圖單位計(jì)算;
  
 �。觯椋澹鳎悖簦�-當(dāng)前繪圖區(qū)中心點(diǎn)坐標(biāo)值;
  
  vsmax、vsmin-虛擬屏幕的左下角及右上角點(diǎn)坐標(biāo)值,可以用來求繪圖區(qū)寬高比,從而求出繪圖區(qū)寬度。
  
  b.根據(jù)橫向和豎向分格數(shù),求出每格的寬和高。
  
 �。悖牲c(diǎn)的坐標(biāo)值分別求出點(diǎn)所在格的橫向和豎向序號(hào)。
  
  d.橫向和豎向序號(hào)連接即可獲得該格的區(qū)域代碼。
  
  后文將給出我院開發(fā)的標(biāo)高標(biāo)注和圖例繪制兩個(gè)實(shí)例,以下程序均在AutoCADR10至13各版本下順利運(yùn)行,并已非常成熟。需要指出的是,為了簡(jiǎn)化程序,突出重點(diǎn),刪去了一些諸如容錯(cuò)或裝飾性的語句,但不影響程序運(yùn)行。
  
 �。磳�(shí)例一———標(biāo)高標(biāo)注程序
  
  由程序abg.lsp和幻燈文件acdl.sld文件組成,使用說明已在前面敘述,標(biāo)題7a給出abg.lsp程序清單及注解
  
 �。幔猓纾欤螅鸪绦虬ㄖ鞒绦颍幔猓绾停保祩€(gè)標(biāo)高標(biāo)注子函數(shù),子函數(shù)abgl至abg15類似,本文只列出abgl子函數(shù)程序。
  
 �。祵�(shí)例二———圖例繪制軟件本軟件由用戶在6頁幻燈菜單中連續(xù)選取圖例,給出一個(gè)插入圖例的左上角點(diǎn)后,程序自動(dòng)將所選擇的圖例按順序逐項(xiàng)向下排列連續(xù)繪出。軟件由AutoLISP程序atl.lsp和6頁幻燈以及近百個(gè)圖塊組成�;脽粑募䴙椋幔簦欤薄幔簦欤叮螅欤�。圖塊名為atlabc.dwg,atl為前綴,a代表幻燈頁序號(hào),為1~6;b代表幻燈菜單左右代碼,左面為1,右面為2;c代表幻燈菜單中上下序號(hào),分別為1~8。
  
  本軟件設(shè)計(jì)的核心思想是通過點(diǎn)的定位計(jì)算出的所對(duì)應(yīng)的圖例圖塊名,然后插入圖例,多重選擇由表處理語句來完成。本文中第7節(jié)的b部分給出atl.lsp中與幻燈菜單有關(guān)的程序清單及注解。后面還有幾個(gè)子函數(shù),由于篇幅有限本文不詳細(xì)列出程序,只做簡(jiǎn)單介紹:
  
 �。欤幔螅簦螅欤渥雍瘮�(shù)對(duì)幻燈名字符串進(jìn)行運(yùn)算,求出上一頁幻燈名;
  
 �。睿澹簦螅欤渥雍瘮�(shù)對(duì)幻燈名字符串進(jìn)行運(yùn)算,求出下一頁幻燈名;
  
 �。螅澹簦睿椋熳雍瘮�(shù)對(duì)各變量(必須包括whill)賦空值,并退出程序:
  
 �。螅澹簦铮胱雍瘮�(shù)對(duì)被選擇的圖例表進(jìn)行處理,并逐項(xiàng)連續(xù)插入圖例。
  
  6小結(jié)
  
 �。幔畼�(biāo)高標(biāo)注程序是利用幻燈菜單調(diào)出相應(yīng)的標(biāo)高標(biāo)注子程序。
  
  b.圖例程序是利用幻燈菜單給圖例名稱賦值,然后運(yùn)用字符串處理和表處理技術(shù)求得圖例名稱的列表,從而連續(xù)逐項(xiàng)插入被選中的圖例。
  
  c.圖例幻燈菜單分兩個(gè)大區(qū),上面是圖例區(qū),下面是幻燈菜單的操作區(qū),可見幻燈菜單能做成復(fù)雜高效的菜單。
  
  7程序清單
  
 �。幔幔猓纾欤螅鸪绦蚣白⒔�;
  
 �。ǎ洌澹妫酰睿茫海拢牵拢冢ǎ�
  
  (setqwhil1t)
  
  (whilewhil1)
  
  (
  
  
  
  command″vslide″″acd1″)
  
 �。ǎ椋妫ǎ螅澹簦瘢穑穑ǎ纾澹簦穑铮椋睿簟逭�(qǐng)點(diǎn)取標(biāo)高種類″))
  
  (progn
  
 �。ǎ颍澹洌颍幔鳎�
  
 �。ǎ螅澹簦瘢瑁ǎ纾澹簦觯幔颉澹觯椋澹鳎螅椋濉澹�
  
  pcen(getvar″viewsize″)
  
 �。穑恚幔ǎ纾澹簦觯幔颉澹觯螅恚幔澹�
  
 �。穑恚椋恚ǎ纾澹簦觯幔颉澹觯螅恚椋睢澹┨摂M屏幕左下角)
  
 �。ǎ螅澹簦瘢鳎�*(/(-(carpmax)(carpmin))
  
 �。�-(cadrpmax)(cadrpmin)))h))
  
 �。ǎ螅澹簦瘢穑穑埃ǎ欤椋螅簦�-(carpcen)(/w3))
  
 �。�-(cadrpcen(
  
 �。瑁常�
  
 �。ǎ螅澹簦瘢穑穑保ǎ欤椋螅簦�+(carpcen)(/w3))
  
  (+(cadrpcen)(/h3))))
  
 �。ǎ螅澹簦瘢洌ǎ鳎叮洌ǎ瑁叮�
  
 �。ǎ螅澹簦瘢欤ǎ悖幔颍穑穑欤ǎ悖幔洌颍穑穑�
  
 �。ǎ螅澹簦瘢穑欤ǎ悖幔颍穑穑埃穑欤ǎ悖幔洌颍穑穑埃�
  
 �。ǎ螅澹簦穑欤�-lxplx)ly(-lyply))
  
 �。ǎ螅澹簦穑ǎ妫椋ǎ�+(/(-pxpx0)dx))))
  
 �。ǎ螅澹簦瘢ǎ妫椋ǎ�+(/(-pypy0)dy))))
  
 �。ǎ螅澹簦瘢睿睿ǎ螅簦颍悖幔簦ǎ椋簦铮幔ǎ椋簦铮幔�
  
 �。ǎ悖铮睿洌ǎǎ剑睿睿保矗ǎ幔猓纾保�
  
 �。ǎǎ剑睿睿保常ǎ幔猓纾玻�
  
 �。ǎǎ剑睿睿保玻ǎ幔猓纾常�
  
 �。ǎǎ剑睿睿保保ǎ幔猓纾矗�
  
  主程序BGBZ開始
  
  設(shè)whil1值為真
  
  當(dāng)whil1為真時(shí)執(zhí)行下列程序
  
  顯示幻燈在幻燈菜單中選點(diǎn)
  
  重畫恢復(fù)原畫面
  
  繪圖區(qū)高
  
  繪圖區(qū)中心點(diǎn)
  
  虛擬屏幕右上角
  
  共獲取系統(tǒng)變量
  
  求繪圖區(qū)寬
  
  有效區(qū)左下角,(有效區(qū)寬和高占繪圖寬和高的三分之二)
  
  有效區(qū)右上角
  
  每格寬和高
  
 �。校悬c(diǎn)的X和Y坐標(biāo)
  
  左下角點(diǎn)坐標(biāo)
  
  PP點(diǎn)和PP0點(diǎn)X和Y坐標(biāo)差;
  
 �。胤较蚋裥蛱�(hào)
  
 �。俜较蚋裥蛱�(hào)
  
  將X和Y連接
  
  多項(xiàng)選擇條件函數(shù)
  
 �。睿睿剑保硶r(shí)運(yùn)行abe2子函數(shù)
  
 �。ǎǎ剑睿睿玻矗ǎ幔猓纾担�
  
 �。ǎǎ剑睿睿玻常ǎ幔猓纾叮�
  
 �。ǎǎ剑睿睿玻玻ǎ幔猓纾罚�
  
 �。ǎǎ剑睿睿玻保ǎ幔猓纾福�
  
 �。ǎǎ剑睿睿常矗ǎ幔猓纾梗�
  
  ((=nn33)(abg10))
  
 �。ǎǎ剑睿睿常玻ǎ幔猓纾保保�
  
  ((=nn31)(abg12))
  
 �。ǎǎ剑睿睿矗矗ǎ幔猓纾保常�
  
 �。ǎǎ剑睿睿矗常ǎ幔猓纾保矗�
  
 �。ǎǎ剑睿睿矗玻ǎ幔猓纾保担�
  
 �。ǎǎ剑睿睿矗保ǎ螅澹簦瘢鳎瑁椋欤保睿椋欤�
  
 �。�;cond)
  
 �。�;progn;if;while;defun
  
 �。ǎ洌澹妫酰睿幔猓纾保ǎ�
  
 �。ǎ鳎瑁椋欤澹ǎ螅澹簦瘢穑保ǎ纾澹簦穑铮椋睿簟遢斎肫瘘c(diǎn)″))
  
 �。ǎ椋睿椋簦纾澹簦保�
  
 �。ǎ螅澹簦瘢螅保ǎ纾澹簦颍澹幔臁鍢�(biāo)高值:″))
  
 �。ǎ螅澹簦瘢穑玻ǎ穑铮欤幔颍穑保埃福�
  
  (setqp3(polarp2(/pi4)3.2))
  
 �。ǎ螅澹簦瘢穑矗ǎ欤椋螅簦�+(carp2)0)(+(cadrp2)2.9)))
  
 �。ǎ椋妫ǎ剑螅保埃ǎ螅澹簦穑螅病�%%p0.00″)(setqs2(rtoss122)))
  
 �。ǎ悖铮恚恚幔睿洹澹欤椋睿濉澹穑薄澹溃保矗迹啊濉濉濉澹欤椋睿濉澹穑常穑�
  
  ″@3.2<135″″@12.8<0″″″
  
  ″text″p42.80s2)));……
  
  b.atl.lsp程序及注解
  
  為11-44格規(guī)定功能,即每一格對(duì)應(yīng)一個(gè)子函數(shù)
  
  主程序BGBZ結(jié)束
  
  定義abg1子函數(shù)
  
  標(biāo)高符號(hào)起點(diǎn)
  
  不接受空值
  
  標(biāo)高值
  
  計(jì)算各點(diǎn)位置
  
  標(biāo)高為0時(shí)加“±”
  
  畫標(biāo)高符號(hào)
  
  寫標(biāo)高值comma
  
  
  
 �。睿�
  
 �。鳎瑁椋欤澹唬洌澹妫酰�-abg1a
  
 �。猓纾病幔猓纾保底雍瘮�(shù)省略
  
 �。ǎ洌澹妫酰睿茫海裕蹋ǎ�
  
 �。ǎ螅澹簦瘢幔簦欤欤椋螅簦睿椋欤簦欤螅欤洹澹幔簦欤帷澹簦欤螅欤洌睢澹薄澹鳎瑁椋欤保簦�
  
  (setqtlpath″/cad/atl″)
  
 �。ǎ穑颍铮恚簦稹澹埽罱o排水圖例程序
  —BERIS″)
  
  (whilewhil1
  
 �。ǎ悖铮恚恚幔睿洹澹觯螅欤椋洌濉澹ǎ螅簦颍悖幔簦簦欤穑幔簦琛澹幔簦臁澹簦欤螅欤洌睿�
  
 �。ǎ椋睿椋簦纾澹簦保�
  
  (setqpp(getpoint″\n請(qǐng)連續(xù)點(diǎn)取圖例,并點(diǎn)取〈確定〉″))
  
  (setqh(getvar″viewsize″))
  
 �。ǎ螅澹簦瘢穑悖澹睿ǎ纾澹簦觯幔颉澹觯椋澹鳎悖簦颉澹�
  
  圖例繪制主程序
  
  賦初始值
  
  圖例圖塊路徑
  
  提示
  
  當(dāng)whil1為真執(zhí)行下面程序調(diào)出幻燈(幻燈名由三個(gè)變量連接而成,圖2為第一頁)
  
  不接受空值
  
  以下內(nèi)容同標(biāo)高標(biāo)注程序
  
  (setqpmax(getvar″vsmax″))
  
 �。ǎ螅澹簦瘢穑恚椋睿ǎ纾澹簦觯幔颉澹觯螅恚椋睢澹�
  
  (setqw(*(/(-(carpmax)(carpmin))
  
 �。�-cadrpmax)(cadrpmin)))h))
  
 �。ǎ螅澹簦瘢穑穑埃ǎ欤椋螅簦�-(carpcen)(*w0.44))
  
 �。�-(cadrpcen)(*h0.26))))
  
 �。ǎ螅澹簦瘢穑穑保ǎ欤椋螅簦�+(carpcen)(*w0.44))
  
 �。�+(cadrpcen)(*h0.44))))
  
  (setqdx(/(*w0.88)4)dy(/(*h0.7)8))
  
 �。ǎ螅澹簦瘢穑ǎ悖幔颍穑穑穑ǎ悖幔洌颍穑穑�
  
  (setqpx0(carpp0)py0(cadrpp0))
  
 �。ǎ椋妫ǎ迹穑穑埃ǎ洌瘢玻ǎ洌瘢保�
  
  (defundq1()(if(<px(carpcen))
  
 �。ǎ螅澹簦瘢幔铮颍狻澹薄澹�
  
  (setqaorb″2″))
  
 �。ǎ螅澹簦瘢瑁ǎ妫椋ǎ�+(/(-pypy0)dy))))
  
  (setqblkname
  
 �。ǎ螅簦颍悖幔簟澹幔簦臁澹簦欤螅欤洌睿幔铮颍猓ǎ椋簦铮幔瑁�
  
  (defundq2()
  
 �。ǎ螅澹簦瘢瑁保ǎ妫椋ǎ�+(/(-pxpx0)dx))))
  
 �。ǎ悖铮睿洌ǎǎ剑瑁保保ǎ欤幔螅簦螅欤洌�
  
 �。ǎǎ剑瑁保玻ǎ睿澹簦�
  
  
  ld))
  
 �。ǎǎ剑瑁保常ǎ螅澹簦睿椋欤�
  
 �。ǎǎ剑瑁保矗ǎ螅澹簦铮耄�
  
 �。ǎ洌澹妫酰睿欤幔螅簦螅欤洌ǎ�
  
 �。ǎ洌澹妫酰睿睿澹簦螅欤洌ǎ�
  
  (defunsetnil())
  
 �。ǎ洌澹妫酰睿螅澹簦铮耄ǎ�
  
  如點(diǎn)在上半部分運(yùn)行dq1,否則運(yùn)行dq2while;defun圖例主程序結(jié)束定義dq1子函數(shù)
  
  點(diǎn)落在左面aorb為1
  
  點(diǎn)在右面aorb為2;if
  
  計(jì)算縱向序號(hào)計(jì)算圖例圖塊名(由4部分連接組成)
  
 �。洌瘢苯Y(jié)束
  
  定義dq2子函數(shù)
  
  計(jì)算橫向序號(hào)
  
  運(yùn)行lastsld子函數(shù),向前翻頁
  
  運(yùn)行nextsld子函數(shù),向后翻頁
  
  運(yùn)行setnil子函數(shù),賦空退出
  
  運(yùn)行setok子函數(shù),插入圖例
  
  定義lastsld子函數(shù),略
  
  定義nextsld子函數(shù),略
  
  定義setnil子函數(shù),略
  
  定義sitok子函數(shù),略