【正文】 ；畫完一條封閉式樣條曲線 ， 使點(diǎn)表初始化 )) ； endif ) ； endrepeat (close f) (princ) ) ； end program 圖 830的地形測(cè)量草圖的觀測(cè)數(shù)據(jù)，經(jīng)過用 “ 數(shù)據(jù)轉(zhuǎn)換程序 ” 和 “ 按地形點(diǎn)點(diǎn)號(hào)坐標(biāo)代碼展點(diǎn)和連線程序 ” 所得地形圖初級(jí)圖形顯示如圖 837所示。這一工作可編制下列 “ 按地形點(diǎn)點(diǎn)號(hào)坐標(biāo)代碼展點(diǎn)及連線程序 ” 來(lái)完成： ； 《 按地形點(diǎn)坐標(biāo)代碼數(shù)據(jù)文件畫地形圖初級(jí)圖形 》 ； (地形點(diǎn)按前三位代碼入層畫點(diǎn) ,注記點(diǎn)號(hào)及高程 ,初步連線 ,可封閉所畫圖形 ) ； TOPOLINE (Topographic Points amp。將上列第一行字符轉(zhuǎn)換為下列 5行數(shù)據(jù)： 1001 （ 點(diǎn)號(hào) ,整型 ） （ 橫坐標(biāo) ,實(shí)型 ） （ 縱坐標(biāo) ,實(shí)型 ） （ 高程 ,實(shí)型 ） 411B1 （代碼 ,字符型） 《 地形測(cè)量數(shù)據(jù)轉(zhuǎn)換程序 》 (defun c:setcad() ；將 SET觀測(cè)數(shù)據(jù)轉(zhuǎn)換為 CAD可讀數(shù)據(jù) (setq File1 (getstring 輸入 SET數(shù)據(jù)文件名 (*.txt): )) (setq File2 (getstring 輸入 CAD數(shù)據(jù)文件名 (*.txt): )) (setq F1 (open File1 r)) ； open 文件一， read 文件 (setq F2 (open File2 w)) ； open 文件二， write文件 (setq m (getint 輸入地形點(diǎn)數(shù) = )) (repeat m (setq s (readline F1)) ；按行從文件一讀入 ；以下將讀入字符串拆分為點(diǎn)號(hào) 、 三維坐標(biāo) 、 代碼 ， 分行寫入文件二 ，轉(zhuǎn)換數(shù)據(jù)類型 (setq n (atoi (substr s 17 4))) (princ n F2) (princ \n F2) ；寫入點(diǎn)號(hào) (setq x (atof (substr s 37 10))) (princ x F2) (princ \n F2)；寫入橫坐標(biāo) (setq y (atof (substr s 21 10))) (princ y F2) (princ \n F2)；寫入縱坐標(biāo) (setq h (atof (substr s 53 10))) (princ h F2) (princ \n F2) ；寫入高程 (setq cd (substr s 69 6)) (princ cd F2) (princ \n F2) ；寫入代碼 ) (close File1) (close File2) (princ) ) 六、地形點(diǎn)展繪和初步連線 地形點(diǎn)數(shù)是大量的，例如一幅 1:500的地形圖一般約有 1000點(diǎn)。 方式 編號(hào) 縱坐標(biāo) 橫坐標(biāo) 高程 代碼 08TP 411B1 08TP 411M1 08TP 411E1 08TP 644B1 08TP 644E1 08TP 644M2 08TP 644E2 08TP 644E1 ……………………… 全站儀的觀測(cè)數(shù)據(jù)還須用下列 “ 地形測(cè)量數(shù)據(jù)轉(zhuǎn)換程序 ” 將其轉(zhuǎn)換為 AutoCAD繪圖所需格式的數(shù)據(jù)文件，即地形點(diǎn)的順序點(diǎn)號(hào)、橫坐標(biāo)、縱坐標(biāo)、高程、代碼各占一行的數(shù)據(jù)文件，并將各個(gè)數(shù)據(jù)區(qū)的字符轉(zhuǎn)換為相應(yīng)的 “ 字符串 ” 、 “實(shí)數(shù) ” 或 “ 整數(shù) ” 。其中每行的第 1～ 4位為采集數(shù)據(jù)的方式，第 17～ 20位為點(diǎn)的順序編號(hào)，第 21～ 36位為縱坐標(biāo)，第 37～ 52位為橫坐標(biāo)，第 53～ 68位為高程，第 69～ 84位為編碼。如前圖所示為地形測(cè)量的局部草圖，其中地形點(diǎn)左邊注明的為順序編號(hào)，右邊為分類與連線信息的編碼。 四、 全站儀與計(jì)算機(jī)的數(shù)據(jù)通訊（已做實(shí)驗(yàn)） 五、原始觀測(cè)數(shù)據(jù)的轉(zhuǎn)換 地形測(cè)量時(shí)，全站儀原始的點(diǎn)位觀測(cè)數(shù)據(jù)為每一個(gè)地形點(diǎn)的順序編號(hào)、三維坐標(biāo)和屬性編碼。 對(duì)于城市地區(qū)的中等簡(jiǎn)繁度的一幅 1： 500的地形圖 ， 其地物特征點(diǎn)一般不會(huì)超過 1000個(gè) ， 因此儀器所提供的存儲(chǔ)容量是足夠的 。 路池混3磚2824E1824E1824E2824M2824E3824M3824M3824M3824E2824M2824B2633E1633E1633B1411E1411E1411E1411E1411B1633E2633M2633E1633B1633E1633E2633E1633M2633B1411E1411M1411B110321031103010291028102710261025102410231022102110201019101810171016101510141013101210111010100910081007100610051004100310021001633 按照上圖中點(diǎn)號(hào)的觀測(cè)次序，觀測(cè)者對(duì)編碼輸入的改動(dòng)較少；另外，成圖