How to Create beam element by connecting nodes formed at the crossing location of lines.

RajeshSRSamsung

I have nodes created at the crossing location of lines as shown below.

I need  a tcl script to make beam elements connecting these nodes ( based on a check that the nodes have a common line passing through them). 

Thank You in advance for Your consideration.

sample02.hm

Ben Buchanan

I don't have an exiting script but if you do it often it might be worth it to write your own.

You could loop through each line, get the intersection points (*nodecreateatintersection) then loop through each intersection point and create elements (*createentity) between the appropriate nodes.  Maybe test direction and distance to get the appropriate nodes?  Just some initial thoughts.