option explicit

dim oGeomS, oGeomE, oStart, oEnd, Steps, DupList, StepQuan, Obj, Point, StartPos, EndPos, ObjPos, oGeom, p,d,c

call PickObject ("Select Start Object", ,oStart)
call PickObject ("Select End Object", ,oEnd)

StepQuan = int(inputbox("Please enter a step amount"))

set oGeomS = oStart.activeprimitive.geometry
set oGeomE = oEnd.activeprimitive.geometry
StartPos = oGeomS.Points.PositionArray
EndPos = oGeomE.Points.PositionArray
set DupList = Duplicate (oStart, StepQuan)
c=1
for each Obj in DupList
	set oGeom = Obj.activeprimitive.geometry
	ObjPos = OGeom.Points.PositionArray
	for P =0 to UBound(ObjPos,2)
		for d = 0 to 2
			ObjPos(d,P) = StartPos(d,p) + ( c * ((EndPos(d,p) - StartPos(d,P)  )/(StepQuan+1)))
		next
	next
	OGeom.Points.PositionArray = ObjPos 
	c=c+1

next