Fast way to move verts

#1

Is there a fast way to move verts to verts to different locations? If you move everything to a single location it’s very fast, but if each vert needs a different location the performance can be terrible. Here’s an example, which on my PC takes 984ms to move the 8066 verts:

sp = Sphere segs:128 name:#test isSelected:on
max modify mode
modPanel.setCurrentObject sp
macros.run "Modifier Stack" "Convert_to_Poly"
numv = sp.GetNumVertices()

gvp = polyOp.getVert
vrtsToMove = #()
oldPositions = #()
for k=1 to numv do (
    append vrtsToMove k
    append oldPositions (gvp sp k)
)

seed 0
newPositions = #()
for i=1 to vrtsToMove.count do (
    x=((random -0.4 0.4) + oldPositions[i].x)
    y=((random -0.4 0.4) + oldPositions[i].y)
    z=((random -0.4 0.4) + oldPositions[i].z)
    append newPositions [x,y,z]
)

gc()
t1 = timeStamp()
svp = polyop.setVert
for i=1 to vrtsToMove.count do (svp sp #{vrtsToMove[i]} newPositions[i] node:sp)
format "maxscript\nresult:%\ntime:% ms\n" test (timeStamp() - t1)

One thing I know can speed it up is turning on undo for only the first and last vert being moved and having undo off for the rest. But in the above example that only brings it down to about 400ms, like such:

sp = Sphere segs:128 name:#test isSelected:on
max modify mode
modPanel.setCurrentObject sp
macros.run "Modifier Stack" "Convert_to_Poly"
numv = sp.GetNumVertices()

gvp = polyOp.getVert
vrtsToMove = #()
oldPositions = #()
for k=1 to numv do (
    append vrtsToMove k
    append oldPositions (gvp sp k)
)

seed 0
newPositions = #()
for i=1 to vrtsToMove.count do (
    x=((random -0.4 0.4) + oldPositions[i].x)
    y=((random -0.4 0.4) + oldPositions[i].y)
    z=((random -0.4 0.4) + oldPositions[i].z)
    append newPositions [x,y,z]
)


gc()
t1 = timeStamp()
svp = polyop.setVert
with undo on (svp sp #{vrtsToMove[1]} newPositions[1] node:sp)
with undo off (
    for i=2 to (vrtsToMove.count - 1) do (svp sp #{vrtsToMove[i]} newPositions[i] node:sp)
)
with undo on (svp sp #{vrtsToMove[vrtsToMove.count]} newPositions[newPositions.count] node:sp) 
format "maxscript\nresult:%\ntime:% ms\n" test (timeStamp() - t1)
#2

Down to 1 ms with undo:

(
	delete objects
	
	sp = converttopoly (sphere segs:128 wirecolor:[128,0,0])
	max create mode
	
	seed 0
	positions = for j = 1 to sp.numverts collect
	(
		(polyop.getvert sp j) + (random -[0.4,0.4,0.4] [0.4,0.4,0.4])
	)

	gc()
	st = timestamp(); sh = heapfree
	
	polyop.setvert sp #{1..sp.numverts} positions
	
	format "time:% heap:%\n" (timestamp()-st) (sh-heapfree)
)
#3

Thanks PolyTools3D !
That solution seems to work for both Editable_Poly and Editable_Mesh. Would there perhaps be a similarly fast way to move verts on an Edit_Poly modifier (setVert wont accept position arrays on Edit_Poly) ?