Kreye yon bwat bi ak distans soti nan UTM kowòdone

Pòs sa a se an repons a Diego, ki soti nan Paragwe ki fè nou an pwochen kesyon:

yon plezi salye l '... yon ti tan de sa pou yon rechèch ki te vini envolontè vle sit entènèt ou an e mwen jwenn li trè enteresan, tou de pou kontni an ak pou fason a bèl yo kominike syans ou. Mwen ta renmen mande ou, si ou konnen nenpòt ki script, oswa kad kèk Excel ede m 'fè bagay sa yo: Mwen te nimerik nan CAD yon poligòn ak pwen vètikal li yo byen idantifye, ak kadran respektif UTM yo. Mwen kapab parfe ekspòte nan TXT li nan excel.Mi kesyon: konnen UTM done 1 nan ... N pwen, li se posib yo jwenn done sezon, direksyon ak distans sa vle di ke soti nan enfòmasyon ki mwen bay? pwen an 1 gen X ... Y ..., ak konnen ke pwen an 2 gen X ... Y ...; Eske ou ka di m 'detèktans an ki separe yo ak kòn lan nan menm bagay la? nan lòd pou kapab fè fèy ki koresponn lan otomatikman, di ou mèsi ... bon jan kalite soti nan Paragwe!

Oke, sa Diego vle se nan kowòdone UTM jenere foto direksyon ak distans ... epi pandan mwen fini Semèn Sen, nan ki mwen te manje gato pwason, torrejas nan siwo myèl e mwen te pran kèk bon foto sou tapi yo syur ... isit la se repons lan. Premyèman, se pou yo rekonèt ke pi bon fason pou fè sa a se avèk zouti dwat la (Li ka avèk la macro vba nan mikrostasyon, Ak Softdesk oswa AutoCAD Sivil 3D) men pou rezon aprantisaj, ak konprann ke nan lavi ou gen yo sèvi ak sa ou genyen, se pou yo wè ki jan fè li ak Excel.

1. Jenere pwen yo

Diego di nou ke li gen yon fason pou voye pwen yo nan yon dosye txt, yo louvri l 'ak Excel, se konsa nan ka mwen an mwen pral fè l' nan mikrostasyon. Paske mwen vle voye done yo nan Excel, mwen pral mete pwen sou chak somè. Pou fè yo vizib, mwen chanje epesè liy lan, e li enpòtan anpil pou konprann ke mikrostasyon ap voye yo nan dosye txt nan lòd yo kreye yo, kidonk li nesesè pou kreye yo youn apre lòt.

Pou voye yo nan Excel, yo itilize zouti "kowòdone ekspòtasyon", mwen kreye yon "kloti" ki kouvri tout pwen yo epi mwen konfigure done yo:

• Mwen bay non an nan dosye a txt kòm test444.txt
• Mwen endike ke lòd la ki enterese m 'se XYZ
• Fòma inite yo soti nan "inite mèt" ki an mèt
• Mwen endike ke mwen vle sèlman de desimal
• Lè sa a, sektè a vigil ak nimero a soti nan 1

Lè w klike sou bouton "kloti" a epi klike sou ekran an, sistèm lan te kreye fichye txt la epi li te kreye yon nimewo pou chak pwen yo, soti nan 1 a 36.

2. Louvri tab la soti nan Excel

Pou ouvri fichye sa a soti nan Excel, ale nan "fichye/louvri" epi chwazi ki kalite fichye "fichye tèks, .prn .csv .txt" Lè sa a, nan panèl ki parèt, chwazi tèks la separe pa vigil. Finalman fichye a te louvri ak twa kolòn, nan premye a se nimewo pwen yo, nan dezyèm nan kowòdone X la ak nan twazyèm nan kowòdone y a.

3. Kalkile Distans

Ann tounen nan règ debaz trigonometri yo an premye. Sonje ke nou ap chèche pou yon distans ak yon ang.

yon = diferans nan kowòdone Y yo (li soustrè soustraksyon x2 - x1), nan kolòn Mb = diferans kowòdone X yo (li pran pa soustraksyon y2 - y1), nan kolòn Lc = ipoteniz ki pral rasin kare b plis kare, nan kolòn P ak sa yo pral valè distans la.

4. Kou kalkil

