Calculate cross points of a square work

Calculate cross points of a square work.
refMacro Sample:Calculate cross points of a square work