VBA to place data point at intersection of selected lines

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.  

Parents
  • 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.

Reply
  • 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.

Children
No Data