:: SuperTopo Rock Climbing Discussion Topic

Discussion Topic

Return to Forum List

This thread has been locked

Messages 1 - 17 of total 17 in this topic

GDavis

Social climber

SOL CAL

Feb 11, 2013 - 11:01am PT

[Click to View YouTube Video]

mhay

climber

Reno, NV

Feb 11, 2013 - 11:42am PT

Private Sub IntersectToGrid(ByVal sFlightlineArchive As String, _
ByVal sFlightlineMDB As String, _
ByVal sYear As String)

Try

Dim pT_Line As ITable = AccessFeatureWS(sFlightlineArchive).OpenTable("ba" & sYear)

Dim pT_Poly As ITable = AccessFeatureWS(sFlightlineMDB).OpenTable(m_sGridTableName)

Dim pFCN As IFeatureClassName = FBG_Utilities.GetFCName
Dim pDN As IDatasetName = pFCN
pDN.Name = "y" & sYear
pDN.WorkspaceName = FBG_Utilities.GetWSName(sFlightlineArchive)

Dim pBGP As IBasicGeoprocessor = New BasicGeoprocessor

Dim pFC As IFeatureClass = pBGP.Intersect(pT_Line, False, pT_Poly, False, 0, pFCN)

Catch ex As Exception

MsgBox("FBG_main.IntersectToGrid: " & vbCrLf & ex.Message & vbCrLf & vbCrLf & ex.StackTrace)

End Try

End Sub

Private Function MakeProjectedFC(ByVal sFlightlineArchive As String, _
ByVal sYear As String) As IFeatureClass

Try

Dim pFC_out As IFeatureClass = FBG_Utilities.BuildNewFeatureClass("d" & sYear & "_utm", sFlightlineArchive, "UTM")
pFC_out.AddField(FBG_Utilities.CreateField(g_fnaCol_Row, 4, , 20))
Dim pFC_in As IFeatureClass = AccessFeatureWS(sFlightlineArchive).OpenFeatureClass("d" & sYear)
CopyAndProjectFC(pFC_in, pFC_out)

Return pFC_out

Catch ex As Exception

MsgBox("FBG_main.MakeProjectedFC: " & vbCrLf & ex.Message & vbCrLf & vbCrLf & ex.StackTrace)

Return Nothing

End Try

End Function

Private Sub MergeToFltLnsByGrid_IC(ByRef pFC_NewLine As IFeatureClass, _
ByVal sFlightlines As String, _
ByVal sYear As String, _
ByVal sDestinationFCName As String)

Try
Dim fiNewLineFC As FieldIndices_TempLineFiles = GetFieldIndices_TempLineFiles(pFC_NewLine)

Dim pFC_Flightlines As IFeatureClass = AccessFeatureWS(sFlightlines).OpenFeatureClass(sDestinationFCName)
CheckForFields(pFC_Flightlines)

Dim fiFlightlines As FieldIndices_TempLineFiles = GetFieldIndices_TempLineFiles(pFC_Flightlines)

Dim pIC As IFeatureCursor = pFC_Flightlines.Insert(False)
Dim pFB As IFeatureBuffer = pFC_Flightlines.CreateFeatureBuffer

Dim pC As IFeatureCursor = pFC_NewLine.Search(Nothing, True)
Dim pF As IFeature = pC.NextFeature
Do Until pF Is Nothing

pFB.Shape = pF.Shape

pFB.Value(fiFlightlines.OutputID) = pF.Value(fiNewLineFC.OutputID)
pFB.Value(fiFlightlines.DateTime) = pF.Value(fiNewLineFC.DateTime)
pFB.Value(fiFlightlines.Flt_No) = pF.Value(fiNewLineFC.Flt_No)
pFB.Value(fiFlightlines.EventField) = pF.Value(fiNewLineFC.EventField)
pFB.Value(fiFlightlines.FltType) = pF.Value(fiNewLineFC.FltType)
pFB.Value(fiFlightlines.Seastate) = pF.Value(fiNewLineFC.Seastate)
pFB.Value(fiFlightlines.Icepercent) = pF.Value(fiNewLineFC.Icepercent)
pFB.Value(fiFlightlines.VisRight) = pF.Value(fiNewLineFC.VisRight)
pFB.Value(fiFlightlines.VisLeft) = pF.Value(fiNewLineFC.VisLeft)
pFB.Value(fiFlightlines.Col_Row) = pF.Value(fiNewLineFC.Col_Row)

