【正文】 α= amp。重新推算，校驗方位角 If Then For i = 0 To n 1 fwj = fwj + angle(i) 180 If fwj 360 Then fwj = fwj 360 ElseIf fwj 0 Then fwj = fwj + 360 End If = amp。閉合差反號分配給各觀測左角，得到“度” Next i ElseIf Then For i = 0 To n 1 angle(i) = DEG(angle(i)) + fbelta 39。得到秒值 If Abs(fbelta) fbelta容 Then 39。求方位角閉合差 fwj = DEG(aBA) If Then For i = 0 To n 1 fwj = fwj + DEG(angle(i)) 180 If fwj 360 Then fwj = fwj 360 ElseIf fwj 0 Then fwj = fwj + 360 End If Next i ElseIf Then For i = 0 To n 1 fwj = fwj DEG(angle(i)) + 180 If fwj 360 Then fwj = fwj 360 ElseIf fwj 0 Then fwj = fwj + 360 End If Next i End If fbelta容 = 60 * Sqr(n) 39。將angle2()字符型數(shù)組賦予angle()數(shù)值型數(shù)組 angle(i) = Val(angle2(i)) Next i For i = 0 To UBound(lin2) 39。 α= amp。 Format(yA, .000) aBA = Val() = = amp。 vbTab amp。 X= amp。輸入的l邊的個數(shù)應(yīng)該是n1個，否則出錯 xA = Val() yA = Val() = = amp。輸入的觀測角的個數(shù)應(yīng)該是n個，否則出錯 lin1 = Replace(, vbCrLf, ): lin1 = Trim$(lin1) lin2 = Split(lin1, ) 39。至少有一個導(dǎo)線點 angle1 = Replace(, vbCrLf, ): angle1 = Trim$(angle1) angle2 = Split(angle1, ) 39。數(shù)據(jù)錄入前清空文本框 = = = = = = = = End SubPrivate Sub Command3_Click() n = Val() + 2 39。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。退出提醒 If MsgBox(你確定要退出嗎？, vbYesNo + vbQuestion, 提醒) = vbNo Then Cancel = TrueEnd SubPrivate Sub Option4_Click() = 觀測右角： = 觀測右角：End Sub（4）附合導(dǎo)線：Private xA As Double, yA As Double, aBA As Double, xC As Double, yC As Double, aCD As DoublePrivate n As Integer, angle() As Double, angle1 As String, angle2() As String, lin() As Single, lin1 As String, _ lin2() As StringPrivate fwj As Double, fbelta As Double, fbelta容 As Double, deltax() As Single, deltay() As Single, fx As Single, fy As Single, fs As Single, da_x As Single, da_y As SinglePrivate fwjelfa() As Double, sumx As Single, sumy As Single, sums As SinglePrivate Sub Command1_Click() = = = = 39。 ： Else MsgBox 無效的密碼，請重試!, , 登錄 SendKeys {Home}+{End} End IfEnd Sub（2）歡迎窗體：Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Unload Me ElseIf KeyAscii = 27 Then i = MsgBox(您將退出本程序！, vbOKOnly, ) If i = 1 Then End End If End IfEnd Sub（3）導(dǎo)線平差界面：Private Sub Command1_Click() If Then ElseIf Then End IfEnd SubPrivate Sub Command2_Click() 39。成功到 calling 函數(shù) 39。檢查正確的密碼 If txtPassword = 20021144 Then 39。設(shè)置全局變量為 false 39。提取所要計算數(shù)值的符號 de = Abs(de) d1 = Int(de) d2 = Int((de d1) * 100) d3 = de d1 d2 / 100 DEG = Format(sign * (d1 + d2 / 60 + d3 / ), .0000)End FunctionPublic Function DSM(de As Double) As Double 39。定義了一個全局∏常量，定義了兩個全局函數(shù)過程Public Const PI = Public Function DEG(de As Double) As Double 39。由于時間和篇幅的限制以及本人學(xué)術(shù)水平有限，本文的一些論述不夠深入，懇請各位老師予以指正。衷心感謝東北大學(xué)測繪工程專業(yè)的全體老師，正是他們的辛勤工作，為我們營造了良好的學(xué)習(xí)環(huán)境和學(xué)術(shù)氛圍。從論文選題、初稿的修改到最終的定稿都得到了導(dǎo)師的認(rèn)真指導(dǎo)、悉心幫助。回想四年來學(xué)習(xí)的艱苦歷程，我深深地認(rèn)識到，諸多良師益友的真誠幫助，單位領(lǐng)導(dǎo)的大力支持，家庭的溫馨關(guān)懷，我才能順利完成本科學(xué)業(yè)。手中的論文，也給這幾個月的忙碌帶來欣慰。待室內(nèi)成圖之后，再到現(xiàn)場調(diào)繪，一旦發(fā)現(xiàn)內(nèi)容存在漏錯還需補(bǔ)測，測圖工藝有些復(fù)雜化，效率提高不多。6. 現(xiàn)場不實時繪圖的數(shù)字化測圖系統(tǒng)。而且，出現(xiàn)的許多新事物，如電子軌道衡，儲煤堆取料機(jī)等，在現(xiàn)行的《1∶500、1∶1000、1∶2000 地形圖圖式》找不到相應(yīng)的符號。5. 現(xiàn)行的測繪作業(yè)規(guī)范各行各業(yè)不統(tǒng)一。數(shù)字化測圖與傳統(tǒng)的平板測圖相比是兩種截然不同的測圖方法。4. 沒有統(tǒng)一的技術(shù)標(biāo)準(zhǔn)。3. 自動勾繪等高線時，常常因為個別點的高程誤差引起等高線的不合理擺動。內(nèi)業(yè)工作量加大。無碼法：在采集過程中無需考慮編碼，但野外繪制草圖、內(nèi)業(yè)成圖時， 將坐標(biāo)數(shù)據(jù)文件在屏幕上展繪成與草圖一一對應(yīng)的帶點號的坐標(biāo)點。但在實際采集過程中，有些地物，如道路、水系等不可能一次性連續(xù)采集完，采集其它碎部點，再回到此地物時拓?fù)潢P(guān)系已很難記憶。2. 數(shù)字測記模式野外數(shù)字采集中，采用編碼法還是無碼法。電子平板測繪模式雖然優(yōu)先于數(shù)字測記模式，但它的硬件配置價格高，而且便攜機(jī)受使用環(huán)境的限制，如在高寒多風(fēng)沙的地區(qū)，它的使用效率及壽命受到很大的影響，同時耗電量高，內(nèi)置電池滿足不了外業(yè)數(shù)據(jù)采集的需要，還應(yīng)配備外接電池。有條件的單位應(yīng)采取電子平板模式（全站儀+便攜計算機(jī)+軟件）內(nèi)外業(yè)一體化成圖。至于一個測區(qū)采取什么樣的方法測圖，需根據(jù)實地情況作決定。由于其不在同一層，顏色不一樣，可以分別編輯，這樣可以保持圖的完整性和地物位置的精確性。在滿足《規(guī)范》要求的密度下，最大限度地提高測圖質(zhì)量。4. 對于測圖方法，應(yīng)盡量發(fā)揮計算機(jī)對圖形的對稱、平移、拷貝等特點，最大限度地減少野外工作量。3. 作業(yè)期一般以冬春為最佳時期，秋天8~9 月份為最不利時期。東北大學(xué)畢業(yè)設(shè)計(論文) 第六章 數(shù)字化成圖的經(jīng)驗總結(jié)第六章 數(shù)字化成圖的經(jīng)驗總結(jié)1. 立尺點位的精確性，尤其是特性點、特性線位置。是否刪除圖框外實體？（1）否（2）是1回車（默認(rèn)1）。在“圖名”欄里，輸入各欄內(nèi)容，然后用鼠標(biāo)左鍵點擊“OK”。注記位置: 指定注記位置。注意：在進(jìn)行坐標(biāo)注記時，應(yīng)精確捕捉待注點。1. 注記文字功能：在指定的位置以指定的大小書寫文字操作過程：同下拉菜單“工具” “文字” 注意：文字字體為當(dāng)前字體。另外利用“低級著色方式”、“高級著色方式”功能還可對三維模型進(jìn)行渲染等操作，利用“顯示”菜單下的“三維靜態(tài)顯示”的功能可以轉(zhuǎn)換角度、視點、坐標(biāo)軸，利用“顯示”菜單下的“三維動態(tài)顯示”功能可以作出更高級的三維動態(tài)效果。8. 年切除指定區(qū)域內(nèi)等高線選擇一封閉復(fù)合線，系統(tǒng)將該復(fù)合線內(nèi)所有等高線切除。程序?qū)⒆詣忧谐雀呔€穿過此二線間的部分。6. 切除指定二線間等高線命令區(qū)提示：選擇第一條線用鼠標(biāo)指定一條線，例如選擇公路的一邊。4. 切除穿陡坎等高線程序自動切除所有等高線穿過指定陡坎的部分。然后移動鼠標(biāo)至“等高線修剪”的“切除穿建筑物等高線”項，按左鍵，進(jìn)入子菜單。等高線的高程值即自動注記在A處，且字頭朝B處。 等高線的修飾1. 刪除三角網(wǎng)用鼠標(biāo)選擇“等高線”項之“刪三角網(wǎng)”即可。請選擇： 1：選擇等高線繪制的方式，例如輸入3，回車。如在“新建圖形”狀態(tài)下繪，系統(tǒng)會提示您輸入繪圖比例尺。 繪制等高線完成上述兩步操作后，便可繪制等高線了。否則修改無效。通過以上命令修改了三角網(wǎng)后，選擇“等高線”菜單中的“修改結(jié)果存盤”項，把修改后的數(shù)字地面模型存盤。指定兩相鄰三角形的公共邊，系統(tǒng)自動將兩三角形刪除，并將兩三角形的另兩點連接起來構(gòu)成兩個新的三角形，這樣做可以改變不合理的三角形連接。選擇此命令后，可根據(jù)提示輸入要插入的點:在三角形中指定點（可輸入坐標(biāo)或用鼠標(biāo)直接點?。?，提示“高程(米)=”時，輸入此點高程。如果要增加三角形時，可選擇“等高線”菜單中的“增加三角形”項，依照屏幕的提示在要增加三角形的地方用鼠標(biāo)點取，如果點取的地方?jīng)]有高程點，系統(tǒng)會提示輸入高程。如果在某局部內(nèi)沒有等高線通過的，則可將其局部內(nèi)相關(guān)的三角形刪除。 修改數(shù)字地面模型（修改三角網(wǎng)）一般情況下，由于地形條件的限制在外業(yè)采集的碎部點很難一次性生成理想的等高線，如樓頂上控制點。如果建三角網(wǎng)時考慮坎高或地性線，系統(tǒng)在建三角網(wǎng)時速度會減慢。說明：顯示三角網(wǎng)是將建立的三角網(wǎng)在屏幕編輯區(qū)顯示出來。如有地性線，可用鼠標(biāo)逐個點取地性線，如地性線很多，可專門新建一個圖層放置，提示選擇地性線時選定測區(qū)所有實體，再輸入圖層名將地性線挑出來。請選擇地性線:(地性線應(yīng)過已測點，如不選則直接回車)Select objects：回車（表示不選地性線）。如果要考慮坎高因素，則在建立DTM前系統(tǒng)自動沿著坎毛的方向插入坎底的點（坎底點的高程等于坎頂線上已知點的高程減去坎高），這樣新建坎底的點便參與三角網(wǎng)組網(wǎng)的計算。這時，打開文件，將鼠標(biāo)左鍵移至“打開”按鈕處并點擊左鍵后命令區(qū)提示：請選擇: 1：回車（默認(rèn)選1）。“等高線”項，按左鍵，出現(xiàn)下拉菜單。注記高程點的距離(米)：根據(jù)規(guī)范要求輸入高程點注記距離（即注記高程點的密度），回車默認(rèn)為注記全部高程點的高程。 建立數(shù)字地面模型（構(gòu)建三角網(wǎng)）我們在