I need some help on this. I have a grid of lines/arcs that I need to be able to select and run the VBA and have it place a data point at the all the intersections of the selected elements. I have done some reading online, but I dont know enough about VBA in Microstation to get started. I have attached a screen shot of the grid I am working with. Actually I am trying to locate these points and using the tracking tool in InRoads I need to find surface elevations at all the intersection points. I think I can select the lines and then activate the tracking tool in InRoads and then run the VBA to place a data point at all the intersections. Any help will be greatly appreciated.
Hi Phillip,
welcome to the community.
This is kind the form of question: "Here is my problem, anybody can provide me a solution."
To get you a start:
You are able to get all the selected elements using:
Dim elo As ElementEnumerator
Set elo = ActiveModelReference.GetSelectedElements
Read about ElementEnumerator in the help.
To find a Intersection between two elements el1,el2 you can use:
p = el1.AsIntersectableElement.GetIntersectionPoints(el2, Application.Matrix3dIsIdentity)
Good luck,
Stefan.