Koulye a, pou kou a nou bezwen fè kalkil plizyè; men tout kite soti nan ang lan ant yon estasyon ak yon sèl youn apre lòt. Kalkil ang lan. Se pou nou sonje ke la kosinèl nan kwen an se ekivalan a divize b ant c, oswa x a delta ant distans la kalkile kòm hypotenuse.

Se konsa, li se sèlman fè nan Excel divize kolòn L pa kolòn P. Nou menm tou nou fè kalkil la nan la tete, ki pral divize Delta Y a pa ipotenuz la (M pa P). Koulye a, pou kalkile ang lan, nou sèlman aplike cosine inverse nan kolòn nan ki gen li epi kòm Excel sèvi ak radyan, miltipliye valè a pa 180 epi divize li ant PI; fòmil la ta sanble tankou sa a: = ACOS (kolòn R) * 180 / PI ().

Koulye a, pou kalkile a Oryan / West oryantasyon Nou bay yon kondisyon: si kosinis la pozitif, ekri E, si kosinis la negatif, ekri W. Fòmil la sanble sa a: =SI(R2<0,"W","E")... se nan kolòn. T Pou kalkile a Nò / sid oryantasyon, nou bay yon kondisyon ki sanble ak youn anvan an, men ak sinis la; sa vle di, si sinis la pozitif, ekri N, si li negatif, ekri S epi fòmil la ta konsa: =SI(R2<0,”W”,”E”)… se nan kolòn U.

Koulye a, sonje ke ang lan deja kalkile se soti nan orizontal la, nan bò solèy leve a ak sa nou bezwen se ki gen rapò ak nò a oswa nan sid. Se konsa, nan ka NW ak SW kadran nou pran 90 degre lwen, se konsa sa nou fè se kreye kondisyon an ke si kosinin lan negatif, nou soustraksyon 90 ak nan NE yo ak SE kadran nou pran 90 mwens ang lan ... nan kolòn V

Kolòn V montre ang lan, men nan fòma desimal. Pou konvèti desimal yo an degre, minit ak segonn, sa nou fè se koupe li ak zewo kote desimal, menm jan se nan kolòn W. Pou kalkile minit yo, nou soustraksyon degre konplè yo mwens degre yo koupe ak miltipliye yo pa 60. Lè sa a, nou koupe yo ak zewo kote desimal jan li parèt nan kolòn Y. Nan ka segonn yo, minit yo soustraksyon mwens minit yo koupe, ak miltipliye pa 60. Finalman, segonn yo yo koupe nan de kote desimal ... dwe fè atansyon, si kowòdone yo UTM ki te itilize pa t 'gen plis pase de kote desimal, valè desimal la nan segonn yo pa pral trè egzak kidonk li ta pi bon yo kite yo nan yon desimal.

5. Kreyasyon tab nan direksyon ak distans

Sezon yo.

Pou sa mwen te itilize fòmil konkatenasyon an, kidonk mwen ajoute selil la ki gen nimewo 1, Lè sa a, espas tire espas, ak Lè sa a, selil ki gen nimewo a 2; Se konsa, mwen gen fòm nan estasyon "1 - 2"

Distans yo.  Sa yo soti nan kolòn nan ipoteniz.

Kou a.  Sa a sèlman mande pou pote kalkile nan kolòn deja kalkile valè, ak ajoute klas senbòl selilè, minit nan oswa dezyèm se ki te kreye nan pwopriyete yo selilè jan yo montre nan imaj la. Anplis de sa mwen gen te ajoute yon kolòn nan obsèvasyon, tankou nan fè sondaj sou anjeneral yo mande yo. Soti isit la ou ka download fòma a dosye dw, nan fòma DGN, dosye a Excel ak dosye a txt.

Se konsa, sa isit la se dosye a nan Excel ak ki ou ka kreye tit la ak distans tab soti nan sekans UTM kowòdone. Pou ajoute pwen, ou ka kopye kolòn epi mete yo, li pi bon paske nan fason sa a ou garanti fòmil yo, k ap chèche respekte premye ak dènye ranje a. Ou dwe kopye done yo tou depi premye pwen an jouk nan fen premye a, pou dènye estasyon an kalkile byen.

Isit la ou ka telechaje modèl la yo kreye yon bwat BEARINGS ak distans soti nan UTM kowòdone.

Li mande pou yon kontribisyon senbolik pou download la, ki ou ka fè avèk yo PayPal oswa kat kredi.

Li se senbolik konsidere valè a li bay ak fasilite la ak kote ou ka jwenn.