|
坐標(biāo)法測(cè)圖系統(tǒng)設(shè)計(jì)優(yōu)化
（作者未知） 2009/5/21
（接上頁）同時(shí)測(cè)多種地物點(diǎn)的測(cè)量，達(dá)到相鄰地物點(diǎn)相連。一個(gè)數(shù)據(jù)文件存儲(chǔ)一地物后可再存儲(chǔ)另一地物。數(shù)據(jù)文件中每類可存儲(chǔ)多種地物。內(nèi)業(yè)編輯工作對(duì)測(cè)圖的地圖數(shù)據(jù)格式的轉(zhuǎn)換就可實(shí)現(xiàn)地物點(diǎn)連線。僅對(duì)地物進(jìn)行編碼追加、替換、修改，減少很大內(nèi)業(yè)編輯工作量，就完成數(shù)字圖的編輯工作。
程序部分清單
快捷鍵設(shè)置
314 KEY 1,"G.*AA"+CHR$ 13
316 KEY 2,"G.*BB"+CHR$ 13
318 KEY 3,"G.*CC"+CHR$ 13
320 KEY 4,"G.*DD"+CHR$ 13
322 KEY 5,"G.*EE"+CHR$ 13
建立分區(qū)地圖數(shù)據(jù)文件
352 FOR I=1TO 9
354 OPEN (NA$+STR$ (I))FOR OUTPUT AS #10
356 CLOSE #10:NEXT I
圖幅零坐標(biāo)輸入（X0，Y0）
442 *AA:INPUT "X0=";X0
444 INPUT "Y0=";Y0
測(cè)站設(shè)置
458 *BB:INPUT "CE ZAN=?";A$,"HUO SI=?";B$
460 XA=0:YA=0:XB=0:YB=0
462 AAA=10:LOCATE 22,0:INPUT "LOAD=?(1-10)";AAA
464 OPEN (NA$+STR$ (AAA)) FOR INPUT AS #2
466 IF EOF (2)THEN 478
468 INPUT #2,N$,X,Y,H
470 IF N$=A$ THEN XA=X,YA=Y,HA=H
472 IF N$=B$ THEN XB=X,YB=Y,HB=H
474 IF (XA﹤﹥0)AND (XB﹤﹥0)THEN 478
476 GOTO 466
478 CLOSE #2
觀測(cè)數(shù)據(jù)輸入，分區(qū)顯示操作
512 *CC:IF XA=0GOTO 458
514 IF R$="K"OR R$="T"THEN LOCATE 0,0:PRINT "S= ";:LOCATE 8,0:INPUT DS$:GOTO 520
516 LOCATE 0,0:PRINT "DS=(P) ";:LOCATE 8,0:INPUT DS$
518 IF DS$="P" THEN GOSUB *P:GOTO 544
520 DS=VAL DS$
524 PRINT "L=(0) ";:LOCATE 6,1:INPUT L
526 PRINT "Z= ";:LOCATE 6,2:INPUT Z
528 PRINT "B= ";:LOCATE 6,3:INPUT B
530 IF R$="K"OR R$="T"THEN DS=DS*SIN (DEG Z)
532 GOTO 544
改變截尺輸入及計(jì)算
540 *DD:LOCATE 0,1:PRINT "L=(0) ";:LOCATE 8,1:INPUT L
544 D=DS*SIN (DEG Z)
546 DH=(D/TAN (DEG Z)
548 IF R$="K" THEN DH=-DH
550 T=TA+DEG B+180:T=T-INT (T/360)*360:X=XA+D*COS T:Y=YA+D*SIN T
552 IF L=0THEN H=0:GOTO 558
554 IF Z=90THEN H=HA+I-L:GOTO 558
556 H=HA+I+DH-L
坐
標(biāo)高程及展點(diǎn)顯示值，進(jìn)行分類數(shù)據(jù)存儲(chǔ) （未完，下一頁）
|