Need a lisp that can create point on the intersection of diagonal of quadilateral (polygon having 4 sides)

[inaamazmi]

Need a lisp that can create  point on the intersection of diagonal of quadilateral (polygon having 4 sides)

[paullimapa]

Double post

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/need-a-lisp/m-p/11639671

[BenCads]

To use this code, type diagonalintersection in the AutoCAD command line. You will be prompted to select a quadrilateral (a polyline with four vertices), and then a point will be created at the intersection of the diagonals of the quadrilateral.