The issue is that I the contours I have came from a .shp file and the line elevations are not being stored as elevations. Instead they are being stored as string values in a property called "ELEVATION". I have tried many different ways to get these come in with elevation so I can create a surface, but so far with no luck. I was thinking that I could write a macro to get each line in my selection and pull the value from the property and set it as the line elevation.
What I have so far:
Public Sub ImportElevations()Dim oElEnum As ElementEnumeratorDim oEl As LineElementDim oPropHand As PropertyHandlerDim getElevationFromCustom As String
Set oElEnum = ActiveModelReference.GetSelectedElementsoElEnum.ResetWhile oElEnum.MoveNext Set oEl = oElEnum.Current Set oPropHand = CreatePropertyHandler(oElEnum.Current) If (oPropHand.SelectByAccessString("ELEVATION")) Then getElevationFromCustom = oPropHand.GetDisplayString ' Write getElevationFromCustom to line elevation End IfWend oEl.Redraw msdDrawingModeNormal oEl.RewriteEnd Sub
Has anyone dealt with this before?
Thanks,
Matt