how to build Editable_Poly plan 2000x 2000 face?

Good day

Want to build Editable_Poly plan 2000x 2000 face?
The application hangs. Who can tell what is the reason?

-----------------------------------------------------------------------
p = plane name: "EP_plane" length:1.0 width:1.0 pos:[0,0,0] lengthsegs:1 widthsegs:1 isSelected:on
convertTo p Editable_Poly
for i=1 to 2000 do
(
maxOps.cloneNodes $ cloneType:#copy newNodes:&nnl offset:[i,0,0]
)
max select invert
AttArray = selection as array
max select invert
for i=1 to AttArray.count do
(
$.EditablePoly.attach AttArray[i] $
)
free AttArray
max modify mode
subobjectLevel = 1
max select all
$.EditablePoly.weldFlaggedVertices ()
max create mode
for i = 1 to 2000 do
(
maxOps.cloneNodes $ cloneType:#copy newNodes:&nnl offset:[0,i,0]
)
max select invert
AttArray = selection as array
max select invert
for i=1 to AttArray.count do
(
$.EditablePoly.attach AttArray[i] $
)
max modify mode
subobjectLevel = 1
max select all
$.EditablePoly.weldFlaggedVertices ()
max create mode
max modify mode