»' Calculate the location
points for the 3 columns (assuming straight wall)
»Dim locations As New XYZArray()
»
»Dim locCurve As LocationCurve = wall.Location
»Dim ptStart As XYZ = locCurve.Curve.EndPoint(0)
»Dim ptEnd As XYZ = locCurve.Curve.EndPoint(1)
»Dim ptMid As New
XYZ((ptStart.X + ptEnd.X) / 2, (ptStart.Y + ptEnd.Y) / 2, (ptStart.Z + ptEnd.Z) / 2)
»
»locations.Append(ptStart)
»locations.Append(ptMid)
»locations.Append(ptEnd)
»
»Dim sMsg As String = "Locations
for the new Columns (ALWAYS reported 'raw', in inches!) are:"
»sMsg +=
vbCrLf & " Start:" & ptStart.X & ", " & ptStart.Y & ", " & ptStart.Z
»sMsg +=
vbCrLf & " Mid
:" &
ptMid.X & ",
" &
ptMid.Y & ",
" &
ptMid.Z
»sMsg +=
vbCrLf & " End
:" &
ptEnd.X & ",
" &
ptEnd.Y & ",
" &
ptEnd.Z
»MsgBox(sMsg)