如何在CAD中進(jìn)行地類面積的注記-精選文檔

1、如何在CAD中進(jìn)行地類面積的注記 在勘測(cè)定界圖繪制中，要求注記各地塊的面積、地類、地塊 號(hào)、權(quán)屬 單位名稱，或者其中幾項(xiàng)。不同情況和需求下，標(biāo)注面積的單位可能是畝、 平方米或公頃。在勘測(cè)定界報(bào)告中，需要按 權(quán)屬、按地塊分別對(duì)各地類進(jìn)行 統(tǒng)計(jì)生成各種表格。在土地征用 劃撥時(shí)，更需要根據(jù)實(shí)測(cè)地物情況，結(jié)合土地利用現(xiàn)狀圖對(duì)征地范圍線進(jìn) 行調(diào)整，從而多次反復(fù)地進(jìn)行地類面積統(tǒng)計(jì)。 為使上述 工作中作到準(zhǔn)確有效且成果清晰直接，最好的解決途徑就是通過(guò)編程實(shí)現(xiàn) 很方便地進(jìn)行地類面積注記的生成、修改、整飾和統(tǒng)計(jì)。 多數(shù)作業(yè)單位的圖件制作均采用AutoCAD及其二次開(kāi)發(fā)的 軟件，一般軟件中面積的注記都是生成文本，

2、各文本之間不存在 必需的關(guān)聯(lián)，且修改、整飾等操作很難統(tǒng)一完成，即使編程也存 在難以構(gòu)造 選擇集的問(wèn)題。盡管有些軟件將這些軟件形成一個(gè)編 組，但仍不能有效地 統(tǒng)一地管理它們，而且在有些情況下，編組信息還會(huì)丟失。利用屬性塊進(jìn) 行地類圖斑注記就能很好的來(lái)解決 這一問(wèn)題，從而大大提高工作效率和準(zhǔn)確 性。 、屬性塊的概念 屬性塊是指在一個(gè)塊的定義中，以Attdef命令加入屬性 Attrribute ),其各種操作均與單行文類似，但在塊引用中的文本只能 炸開(kāi)后方可修改，屬性則可在塊內(nèi)修改其內(nèi)容、位置、大小、字型等。筆者 在工作中使用的屬性塊的定義如下： 其中權(quán)屬、地塊號(hào)、地類號(hào)比較明確，平米是為方便保存該

3、注記所指 向地塊的實(shí)際面積的平方米值，它具有不可見(jiàn)的特性， 在插入的塊引用中，即不顯示也不打印。而面積是指顯示值，不 同單位和保 留位數(shù)要求可變化，具體顯示值按平米值計(jì)算，了精度損失。 避免 二、程序結(jié)構(gòu) 以AutoCADVBA為編程語(yǔ)言，對(duì)程序編制的思路和關(guān)鍵代碼進(jìn)行說(shuō)明。 一)輸入 各地塊(包括線狀地物和零星地物)的面積一般可能有兩種 來(lái)源，一 是根據(jù)實(shí)測(cè)數(shù)據(jù)繪制的地類邊界，該邊界應(yīng)為一閉合多 義線pline ,可直 接在程序中訪問(wèn)其entPline. Area屬性獲得。 二是來(lái)源于全國(guó)第二次土地調(diào)查數(shù)據(jù)庫(kù)中整體或裁剪過(guò)的部分圖斑，通過(guò) DXF格式轉(zhuǎn)換而成。轉(zhuǎn)換過(guò)程中，將數(shù)據(jù)庫(kù)中各圖斑 或

4、線狀地物的標(biāo)識(shí)碼等 加入到相應(yīng)對(duì)象的高程等屬性中，可以間接獲取其面積等多項(xiàng)數(shù)據(jù)。 注記的生成是將事先做好的塊定義插入到適當(dāng)位置，同時(shí)獲 取該對(duì)象的訪問(wèn)句柄(entBlock ),進(jìn)而通過(guò)objAtts = entBlock. GetAttr讓utes獲得該塊的屬性集合，例如objAtts 1)便指向地塊號(hào)，通過(guò)objAtts (1) .TextString 可以讀寫(xiě) 其寧 符串值。 如果宗地范圍較小，且歸一個(gè)行政權(quán)屬時(shí)，一般可不標(biāo)注權(quán) 屬名，而在分?jǐn)?shù)線以上只標(biāo)注地塊號(hào)。對(duì)于大范圍情況，貝應(yīng)在 分子位置標(biāo) 地塊號(hào)，把權(quán)屬名置于其上。而標(biāo)注的面積可為平米、畝、公頃，具體保 留的位數(shù)也常有變化。這些

5、標(biāo)注的字體就為2.4m ni高，但如果是國(guó)有土 地，貝y應(yīng)將權(quán)屬名稱的字體擴(kuò)為40mni所以程序應(yīng)該提供相應(yīng)的過(guò)程，通 過(guò)遍歷各注記塊，完 成這些功能，達(dá)到一定的圖面效果。約定Att3為注記 塊的權(quán)屬名稱屬性，一般可用到下列屬性的設(shè)置： Set Att3 = objAtts ( 3) Att3. Height = dblScale * 4 Att3Alignment 二 acAlignmentBottomLeft Att3TextAlignmentPoint 二 pntlns Att3 ScaleFactor 二 0 8 Att3Visible = True Att3 Update 上例中，pntlns為一雙精度型三維數(shù)組，是根據(jù)entBlock的插入點(diǎn) 計(jì)算的某屬性的插入位置。 三）面積表的統(tǒng)計(jì) 將面積注記形成一個(gè)整體的最大優(yōu)勢(shì)便是可以進(jìn)行方便的計(jì)算和統(tǒng) 計(jì)，假定圖面中的注記沒(méi)有錯(cuò)誤，可以認(rèn)為圖面中各注 記塊分別代表各地 塊、線狀地物等的權(quán)屬、面積、地類、地塊號(hào) 等，可以對(duì)全部和部分地塊進(jìn) 行的面積統(tǒng)計(jì)。首先遍歷各注記塊，獲得涉及到的權(quán)屬單位數(shù)。設(shè)定一個(gè) 雙精度數(shù)組，以權(quán)屬單位數(shù) 同時(shí)統(tǒng)計(jì)各 為行數(shù)，以土地分類的所有類別為列數(shù)，經(jīng)過(guò)讀取各注記的地類 及面積, 可以將各權(quán)屬各地類的面積值按位置累積到該數(shù)組的相應(yīng)位置。 種地類的面積和，若為零的便可剔除掉（不 輸出）。 三、結(jié)語(yǔ)