pIC.InsertFeature(pFB)

pF = pC.NextFeature
Loop

pIC.Flush()

GC.Collect()

Catch ex As Exception

MsgBox("FBG_main.MergeToFltLnsByGrid: " & vbCrLf & ex.Message & vbCrLf & vbCrLf & ex.StackTrace)

End Try

End Sub

Hardman Knott

Gym climber

Muir Woods National Monument, Mill Valley, Ca

Feb 11, 2013 - 01:33pm PT

I would suggest more sunshine.

So the boob thread gets deleted and we're left with this nonsense...

survival

Big Wall climber

Terrapin Station

Feb 11, 2013 - 01:38pm PT

The Larry

climber

Moab, UT

Feb 11, 2013 - 01:49pm PT

WTF????

Manjusri

climber

Feb 12, 2013 - 11:32pm PT

B_E_S is a bot.

Brandon-

climber

The Granite State.

Feb 13, 2013 - 03:08pm PT

Just get a phone with a plan and a monthly bill, dude.

You're making things way more difficult than they need to be.

hagerty

Social climber

A Sandy Area South of a Salty Lake

Feb 13, 2013 - 04:00pm PT

You're making things way more difficult than they need to be.

He *likes* to.
Or he's a bot.
I for one welcome our coming robot overlords.

rectorsquid

climber

Lake Tahoe

Feb 13, 2013 - 04:05pm PT

+If I was treated by my technology as badly as BES is treated by his, I would get a job digging ditches in a Luddite commune.

My phone works fine and I have no need to track all IP addresses going through 10 different routers to their ultimate physical location using a satellite dish and some chewing gum. I guess that I'm just lucky.

Dave

rectorsquid

climber

Lake Tahoe

Feb 13, 2013 - 04:07pm PT

i wouldnt listen to or take up a college teachers 3 year offer with either them or DoD noting their 3 year deal failed badly from what i read.

Only a bot could write something like that. Humans just don't combine random words in such a clever way and still give them no real meaning. Plus, Only bots still wrap their text at 80 columns like when the dinosaurs roamed the earth.

Brandon-

climber

The Granite State.

Feb 13, 2013 - 04:13pm PT

Seriously? Am I behind the times here? You think BES is a bot? I assumed it was just a strange human. I think it posted here before as BES1'st.

Why would anyone even want to spam a climbing website without trying to sell something? School project?

couchmaster

climber

pdx

Feb 13, 2013 - 06:01pm PT

Why are you posting this here for me to read?

Besides, how confidential do you expect it to be Bryce?

"This message is considered confidential, privileged and
protected by US and CA. state laws pertaining to such. It
may also consist of attorney client work product also
prohibiting any further disclosure other than to whom it's
addressed. Bryce

The above footer applies to civil matters. This is not civil
and I want any support whether police, some other public agent
or agency, DoD etc. or att employee to be jailed under a PC 502.
I also paid you for the new number change! "

climbski2

Mountain climber

Anchorage AK, Reno NV

Feb 13, 2013 - 07:54pm PT

1st world problem..

climbski2

Mountain climber

Anchorage AK, Reno NV

Feb 13, 2013 - 08:21pm PT

You lost me at hello

Tobia

Social climber

Denial

Feb 13, 2013 - 09:23pm PT

Having trouble with ATT? The pleasure becomes unbearable when you attempt to to login to your account or attempt to change your password when you can't get in.