AutoCAD R12兩個新增命令在編程中的應(yīng)用

1、AutoCAD R12兩個新增命令在編程中的應(yīng)用摘要：AutADR12版新增加了BHATH命令來補充和加強HATH命令功能。關(guān)鍵詞：AutADR12命令應(yīng)用AutAD中填充陰影線圖案(PAT文件)是一項非常有用的功能，在各種圖形中都可能用到。我們在開發(fā)工程地質(zhì)AD軟件時，經(jīng)常要在圖面上的指定區(qū)域內(nèi)填充巖性花紋圖案，而且填充區(qū)域不規(guī)那么。在AutAD低版本中,填充花紋命令僅有一條HATH，使用HATH時，需選擇圍成閉合區(qū)域的有關(guān)實體，假設(shè)實體選擇不全那么會使填充出現(xiàn)混亂，特別是當(dāng)填充區(qū)域由假設(shè)干線、虎園等實體穿插組合而成時，就要沿閉合區(qū)域的各點繪制一條PLINE線，然后以這條線作為填充邊界限，在

2、填充完成以后還要將這條線刪除，比擬費事。AutADR12版新增加了BHATH命令來補充和加強HATH命令功能。BHATH命令以窗口交互方式執(zhí)行，它將自動以多義線來定義邊界，然后忽略全部或部份不是邊界的區(qū)域，完成填充后自行刪除多義線，還可以使邊界內(nèi)的圖形和文字避開填充圖案。簡言之，填充時只需要用鼠標(biāo)器點取閉合區(qū)域內(nèi)一點就可完成填充。為了更方便地使用HATH和BHATH這兩個命令，在R12版中還新增加了一條命令BPLY。使用BPLY可迅速生成一封閉曲線的邊界，即通過點取封閉區(qū)域內(nèi)任意一點形本錢區(qū)域的邊界限,根據(jù)返回的邊界限可使用HATH填充花紋圖案，也可使用AREA來計算封閉區(qū)域的面積和周長。有關(guān)

3、這兩條命令的操作，可參閱AutADR12的使用說明書，通過簡單的練習(xí)就可以掌握。本文想就如何在AUTLSP中調(diào)用這兩個命令進展編程的問題做一簡單介紹。BHATH和BPLY命令不同于一般的AutAD命令，它們是用ADS應(yīng)用程序開發(fā)的，假如想在圖形編輯狀態(tài)下或在AUTLISP中使用這兩個命令,就要在AutAD初始化時加載名為AADAPP的ADS程序，方法是在當(dāng)前搜索途徑上是否有AAD.ADS文件，這是一個純文本的ASII碼文件，在這個文件中如有一行為AADAPP，那么在進入AAD圖形時自動加載AADAPP，在AutAD的and:提示符下調(diào)用AUTLISP函數(shù)(ADS)，將得到當(dāng)前已加載的全部ADS

