Sub brt_test()
Dim actprj As Long
Dim cactproj
Dim sts As Long
Dim strFile As String
Dim strName As String
Dim strDesc As String
Dim strFeat As String
Dim ali As Long
Dim ele As Long
Dim pnt1 As DPoint3d
Dim pnt2 As DPoint3d
sts = scadSDK_cogoLoadGeometryFile(actprj, StrPtr("c:\brt_test\brt_test.alg"))
ali = scadSDK_cogoGetActiveProject(ttt)
pnt1.X = 214747.01
pnt1.Y = 214748
pnt1.Z = 0
pnt2.X = 214747.01
pnt2.Y = 214748
pnt1.Z = 0
scadSDK_cogoAddHorizontalLineByPoints ele, ali, pnt1, pnt2
End Sub
I want to draw a create a line in inroads by 2 points in vba!
It returns error 53, file not found.
I would also like to get a geometry project / horizontal alignment and use this function below to get instantaneous radius at a given station.
scadSDK_cogoComputeRadiusAtStation Lib "SCadSDKAT" (ByVal alg As Long, ByVal ele As Long, ByVal Station As Double, radius As Double, sign As Double) As Long
Please if anyone has experience for this code to work in vba, it would be a really beneficial tool if it was documented better ?
Kind regards,
chris murray