Is there a lisp routine that can create multiple points from the intersection of 2 lines?

[CADman123 0]

I am building 3D models from existing and proposed 2d drawings. Most of the drawings i recieve, the setting out spot marker is either a cross which is 2 exploded lines with intersections or it is a block.

I have a lisp routine that moves text to the midpoint of a 'POINT' which will enable me to create an accurate 3d model however this does not work as the spot level markers are usually either blocks or 2d cad lines intersecting.

Any help would be appreciated.

[Jonathan Handojo 125]

A dwg or an image of a "Before and After" would certainly help. Otherwise it's hard to grasp.

[dan20047 12]

Share your lisp? It may be easy to revise to select block insertion point instead of point location. (Though you said midpoint of point, is that possible?)

 

Also: https://forums.autodesk.com/t5/autocad-forum/change-block-reference-to-points/td-p/6678247

[BIGAL 501]

Re 2 lines if they are on a layer and hor and ver then easy to just use say the horizontal and get 1/2 point with a Z that is assuming the lines are at a Z. The block as suggested can use insertion point and adjust X Y if required.