Trase yon poligòn ki gen bi ak distans soti nan Excel mikrostasyon

Kèk ane de sa, mwen pibliye yon atik ki montre kouman pou yo mete done nan Excel pou pou konstwi yon traverse ak AutoCAD, san yo pa gen tout pwotokòl la:

@distans

Lòt jou a nou te nan kou a AutoCAD yon moun mande m 'si sa ta ka fè ak liy lan lòd mikrosasyon. Repons lan se WI, ou jis bezwen konprann ke Keyin mikrostasyon an se pa menm bagay la kòm liy lan lòd AutoCAD. Ann wè ki jan li ka bati, an pasan nou aprann ti bagay ti kras itilize nan pwogram sa a:

Bwat ki sou bò dwat la se yon egzanp yon travèse ki baze sou BEARINGS ak distans ak estrikti sa a.

Avèk mikrostasyon ou ka trase sa jan mwen eksplike anvan, ak dezavantaj nan evidan - ak yon sèl la menm nan AutoCAD -, ke li se fatigan yo dwe ekri youn pa youn, posibilite pou yo te mal e menm ki kou a anvan se pa reset.

Oke, pwosesis la nan trennen se jis menm bagay la ke mwen eksplike ak AutoCAD, ou jis bezwen konprann yon bagay nan ki Microstation diferan.

Keyin la pa te bati ki baze sou fè kòmandman nan liy tèks men pou rele kòmandman ak oryantasyon objè, kidonk li sèlman sipòte 56 karaktè. Anplis de sa, li egzije pou yo itilize yon semicolon (;) pou separe lòd yo paske, kontrèman ak AutoCAD, ki soti nan yon lojik pwogramasyon Debaz, sa pote yon lojik Clipper ak sa mikrostasyon te fèt la lè li te toujou rele Ustation.

Etandone sa a, fason ki pi senp la se rele lòd yo soti nan yon dosye tèks ak kòmandman an @, ki mwen panse ke trè kèk konnen, men ki se pwosedi a ki mikrostasyon te toujou itilize nan pwosesis lòd pakèt. Ki gen ladan la enpòte pwen ki soti nan yon lis txt li se yon mdl ki fè sa.

Lè l sèvi avèk fèy la Excel mwen te deja travay sou yo anseye ki jan yo konvèti soti nan BEARINGS ak distans kowòdone, mwen pral montre ki jan li ta anile pou Microstation:

Konekte pwen yo.

Ki sa ki enterè nou se finalman ke la Kle nan final la se:

plas kote ;xy =374037.736,1580735.145;

Mete pwen se kòmand pwen an, ki gen ladan espas la, pwen ak pwen se pou endike yon lòt lòd, xy = se lòd pou antre nan kowòdone ak de kowòdone ble ak vèt yo se pwen yo li te ye. A la fen yon nouvo virgule pou endike yon antre nan oswa etap nan lòd nouvo.

Se konsa, an konsideran selil yo nan enterè mwen an yo nan U7 ak V7 anchenere ta dwe:

= KONKATENE("plas kote ;”,”xy ="U7,”,”,”,V7,";")

Nan fason sa a, mwen jis kopye sa ki nan kolòn AA nan yon dosye txt, ki mwen pral rele spikedpoints2.txt. Mwen sijere yo mete l dirèkteman nan C konsa chemen an pa tèlman difisil.

Nan ka sa a mwen mete li nan dokiman mwen, chemen an ta dwe: C: \ Itilizatè yo \ Itilizatè \ Dokiman \ pointsandfumed2.txt

nan kouri li, nou aktive fennèt la liy lòd (kle nan), sa a se fè soti nan Itilite> kle nan ak Lè sa a, antre nan lòd la:

@C: \ Itilizatè yo \ Itilizatè \ Dokiman \ DottedPoints2.txt

Nou fè antre, epi gen ou genyen li, pwen yo trase nan lòd yo. Li pratik pou gen yon epesè liy epè pou yo ka parèt.

Konekte liy yo.

Pou sa, operasyon an sanble, kòmandman an ke nou dwe egzekite se kote liy lan, Anplis de sa nou endike ke liy lan gen yon pwen ki gen orijin ak yon pwen nan destinasyon.

kote liy lan ;xy =374032.234,1580716.255;xy =374037.736,1580735.145;

= KONKATENE("kote liy lan ;”,”xy =",U6,"",",V6,";","xy =",U7,"",",V7,";")

Nou kopye epi kole nan dosye txt la, sove epi kouri ankò

@C: \ Itilizatè yo \ Itilizatè \ Dokiman \ DottedPoints2.txt

Apre sa, yo gen li:

Ak yon avantaj anplis se ke bati bwat la nan BEARINGS ak distans sèlman mande pou fè Kopi nan Excel, ak kole nan mikrostasyon. Avèk keratin espesyal ou ka chwazi ant yo te yon imaj, yon calcul entegre oswa lye

Pou konplete atik la, Mwen fè aranjman pou fè dosye egzanp lan nan Excel, nan ki sèlman pwen nan orijin, direksyon ak distans yo dwe chanje ak modèl la ka itil pou nenpòt ki igwan ak plis pase mwatye yon liv nan zo kòt yo.  Epitou isit la echantiyon txt la.

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