4、應(yīng)用程序的信息。如已加載AADAPP，在“and:就可以使用BPLY和BHATH。在AUTLISP語言中，不能像調(diào)用一般命令那樣用(AND“命令)來調(diào)用BPLY和BHATH，而是用(：BPLY點)、(：BHATH點)來調(diào)用，執(zhí)行(：BHATH點)之前要通過SETVAR對幾個系統(tǒng)變量進展設(shè)置，HPANG是圖案填充角度，HPNAE是圖案填充名稱，HPSALE是圖案填充比例系數(shù)。以下是一個簡單的填充花紋圖案的LISP程序:程序1清單：(setqyf$(getstring(strat花紋代號:);輸入花紋代號(setqbl(getrealn比例1:);輸入比例(if(=blnil)(setqbl1.0

5、);比例約定值為1(setqang(getrealn角度0:);輸入角度(if(=angnil)(setqang0.0);角度約定值為0(setqpt(getpintn選擇區(qū)域內(nèi)任意一點:);輸入?yún)^(qū)域內(nèi)任意一點坐標(biāo)(setvarhpangang);設(shè)置填充角度為ang(setvarhpsalebl);設(shè)置填充比例為bl(setvarhpnaeyf$);設(shè)置填充花紋為yf$(hilept;PT為真時執(zhí)行循環(huán)體內(nèi)程序,否那么退出(:bhathpt)(setqpt(getpintn選擇區(qū)域內(nèi)任意一點:);輸入?yún)^(qū)域內(nèi)任意一點坐標(biāo)繼續(xù)填充);hilept用程序1填充花紋時，選定點周圍不能形成一個閉和區(qū)域

6、時，除未填充外也不顯示任何信息，因此需要增加一個判斷，用程序2來實現(xiàn)。程序2清單：(setqyf$(getstring(strat花紋代號:);輸入花紋代號(setqbl(getrealn比例1:);輸入比例(if(=blnil)(setqbl1.0);比例約定值為1(setqang(getrealn角度0:);輸入角度(if(=angnil)(setqang0.0);角度約定值為0(setqpt(getpintn選擇區(qū)域內(nèi)任意一點:);輸入?yún)^(qū)域內(nèi)任意一點坐標(biāo)(hilept;PT為真時執(zhí)行循環(huán)體內(nèi)程序,否那么退出(setqe(:bplypt);得到PT點所在的邊界限,(ife;如邊界限存在就填

7、充,否那么不填充(prgn(andhathyf$blange);填充花紋(anderasee);刪除邊界限(prinn填充完畢);打印填充完畢);prgn(prinn邊界限不存在,不能填充);if(setqpt(getpintn選擇區(qū)域內(nèi)任意一點:);輸入?yún)^(qū)域內(nèi)任意一點坐標(biāo)繼續(xù)填充);hilept為了更加方便實用，可以編制花紋圖案的圖標(biāo)菜單，當(dāng)提示輸入花紋圖案時，激活圖標(biāo)菜單。我們在實際運用時，從BPLY返回的邊界實體的各點坐標(biāo)中計算出一個范圍，該范圍內(nèi)的文本實體同時選中，使這些文本避開陰影線圖案。以上兩個小程序所實現(xiàn)的功能與BPLY和BHATH一樣，其實際意義不在于此，而是想通過以上介紹，可

8、以將其應(yīng)用到解決更為復(fù)雜的情況上，例如我們在地質(zhì)AD軟件開發(fā)中，使用上述方法解決了復(fù)雜的不規(guī)那么區(qū)域自動填充多種花紋圖案的程序，編寫了對花紋圖案的編輯命令，即對已經(jīng)繪制到圖形中的花紋進展編輯修改(篇幅所限源程序不列出)。這里僅簡介使用方法,在運行本程序之前，所編輯花紋的區(qū)域已經(jīng)存在。在and提示符下用LAD加載本程序，計算機提示：I.選目的T.改花紋代號A.比例角度.改顏色P.改邊界X.完畢X:選項I:選定要編輯的花紋圖案，只需用鼠標(biāo)點取花紋圖案上的一點即可;選項T:修改花紋圖案的代號，輸入新的花紋代號;選項A:修改花紋圖案的比例角度，輸入新的比例和角度;選項:修改花紋圖案的顏色，輸入新的顏色號;選項P:是修改花紋圖案的邊界限，提示選擇欲修改的邊界限，然后是一個類似PEDIT的多義線頂點編輯命令，可將頂點位置挪動或者刪除，待新的邊界限修改完成以后，圖面上的花紋圖案立即按新的邊界更新。需注意的一點是在修改邊界限之前選擇花紋圖案實體時，一定要使選擇點位于新的邊界限之內(nèi)，否那么圖案將填充在新邊界限之外。以前繪制到圖形中的花紋圖案，假如發(fā)現(xiàn)代號、角度、比例、顏色、邊界限等不滿意時，就要將其刪除再重新繪制，而且還不能保證重新繪制的花紋圖案完全正確，使用本程序就可以隨心所欲地非常方便地對花紋進展編輯修改，直到滿